Zellen löschen
Stefanglander
habe folgenen Code gefunden der für mein Problem fast passend ist:
Sub erledigt()
Dim var As Variant
Do While Not IsError(var)
var = Application.Match("erledigt", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
End Sub
Private Sub CommandButton1_Click()
erledigt
End Sub
Wie muss ich den nun umstricken, damit die gesammte zeile gelöscht wird ?
Und wie muss er aussehen wenn in der Zeile in der erledigt steht die ersten 5 Zellen in der Zeile wo erledigt eingetragen worden ist gelöscht werden?
Gruss
Stefan
Anzeige