Hilfe bei Makro
11.05.2005 08:57:42
Andre
habe folgendes Makro aufgezeichnet. Dieses Makro möchte ich in der persönlichen Arbeitsmappe speichern, damit es für mehrere Excel-Dateien gilt. Leider läuft es nicht, wenn es in der PERSONL gespeichert ist, sondern nur wenn ich es in der aktiven Datei speicher und von dort laufen lasse. VBA zeigt mir immer die dritte Zeile als Fehler an. (Active cell.......)
Kann mir jemand helfen?
Danke im Voraus
André
Sub OPMCTRENNEN()
Range("M2").Select
ActiveCell.FormulaR1C1 = "=RIGHT(RC[-12],2)"
Range("M2").Select
Selection.Copy
Range("A2").Select
Selection.End(xlDown).Select
Range("M4370").Select
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste
Columns("M:M").Select
Range("M4354").Activate
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Cells.Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("M2"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("H:H").Select
Selection.NumberFormat = "dd/mm/yy"
Columns("L:L").Select
Selection.NumberFormat = "dd/mm/yy"
Range("A1").Select
End Sub