Mit folgendem Code versuche ich,
den Inhalt der Zeilen 4 und 5 des VORletzten Arbeitsblattes einer Excel-Datei
in eine andere Excel-Datei zu kopieren:
Sub Import()
Dim wsh As Worksheet
Workbooks.Open Filename:= _
"C:\Documents and Settings\sz710f\Desktop\DWA2\CH Overview until July 07.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Number = ActiveWorkbook.Worksheets.Count
Number = Number - 1
ActiveWorkbook.Worksheets(Number).Rows("4:5").Select
wsh = ActiveWorkbook.Worksheets(Number).name
Selection.Copy
Windows("Book1").Activate
Range("a4") = wsh
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").EntireColumn.AutoFit
End Sub
Leider funktioniert es nicht, ich bekomme die Fehlermeldung Type Mismatch.
Scheinbar kann er mit Number nix anfangen...
Wie kann ich auf das Workbook mit dem Index Number, zb 20, zugreifen?
Wer kann mir helfen?
Danke und Gruss,
Gromminger