Hi,
hab nochmal ne Frage. Unzwar möchte ich nur ein paar Sachen von einer Tabelle in ein anderes Tabellenblatt per Makro kopieren. Hab also ein Makro aufgezeichnet, aber immer wenn ich es abrufe gibt es den Fehler:
Laufzeitfehler `1004`:
Die ScrollRow-Eigenschaft des Windows-Objektes kann nicht festgelegt werden.
Keine Ahnung was das bedeuten soll. Wäre nett, wenn mir jmd sagen könnte woran der Fehler liegt.
Hier nochmal das Makro (is eigentlich immer nur Kopieren und Einfügen):
Range("C3").Select
Selection.Copy
Sheets("Archiv").Select
Range("A60000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("C5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Archiv").Select
Range("C60000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
Range("C9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Archiv").Select
Range("B60000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Tabelle1").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Range("G12:K93").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Archiv").Select
Range("D60000").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C60009").Select
Sheets("Tabelle1").Select
Range("H6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Archiv").Select
ActiveWindow.ScrollRow = -5472 ------------- hier zeigt er den Fehler an
ActiveWindow.ScrollRow = -5383
ActiveWindow.ScrollRow = -5294
ActiveWindow.ScrollRow = -5205
ActiveWindow.ScrollRow = -5116
ActiveWindow.ScrollRow = -5027
ActiveWindow.ScrollRow = -5116
ActiveWindow.ScrollRow = -5205
ActiveWindow.ScrollRow = -5294
ActiveWindow.ScrollRow = -5383
ActiveWindow.ScrollRow = -5472
ActiveWindow.ScrollRow = -5561
ActiveWindow.ScrollRow = -5650
ActiveWindow.SmallScroll Down:=158
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Range("I60081").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub