Problem mit Range- Objekt
22.08.2007 17:07:00
Pete
beim Ausführen des unten genannten Codes wird ständig eine Fehlermeldung beim Range- Objekt geworfen! (Range("L:L,O:O").Select)
Weiß jemand von euch, wie man das beheben könnte?
Danke für eure Antworten im Voraus!
Gruß
Pete
Sheets("tabelle2").Select
ActiveSheet.Cells.Select
Selection.Clear
Windows("Kopie von CutOverplan_LS3_WAT_MUC_aktuell.xls").Activate
Sheets("Aktivitäten").Select
Selection.AutoFilter Field:=9
Selection.AutoFilter Field:=9, Criteria1:="=*Prüfung durch FB*", Operator _
:=xlAnd
' ActiveSheet.Columns("L:L").Select
Range("A4:AF1017").Sort Key1:=Range("L4"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Windows("Kopie von CutOverplan_LS3_WAT_MUC_aktuell.xls").Activate
Range("L:L,O:O").Select
Selection.Copy
ActiveWindow.WindowState = xlMinimized
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Columns("B:B").Select
ActiveSheet.Selection.Cut Destination:=Columns("C:C")
ActiveSheet.Columns("A:A").Select
ActiveSheet.Selection.Cut Destination:=Columns("B:B")
ActiveSheet.Columns("C:C").Select
ActiveSheet.Selection.Cut Destination:=Columns("A:A")
ActiveSheet.Columns("A:A").Select
ActiveWorkbook.Save