tellen van formule uitkomst

[caffie]

ik heb een sheet met daarin op
Range B5 tot B205 formules staan

Nu wil ik tellen
hoeveel er een waarde van 1 of hoger hebben

Dit is VB met excel 2003


COUNTIF(B5:B205;"<1") werkt niet

wat gaat er hier fout ???

ik wil dus de Regel en kolomen tellen
en die range gebruiken om een print range aan te gaan geven



Dames en Heren

Ik heb er een voorbeeld bij gedaan
Omdat ik me probleem mischien niet helemaal duidelijk uit heb kunnen leggen


Het is een bestellijst

daarin mensen kunnen aangeven wat ze willen hebben
Als ze dat hebben gedaan
run ik de macro "kantinelijst"
waarin ik alles regels en kolomen hidden maak
Waarin geen bestelling is gedaan

Dan wil ik printen

Ik wil dus de regels en de kolomen tellen waarin bestellingen zijn gedaan
als ik de laatse regel en kolom nummer heb
kan ik de printrange laten opbouwen
B1 tot de laatste bestelde regel / kolom

Dit laatste gaat dus op de een of andere manier niet
ik heb al diverse hulp gehad maar ik denk dat ik wat fout doet
Maar de vraag is wat???

Tip en verbeteringen zijn natuurlijk welkom


Vast bedankt voor jullie tijd en kennis

 

[Paul-RT]

=aantal.als(b5:b205;">=1")

 

[snb]

sub afdrukgebied()
  for each cl in [B5:B205]
    if cl >1 then c0=cl.address
  next
  activesheet.printarea=Range("B5:"&c0)
End Sub

 

[WimenBeer]

ik heb een sheet met daarin op
Range B5 tot B205 formules staan

Nu wil ik tellen
hoeveel er een waarde van 1 of hoger hebben

Dit is VB met excel 2003


COUNTIF(B5:B205;"<1") werkt niet

wat gaat er hier fout ???

ik wil dus de Regel en kolomen tellen
en die range gebruiken om een print range aan te gaan geven


Vast bedankt

Er zit een behoorlijk verschil tussen "<"en ">="
In jou fomule gebruik je 'kleiner dan' ipv 'groter of gelijk' en dat is wat je wilt.

Misschien ligt het zomaar alleen hier aan.

Wim

 

[caffie]

sub afdrukgebied()
  for each cl in [B5:B205]
    if cl >1 then c0=cl.address
  next
  activesheet.printarea=Range("B5:"&c0)
End Sub

thanks kan je me ook uitleggen hoe het werkt

Dan kan ik het aanpassen voor de kolomen

Want die moeten ook geteld worden (en daarna aangepast worden)

omdat ik de regels erboven ook wil mee printen

Ik laat dus controleren op regel 4A tot 4X

maar laat printen vanaf B4 tot de laatste gevonden regel en kolom

toch vast bedankt

was weer leerzaam


Vast hartelijk bedankt

 

[caffie]

Er zit een behoorlijk verschil tussen "<"en ">="
In jou fomule gebruik je 'kleiner dan' ipv 'groter of gelijk' en dat is wat je wilt.

Misschien ligt het zomaar alleen hier aan.

Wim

nee dat is het niet
heb ik al een keer aangepast

< of > werken geen van twee
er is dus wat anders fout

toch vast bedankt

 

[Roncancio]

Als je met VBA aantal.als wilt gebruiken, kan je dit als volgt doen.

MsgBox WorksheetFunction.CountIf(Range("A4:X4"), "<1")

Bovenstaande code controleert hoeveel cellen in het bereik A4 t/m X4 een waarde hebben die kleiner is dan 1.

Met vriendelijke groet,


Roncancio

 

[Wigi]

Deze matrixformule kan je ook gebruiken (evt. licht aangepast). Het geeft het rijnummer van de laatste cel in het bereik data (benoemd bereik voor B5:B205) die kleiner is dan 1.

=MAX(ALS(data<1;RIJ(data);""))

Ingeven met Ctrl-Shift-Enter.

Wigi

 

[WimenBeer]

Misschien weer een kleinigheidje maar

COUNTIF(B5:B205[COLOR="Red"][B],[/B][/COLOR]"<1") werkt niet

werkt misschien wel (let op de komma)

Wim