Zellen mit bestimmten Inhalt löschen
14.12.2016 10:27:42
Marv
über folgenden VBA Code lasse ich mir aktuell Zellen mit bestimmten Inhalt löschen:
Sub Zellen_loeschen
LoescheZellen Range("D:D"), "ID"
End Sub
Private Sub LoescheZellen(ByVal rngSource As Range, ByVal strText As String)
Dim rngCell As Range
For Each rngCell In rngSource
If InStr(1, rngCell.Value, strText, vbTextCompare) = 1 Then rngCell.ClearContents
Next
End Sub
Jetzt habe ich aber Fälle, wo beispielsweise in der Zelle "ID 12345 nicht gefunden" bzw. "ID 12345 gefunden" steht. In beiden Fällen würde der Code die Zelle löschen, da er nur nach dem Inhalt "ID" sucht.
Wie muss ich denn den Code anpassen, dass nur noch "ID 12345 gefunden" gelöscht wird?
Danke euch
Grüße
Marv