Hallo Jeanne,
das funktioniert leider nicht. Mein Problem ist ja gerade, dass ich nicht abbrechen kann. Wenn ich auf Ok clicke, dann springt Excel in die nächste Zelle, stellt wieder den selben Fehler fest und ich muss wieder Ok clicken, usw., usw.
Vielleicht gebe ich ein Beispiel: schreibe mal in eine Tabelle einen Bezug auf eine andere, externe Tabelle und kopiere diesen Bezug zwanzig mal untereinander. Jetzt markierst du den Bereich und machst "Ersetzen" auf einen Dateinamen, den es nicht gibt. Dann meckert Excel 21-mal das an und du musst 21 mal bestätigen.
Kann man das nicht abkürzen und das Ersetzen anderst verlassen?
Jürgen
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
