Ich bekomme folgendes Makro leider nicht zum laufen.
Das Makro soll den Druckbereich erweitern, damit mein Bereich A1:Y48 auf ein Blatt paßt.
Allerdings kommt in der Zeile:
Worksheets("Gesamt").VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Die Fehlermeldung:
Anwendungs-oder Objektorientierter Fehler
' Makro1 Makro
' Makro am 16.12.2002 von Kurt aufgezeichnet
Worksheets("Gesamt").PageSetup.PrintArea = "$A$1:$Y$48"
If Worksheets("Gesamt").VPageBreaks.Count > 0 Then _
Worksheets("Gesamt").VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1
Application.Goto Worksheets("Gesamt").Range("A1"), True
Application.ScreenUpdating = True
Was ist falsch an diesem Makro ?
P.S.: das ist das erste mal, daß ich einen Druckbereich festlege
Gruß Kurt