Case Is Problem
16.03.2004 15:59:04
TinoB
bin eben wieder auf ein problem gestoßen und finde den fehler nicht. kann mir bitte jemand helfen. ich habe in der Spalte30 zahlen zwischen 1 und 3000. diese sollen mit dem untenstehenden code in die entsprechende spalte rechts sortiert werden. dies funktioniert aber nur bis kleiner 1200. weiß vielleicht jemand warum?
Danke
Tino
Sub länge()
Dim rng As Range, LZ As Integer
LZ = Range("A65536").End(xlUp).Row
For Each rng In Range(Cells(20, 30), Cells(LZ, 30))
Select Case rng
Case Is < 250:
Cells(rng.Row, 31) = Cells(rng.Row, 25)
Case Is >= 250:
If Cells(rng.Row, 30) < 1200 Then Cells(rng.Row, 32) = Cells(rng.Row, 25)
Case Is >= 1200:
If Cells(rng.Row, 30) < 2500 Then Cells(rng.Row, 33) = Cells(rng.Row, 25)
Case Is >= 2500:
Cells(rng.Row, 34) = Cells(rng.Row, 25)
End Select
Next rng
End Sub