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