Zeile löschen in Abhängigkeit von Wert
18.02.2016 10:34:26
Wert
Unteres Makro sucht in Spalte A den in A5 eingebenen Wert und löscht dann die gesuchte Zeile.
Es löscht mir irgendwie nicht die gesamte Zeile sondern nur die Zelle in Spalte A.
Alles was seitlich von der zelle ist wird beibehalten, also der gesamte Datensatz wird aber irgendwie verschoben.
Bitte um Hilfe.
Danke gio
Sub Zeilelöschen()
Dim var As Variant
var = Application.Match(Range("a5").Value, Range("A34:A" & Rows.Count), 0)
If IsError(var) Then
MsgBox "nicht gefunden"
Else
Do While Not IsError(var)
var = Application.Match(Range("a5").Value, Range("A34:A" & Rows.Count), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
End If
End Sub
Anzeige