gibt es die Möglichkeit einen Wert in einer Zeile zu suchen in zu löschen und alle anderen Zellen die noch folgenden nach vorne zu kopieren (siehe Beispielbild)
Danke
Sven
Sub aa()
Dim f As Range
Set f = Rows(3).Find("apfel", , xlValues, xlWhole)
If Not f Is Nothing Then f.Delete xlToLeft
End Sub
Gruß