Lösche Zeile wenn ...
03.05.2008 16:35:00
helena
kämpfe mit Macro möchte in Varaible Löschbegriff deklarieren aber es macht Schlaufe und hängt sich auf
es muss Zahl, Text oder LEER funktionieren, falls mehre möglich auch kein Problem
Sub loeschen1()
Application.ScreenUpdating = False
Dim i As Integer
Dim such As String
'such = ? wenn Zelle leer ?
Worksheets("Tabelle1").Activate
For i = 6 To 400
If Cells(i, 2).Value = "UHR" Then
Rows(i).Delete
i = 1 + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
Vielen Dank für Antwort
gruss aus CH
helena