Zählen mit mehreren Bedingungen (Makro)

Hallo Leute,
habe ein problem mit VBA (Excel) - Makro, und hoffe ihr könnt mir helfen.
Ich muss eine Tabelle mit mehreren 10-tausend Werten auslesen, diese in Kategorien einteilen, und die jeweilige Anzahl der Werte festhalten.
Also zum Beispiel alle Werte zwischen -10 und -8, zählen wieviele es sind, und in ein neues Sheet oder neue Datei schreiben. Bitte Euch dringend um Hilfe.
Vielen dank im Voraus. Grüße Prak

Als VBA Anfänger bin ich bisher soweit gekommen:

Sub Countdata_191RH()

Dim zaehler1 As Integer->für werte: -8 <= x <= 0 ml
Dim zaehler2 As Integer->für werte: -10 <= x < -8 ml
Dim zaehler3 As Integer->für werte: -12 <= x < -10 ml
Dim zaehler4 As Integer->für werte: -14 <= x < -12 ml
Dim zaehler5 As Integer->für werte: x < -14 ml
Dim zaehler6 As Integer->für leere Zellen
Dim Zelle As Range
Dim x As Integer

On Error Resume Next

Set Range_191RH = Worksheets(1 - 2002).Range(B:AF)

'For x = 1 To Rows.Count Step 1

For Each Zelle In Range_191RH

If Zelle <= 0 Or Zelle >= -8 Then
zaehler1 = zaehler1 + 1 ->Zaehler für Werte zwischen 0 und -8

ElseIf Zelle < -8 Or Zelle >= -10 Then
zaehler2 = zaehler2 + 1 ->Zaehler für Werte zwischen -8 und -10

ElseIf Zelle < -10 Or Zelle >= -12 Then
zaehler3 = zaehler3 + 1 ->Zaehler für Werte zwischen -10 und -12

ElseIf Zelle < -12 Or Zelle >= -14 Then
zaehler4 = zaehler4 + 1 ->Zaehler für Werte zwischen -12 und -14

ElseIf Zelle < -14 Then
zaehler5 = zaehler5 + 1 ->Zaehler für Werte kleiner als -14

Else
zaehler6 = zaehler6 + 1

End If

'Next x
Next

Hallo,

vielleicht hilft dir das hier: http://www.wintotal-forum.de/index.php/topic,78524.0.html

Gruß, Marco

Hi,

sieht soweit gut aus, aber Du solltest überall dort, wo Du Or geschrieben hast, stattdessen ein And einsetzen.

Melde Dich, falls Du noch Fragen hast. Ich melde mich dann morgen wieder.

Gruß
PiPi

Danke für Eure Hilfe, hat mir sehr geholfen und wieder neue Denkanstösse gegeben.
Grüße Prak