ich stelle mich heut wieder an.
Ich möchte gern in der Spalte A alle zellen finden und löschen mit Delete Shift:=xlUp
in denen der String aus Zelle c4 enthalten ist.
Leider scheitern meine versuche ständig.
der letzte lautet
Sub zelle_löschen()
With Worksheets(1).Range("a1:a500")
Set c = .Find(c4, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Delete Shift:=xlUp
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Aber das geht so auch nicht.
Hat jemand eine lösung für mich?
besten dank schon mal für euer interesse an meinem problem.
mfg thomas