VBA Spaltenwerte sortieren

[Benji P]

Hallo Forum,

ich benötige eure Hilfe bei einem Problem bei dem ich mir schon seit ein paar Tagen Kopf zerbreche.

Ich habe eine Tabelle in Sheet 1 und will mittels VBA die Werte in der Spalte daraufhin überprüfen ob sie >0 & <=50 oder >50 & <=100 oder >100 sind.

Hab auch schon soweit ein bischen Code geschrieben aber der funzt nicht und gibt mir immer falsche Werte aus.

'4. Zelle A1 auswählen

Cells(b, a).Select

'5. Solange der Wert in dieser Zelle nicht 0 ist...

Do While Cells(b, a).Value <> 0

'6. Wenn der Wert in dieser Zelle dem String Qty entspricht...

If Cells(b, a) = spName Then

'6.1. ...gehe in die Zelle darunter

b = b + 1

Cells(b, a).Select

'7. Wenn der Wert in der Zelle größer Null und kleiner gleich 50 is dann...

If Cells(b, a).Value > 0 & Cells(b, a).Value < 50 & Cells(b, a).Value Then

'7.1 ...zähle zu i eins dazu

i = i + 1

'8. Wenn der Wert in der Zelle größer 50 und kleiner gleich 100 is dann...

ElseIf Cells(b, a).Value > 50 & Cells(b, a).Value < 100 & Cells(b, a).Value = 100 Then

'8.1. ...zähle zu j eins dazu

j = j + 1

'9. Wenn der Wert in der Zelle größer als 100 is dann...

ElseIf Cells(b, a).Value > 100 Then

'9.1. ...zähle zu k eins dazu

k = k + 1

End If

'Gehe in die nächste spalte

Else

a = a + 1

End If

Loop

(Sorry weiß leider nicht wie ich sonst den Code hier angeben soll)

Hoffe ihr könnt mir weiterhelfen.

LG Ben

[PromiseYou]

Beschäftige Dich doch auch mal mit dem "Range" - Objekt, und mit der "For Each - Next" - Anweisung

Du bildest einen Range über deine gesamten Daten, und durchläufst dann die Zellen mit For Each, und zur Auswahl der Größenzuordnung empfehle ich dir einen "Case".