Laufzeitfehler '1004'
24.07.2005 09:58:47
Marc
Hallo alle miteinander, ich hoffe, ihr könnt mir dabei helfen, obige Fehlermeldung zu beseitigen!
Habe mit dem Macrorecorder folgendes Macro aufgenommen, das für sich einwandfrei funktioniert:
Sub Sortieren_1()
'
' Sortieren_1 Makro
' Makro am 16.12.2004 von Marc aufgezeichnet
'
'
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1").Select
Sheets("Umsätze").Select
Sheets("Umsätze").Name = "Umsätze"
Rows("2:2").Select
ActiveWindow.ScrollRow = 232
Rows("2:251").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Sheets("Personenregister").Select
End Sub
Für diese Sortier-Routine wollte ich dann einen Butten mit Hilfe der Steuerelemente-Toolbox machen, der dem entsprechend dann mit folgendem Code versehen wurde:
Private Sub CommandButton1_Click()
' CommandButton1_Click Makro
' Makro am 16.12.2004 von Marc aufgezeichnet
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B1").Select
Sheets("Umsätze").Select
Sheets("Umsätze").Name = "Umsätze"
Rows("2:2").Select
ActiveWindow.ScrollRow = 232
Rows("2:251").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
Sheets("Personenregister").Select
End Sub
Tja und wenn ich nun auf den Button klicke, kommt eben jene Fehlermeldung. Im Debug-Modus wird angezeigt (Gelbe Hinterlegung), dass die Zeile [Rows("2:2").Select] nicht korrekt ist. Wenn ich diese Zeile und auch die Zeile [ActiveWindow.ScrollRow = 232] lösche, weil sie ja eigentlich nicht benötigt werden, ist die Zeile [Rows("2:251").Select] gelb hinterlegt. Was mache ich falsch?
Vielen Dank im Voraus!
Marc