guten Morgen erstmal ,
ich wollte mit copy das das Datum (FP02.04.2003.xls) in Monatsprognose.xls als Suchbegriff benutzt wird.
Es soll das Datum aus FP02.04.2003.xls , und dann auch folgende 03,04,usw. , benutzt werden , um es in Monatsprognose.xls zu suchen , da ich denn nochfolgenden Wert benötige. Bis jetzt bin ich mit Recorder Und Nike soweit gekommen.
Dim datFind As Date
a = "FP" & Range("A1") & ".xls"
datFind = CDate(Range("A1")) + CDate("0:15")
Workbooks.Open Filename:= _
"C:\Datenauswertungen\Datenauswertung 2003\Monatsplanung\April\Monatsprognose.xls" _
, UpdateLinks:=3
Windows(a).Range("A1").Copy
Windows("Monatsprognose.xls").Range("A1").Paste
Windows("Monatsprognose.xls").Range("A1").Cells.Find(What:=datFind, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Offset(0, 10).Range("A1:A96").Select
ActiveCell.Offset(0, 10).Range("A1:A96").Select
Application.CutCopyMode = False
Selection.Copy
Windows(a).Activate
ActiveCell.Offset(8, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(0, 1).Range("A1").Select
Windows("Monatsprognose.xls").Activate
ActiveCell.Offset(0, 40).Range("A1:A96").Select
Application.CutCopyMode = False
Selection.Copy
Windows(a).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
Windows("Monatsprognose.xls").Activate
ActiveWindow.Close
End Sub