habe mir folgendes Makro aufgezeichnet:
Private Sub CommandButton1_Click()
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")). _
Select
Sheets("Tabelle1").Activate
Rows("2:18").Select
Selection.Copy
Workbooks.Open Filename:= _
"C:\Eigene Dateien\Company\Website.xls"
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")). _
Select
Sheets("Tabelle1").Activate
Rows("2:18").Select ---------------LAUFZEITFEHLER
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Annual average").Select
Range("A2").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("A2").Select
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Annual average").Select
End Sub
Leider bekomme ich an der o.g. Stelle ständig einen Laufzeitfehler, wenn ich das Makro über einen Button laufen lasse. Gehe ich im Einzelschritt (F8) vor, zeigt er mir den Fehelr nicht an! Hat jemand eine Idee, woran es liegen könnte?
Danke und Gruß
Martin