ich habe mir mit dem Makrorekorder folgendes aufgezeichnet.
Sub Import()
Workbooks.Open Filename:= _
"E:\Provisionen\VP´s Abrechnung\2004\" & PDat & "\0006 Jurczyk\Jurczyk.xls"
Range("H8").Select 'erste Zeile Tele 2 PK
Selection.Copy
ActiveWindow.Close
Range("G5").Select
ActiveSheet.Paste
Workbooks.Open Filename:= _
"E:\Provisionen\VP´s Abrechnung\2004\" & PDat & "\0006 Jurczyk\Jurczyk.xls" 'zweite Zeile Tele 2 BK
Range("H7").Select
Selection.Copy
ActiveWindow.Close
Range("H5").Select
ActiveSheet.Paste
Workbooks.Open Filename:= _
"E:\Provisionen\VP´s Abrechnung\2004\" & PDat & "\0006 Jurczyk\Jurczyk.xls"
Range("H5").Select
Selection.Copy
ActiveWindow.Close
Range("N5").Select
ActiveSheet.Paste
End Sub
Mein Problem ist es das Excel zum übertrag immer wieder die Tabelle öffnet und schließt. Dabei kommte es je nach Auslastung des Rechners,das Excel hängen bleibt.
Gibt es eine Möglichkeit das Makro so zu gestallten das nicht ständig geöffnet und geschlossen wird und das die Daten mit einem Schwung übernommen werden und aus der senkrechten in die wagerechte eingetragen werden kann.
Danke
Thomas