Re: Ersetzen abbrechen
14.05.2002 14:52:51
Jeanne
Hallo Jürgen,ich hab hier ne Idee, wie du garnichts mehr abbrechen brauchst:
Private Sub Worksheet_Activate()
Dim strDateiAlt, strDateiNeu
Application.DisplayAlerts = False
strDateiAlt = InputBox("Suche Nach:")
strDateiNeu = InputBox("Ersetzte mit:")
Range("A1:A20").Replace What:=strDateiAlt, Replacement:=strDateiNeu, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
Application.DisplayAlerts = True
End Sub
Mit dem Application.DisplayAlerts = False unterbindest du die Meldung Datei nicht gefunden. Du kannst jetzt alles Ersetzten, ob es nun existiert oder nicht. Und mit Application.DisplayAlerts = True aktivierst du das ganze wieder.
Hoffe es hilft dir irgendwie weiter.
Viel Glück Jeanne