Falls x vorhanden ist soll Zeile Y gelöscht werden! Geht das?
Sub Suchen()
Dim cc As Range
For Each cc In Range("H24:H30")
' If cc = X15 Then ' sucht nach dem Inhalt der Zelle X15
If cc = "X15" Then ' sucht nach der Zeichenkette "X15"
Range("Bereich1").Clear ' löscht Inhalte und Formate
' Range("Bereich1").ClearContents ' löscht nur Inhalte
' Range("Bereich1").Delete xlShiftUp ' löscht Bereich
' Range("Bereich1").Delete xlShiftToLeft ' löscht Bereich
Exit For
End If
Next cc
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen