Suchen und Ersetzen in bestimmen Dateien
18.11.2020 05:43:31
Meister
ich habe folgendes Problem: Ich möchte in ca. 100 XLS Dateien einen Rechtschreibfehler korrigieren.
Dieser Fehler ist in unterschiedlich benannten Excelblättern vorhanden.
Die Dateien liegen in unterschiedlichsten Netzlaufwerken mit sehr großen Datenaufkommen.
Eine Spalte mit dem Datei und Speicherort habe ich.
Gibt es eine Möglichkeit, die Replace-Funktion so zu benutzen, dass ich die Dateinamen und Pfad in Spalte A stehen habe,
jede Datei nacheinander geöffnet wird,folgendes Macro ausgeführt wird, Datei gespeichert wird, _ geschlossen wird und dann die Nächste....
Sub Makro1()
' Makro1 Makro
Cells.Replace What:="Kabl", Replacement:="Kabel", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Vielen Dank für eure Hilfe
Anzeige