Ich habe ein File, in welchem in einem Code die Zeile
If Sh.Name <> ActiveSheet.Name Then
enthalten ist. Den entpsrechenden Code mit dieser Zeile habe ich in vielen Dateien eingebaut.
Nun besteht ein Konflikt mit ein einem "Datenconnector" welcher Daten aus einem anderen Programm in die Excel-Files verlinkt.
Jetzt habe ich herausgefunden, dass Funktionalität meines Codes weiterhin intakt ist und der Konflikt mit dem Datenconnector nicht mehr besteht, wenn ich die oben aufgeführte Zeile durch nachfolgende ersetze:
If ActiveWindow.SelectedSheets.Count > 1 Then
Meine Frage:
Kennt jemand eine Möglichkeit, dass ich dieses "Suchen und Ersetzen" automatisiseren kann? Die Dateien in welchen der entsprechende Code ersetzt werden muss, haben immer den gleichen Dateinamen.
Gruss, Peter