VBA-Code ändern - suchen und Zeile löschen
24.02.2005 13:02:29
Markus
Kann mir jemand bei der Änderung dieses VBA-Codes weiterhelfen.
Konkret möchte ich, dass nicht nur die Zelle, in der der Suchtext gefunden wird, gelöscht wird, sonder dass die komplette Zeile in dieser der steht markiert und dessen Inhalt (es befinden sich Inhalte von Spalte A I) komplett gelöscht wird.
Hier der bisherige VBA-Code:
Sub Suchbegriff_ganze_Zeile_löschen()
On Error Resume Next
Dim Bezeichnung$, Zelle
Application.ScreenUpdating = False
Bezeichnung = InputBox("zu löschenden Begriff eingeben:", "Ganze Zeile löschen")
For Each Zelle In ActiveSheet.UsedRange.Cells
Cells.Find(What:=Bezeichnung, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Rows.ClearContents
Next
Application.ScreenUpdating = True
End Sub
Schon jetzt vielen Dank
Gruß
Markus