Hey Danke ^^
Datei A
http://www.file-upload.net/download-4760669/Datei-A.xlsx.html
(
Datei-A.xlsx
)
Datei B
http://www.file-upload.net/download-4760671/Datei-B.xlsx.html
(
Datei-B.xlsx
)
Ich habe auch herausgefunden das mein Problem mit der copy funktion gelöst werden könnte wenn man eine schleife drunter bastelt
mein weiterer Ansatz
Sub Makro1()
'
' Makro1 Makro
'
'
' Windows("Produktionsauswertung_test06.09.2012.xlsx").Activate
' Selection.Copy
' Windows("Batchverbrauchrev1_test06.09.2012.xls").Activate
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
'Windows("Produktionsauswertung_test06.09.2012.xlsx").Activate'
' Range("F3").Select
' Application.CutCopyMode = False
' Selection.Copy
' Windows("Batchverbrauchrev1_test06.09.2012.xls").Activate
'Range("B2").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' ' :=False, Transpose:=False
' Windows("Produktionsauswertung_test06.09.2012.xlsx").Activate
' Range("G3").Select
' Application.CutCopyMode = False
'Selection.Copy
' Windows("Batchverbrauchrev1_test06.09.2012.xls").Activate
' Range("B3").Select
' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
' Range("C4").Select
' Application.CutCopyMode = False
' Selection.Copy
' Windows("Produktionsauswertung_test06.09.2012.xlsx").Activate
'Range("N3").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
' :=False, Transpose:=False
End Sub
[*]
[sup]
*Threadedit* 31.08.2012, 17:23:04
Admininfo: Hier Infos zu unserer Beitragsformatieung.[/sup]