Herbers Excel-Forum - das Archiv

Laufzeitfehler 1004 im Macro

Bild

Betrifft: Laufzeitfehler 1004 im Macro
von: Fuger Gerhard

Geschrieben am: 16.03.2005 08:50:02
Hallo!
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
Bild

Betrifft: AW: Laufzeitfehler 1004 im Macro
von: u_
Geschrieben am: 16.03.2005 08:52:33
Hallo,
setze die TakeFocus-Eigenschaft des Buttons auf False.
Gruß
Bild

Betrifft: AW: Laufzeitfehler 1004 im Macro
von: Fuger Gerhard
Geschrieben am: 16.03.2005 10:17:35
Hallo!
Danke für den Tipp!
Funktioniert aber leider nicht; selber Fehler!
 Bild
Excel-Beispiele zum Thema "Laufzeitfehler 1004 im Macro"
Fortlaufende Suche unter Vermeidung eines Laufzeitfehlers