Fehlermeldung: Laufzeitfehler 1004
Auf die Datei konnte nicht zugegriffen werde.
Sub Übergabe()
' Ü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\Kaindl\Übergabe\Überg" & Format(Now, "ddmmyy_hh:mm") & ".xls"
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
Das ist das gesamte Makro. Vieleicht findet jemand den Fehler! Datenspeicher ist nicht möglich.
Danke
Fuger Gerhard