Makro erweitern
11.05.2007 10:43:00
achim
Suche in Sheets "daten" in B nach dem Begriff "Grund". hat die darunter befindliche zelle keinen inhalt dann
lösche die zeile mit dem begriff "Grund" und aber auch die darüber sowie darunter befindliche.
mein noch unvollständiger code
Sub löschenBegriff()
Dim Lrow As Long
Application.ScreenUpdating = False
Sheets("Daten").Activate
With Sheets("Daten")
'letzte Zeile in Spalte B
Lrow = .Cells(Rows.Count, 2).End(xlUp).Row
For i = Lrow To 1 Step -1
If .Cells(i, 2) = "Grund" Then Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
End Sub
danke
achim h.