Sub
JA_DATUMANPASSUNG()
Dim
EIGENER_NAME
Dim
PFAD_DATUM
Dim
SUCHE_DATUM
Dim
ERSETZE_DATUM
Dim
FS
As
Object
Dim
FVERZ
As
Object
Dim
FDATEI
As
Object
Dim
FDATEIEN
As
Object
Dim
DATDATUM(200, 2)
As
String
, Z1
EIGENER_NAME = ActiveWorkbook.Name
Range(
"B7"
).
Select
PFAD_DATUM = ActiveCell()
Range(
"D10"
).
Select
SUCHE_DATUM = ActiveCell()
Range(
"D12"
).
Select
ERSETZE_DATUM = ActiveCell()
Set
FS = CreateObject(
"scripting.FileSystemObject"
)
Set
FVERZ = FS.getFolder(PFAD_DATUM)
Set
FDATEIEN = FVERZ.Files
Z1 = 1
For
Each
FDATEI
In
FDATEIEN
If
InStr(FDATEI,
""
) > 0
Then
DATDATUM(Z1, 1) = FDATEI.Name
End
If
Z1 = Z1 + 1
Next
FDATEI
Z1 = 1
Do
If
DATDATUM(Z1, 1) =
""
Then
Exit
Do
Else
Workbooks.Open Filename:= _
PFAD_DATUM + "\" + DATDATUM(Z1, 1)
Cells.Find(What:=SUCHE_DATUM, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=
False
, SearchFormat:=
False
).Activate
ActiveCell.FormulaR1C1 = ERSETZE_DATUM
ActiveWorkbook.Save
ActiveWindow.Close
End
If
ActiveWorkbook.Close
Z1 = Z1 + 1
Loop
End
Sub