Windows(
"Makro_Testmappe1.xlsm"
).Activate
Sheets(
"Tabelle1"
).
Select
Dim
Datum
As
Long
Dim
LetzteZeile
As
Long
LetzteZeile = ActiveSheet.Cells(Rows.Count, 3).
End
(xlUp).Row
Cells(LetzteZeile,
"C"
).
Select
ActiveCell.Offset(1, 0).
Select
ActiveCell.Offset(0, -1).
Select
ActiveCell.Offset(0, -1).
Select
Datum = ActiveCell
Windows(
"Makro_Testmappe2.xlsm"
).Activate
Sheets(
"Tabelle1"
).
Select
Cells.Find(What:=Datum, After:=ActiveCell, LookIn:= _
xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext _
, MatchCase:=
False
, SearchFormat:=
True
).Activate
End
Sub