Macro mit Schaltfläche funktioniert nicht
16.03.2005 14:04:13
Fuger
Das unten angeführte Macro funktioniert nur wenn ich es über Macro ausführen starte. Wenn ich es über eine Schaltfläche (Übergabe Klick) starte funktioniert es nicht.
Fehlermeldung: Laufzeitfehler 1004; Die Select Methode des Range-Objekt konnte nicht ausgeführt werden.
Debuggen: Range ("J2").Select
Private Sub Übergabe_Click()
' Übergabe Makro
' Makro am 14.02.2005 von Fuger aufgezeichnet
ActiveWorkbook.Save
Selection.AutoFilter Field:=10, Criteria1:="<>"
Rows("2:102").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Range("J2").Select
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Dokumente und Einstellungen\Administrator\Desktop\Kabel\Übergabe\Übergabe_" & _
Format(Now, "DD" & "MM" & "YY" & "_" & "hh" & "_" & "mm") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Range("A4:C102").Select
Selection.ClearContents
Range("I4:J102").Select
Selection.ClearContents
Selection.AutoFilter Field:=10
ActiveWindow.SmallScroll Down:=-21
Application.Goto Reference:="Sortierbereich"
ActiveWindow.SmallScroll Down:=-99
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("B3") _
, Order2:=xlAscending, Key3:=Range("I3"), Order3:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A22").Select
ActiveWorkbook.Save
End Sub
Bitte um Hilfe!
Gerhard