Mein kleines MAkro filtert nur jede zweite Zahl
11.11.2002 16:53:17
Timo
ich habe ein kleines Makro geschrieben, welches mir aus einer Spalte alle Zahlen kleiner als 750 löschen soll. Soweit so gut. Aber tatsächlich wird nur jeder zweite Wert unter 750 gelöscht. Wo liegt mein fehler? Bin noch sehr neu mit VBA und kenne mich damit nicht so gut aus.
Danke für die Hilfe im Voraus.
Timo
Hier mein Makro:
Sub Temperaturen_unter_750K_löschen()
Dim Zelle As Integer
b = xlLastCell
For Zelle = 2 To b
Range("A" & Zelle).Select
If ActiveCell.Value < 750 Then
ActiveCell.Delete
End If
Next Zelle
Range("A1").Select
End Sub