Mehrere Worte ausschneiden
18.01.2006 07:34:52
Stan
Mit dem Makro unten lösche ich in dem Blatt Temp das Wort Test. Wie kann ich noch zusätzlich andere Worte löschen , ohne die Prozedur zu wiederholen?
Sub Worte_loeschen()
Sheets("Temp").Select
Cells.Select
Selection.Replace What:="Test", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
End Sub
Danke für Ihre Hilfe Stan
Anzeige