Re: workbooks nicht windows
25.03.2003 16:21:39
Heiko F.
Hallo Nike,
leider muß ich jetzt heim - vom Rechner weg-
werde Dich aber morgen persönlich ansprechen , es sollte man nicht machen , aber ich hoffe Du entschuldigst das, denn es geht leider wieder nicht
Trotzdem Danke das Du so viel Zeit für mein Problem opferst!
Ich glaube mir ist da noch was eingefallen.
Ich wollte die ZelleA1 des FP02.04.2003.xls kopieren und in die Suchanweisung der Monatsprognose.xls einfügen , deshalb :Workbooks(a).Range("A1").Copy
Ich habe es mit dem Recorder aufgezeichnet.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
Workbooks(a).Range("A1").Copy
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