Variable Integer
23.05.2014 20:10:07
Chrissi
Hallo zusammen,
ich möchte gerne eine Tabelle 1 durchlaufen lassen. Es sollen alle Zeilen gelöscht werden bis auf die Zeilen die "Test" beinhalten (Spalte C). Leider klappt der Makro nicht. Liegt das an der Variable Integer? Gibt es eine andere Variable, die ich verwenden kann?
Freue mich auf Nachrichten.
Liebe Grüße
Chrissi
Sub Löschen()
Dim i As Integer
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For i = 45000 To 2 Step -1
Select Case .Cells(i, 3).Value
Case "Test"
GoTo Naechste
Case Else
.Rows(i).Delete
End Select
Naechste:
Next
End With
Application.ScreenUpdating = True
End Sub