AW: Ohne Datei keine Bastelei
18.03.2022 19:30:21
Yal
Es gibt sogar Leute, die das mit Worte beschreiben. Mit vollständigen Sätze.
Sub Ersetzen()
Dim Dateien
Dim Datei
Dim wb As Workbook
Dim ws As Worksheet
Dim Protec
Dateien = Application.GetOpenFilename _
("Excel-Dateien (*.xls*), *.xls*", MultiSelect:=True)
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Datei In Dateien
Set wb = Workbooks.Open(Datei)
wb.Unprotect Password:="Test PW"
For Each ws In wb.Worksheets
Protec = ws.ProtectionMode
If Protec Then ws.Unprotect Password:="Test PW"
ws.Cells.Replace _
What:="Frau Max 1", _
Replacement:="Herr Blah 2", _
LookAt:=xlPart, MatchCase:=False
ws.Cells.Replace _
What:=Replace("Frau Max 1", " ", vbCr), _
Replacement:="Herr Blah 2", _
LookAt:=xlPart, MatchCase:=False
If Protec Then ws.Protect Password:="Test PW"
Next
wb.Protect Password:="Test PW"
wb.Save
wb.Close
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
EoM
VG
Yal