Office: Zählenwenn-Funktion mit VBA und Wert auswerfen in bestimmter Zelle

Hallo ihr,

Ich bräucht in VBA mit Excel 2003 eine Zählenwenn Funktion.
Dabei soll in einem bestimmten Bereich in Spalte B (z.B. B20-B30) die Anzahl gezählt werden, wenn die Werte > 0 sind und diese Anzahl soll dann in Zelle B40 erscheinen.
Gleiches soll dann für Werte < 0 durchgeführt werden und die Anzahl in Zelle B41 ausgespuckt werden.

Vielen Dank für eure Hilfe

lg STUBA

:)

 

hi


=ZÄHLENWENN(B20:B30;"0")

über vba ist es worksheetfunction.countif

Range("B40").Value = WorksheetFunction.CountIf(Range("B20:B30"), ">0")
und kleiner halt mit <

Zellen anpassen!

 

Danke Chris,

das klappt perfekt.
Kannst du mir noch sagen, wie ich die COuntif Funktion ändern muss, wenn ich nur Zählen will bei Werten zwischen 0 und 1???

lg

 

Hi

auch über VBA?

Code:

 

Hi Chris,
vielen Dank für deine Hilfe!
Wenn ich nun weitere Suchen eingliedern will, also z.B. von 1 bis 2,
muss ich dann eine neue For next Schleife vor End Sub einfügen?
Also beispielsweise
Sub null_eins()
Dim rng As Range, rngC As Range
Set rng = Range("F11999:F17687") 'anpassen
For Each rngC In rng
If rngC >= 0 And rngC "" And rngC < 1 Then
IntC = IntC + 1
End If
Next
Range("B35").Value = IntC
If rngC >= 1 And rngC "" And rngC < 2 Then
IntC = IntC + 1
End If
Next
Range("B36").Value = IntC
End Sub

 

hi

fast..
du solltest aber die Variable IntC zuvor noch auf Null setzen

Code:

 

Perfekt =)
Vielen Dank

 

Hi

noch eine Möglichkeit wäre über UDF

Code:

 

Danke Chris, das andere war schon perfekt!

Ich bräuchte nochmal deine Hilfe:
Ich versuche die ganze Zeit mit der SumIf und CountIf Funktion zu operieren, aber das klappt nicht wirklich:
Nun soll eben nicht die Werte aus Bereich(F11999:F17995), sondern deren entsprechende Werte aus dem Bereich(F17998:F23994) summiert und gezählt werden, wenn die Werte aus Bereich(F11999:F17995) wieder größer 0 usw. sind. Die Summe soll dann durch die Anzahl geteilt werden, um einen Durchschnitt zu erhalten, und in Zelle(29738,7) ausgeworfen werden.

 

Hi

^^
was hast denn Du da für Bereiche ^^

Code:

 

Sind mir so vorgegeben worden *wink.gif*

Danke ich versuchs gleich mal!

 

Das läuft wieder spitze =) Vielen Dank!
Um jetzt wieder unterschiedliche größer kleiner Werte einzufügen, muss ich dann neben IntC = 0 auch Tempsum = 0 schreiben?

 

Ein Fehler ist noch aufgetaucht.
Was muss ich noch einfügen, wenn IntC gleich 0 ist, da ja dort ein Fehler auftritt, wenn durch 0 geteilt wird

 

Hi

so .z.B

Code:

 

Habe den Fehler mit einer if Funktion ausgeschalten