Makro mit FormatConditions - Excel-Bug?
05.05.2009 17:55:00
Martin
nach drei Stunden Herumprobieren bin ich der Verzweifelung nahe.
Situation:
Ich habe ein Makro geschrieben, welches eine "Bedingte Formatierung" auf einen Zellenbereich anwendet, eine Seitenvorschau erzeugt und anschließend die Bedingte Formatierung wieder löscht.
Das Problem:
Wenn ich die Seitenvorschau verlasse, kann ich das Makro weiterhin anwenden. Aber wenn ich aus der Seitenvorschau heraus die Seite drucke, geht das Makro kein zweites Mal. Wenn das Makro (nachdem aus der Seitenvorschau heraus gedruckt wurde) erneut aufgerufen wird, wird die Bedingte Formatierung nicht mehr angewendet. Erst wenn Excel komplett neu gestartet wird, geht das Makro wieder (...bis zum ersten Druck aus der Seitenvorschau heraus).
Ist das ein Excel-Bug oder mache ich einen Fehler?
Wäre für Lösungsvorschläge sehr dankbar.
Hier das Makro:
Sub Ausdruck()
Dim Daten As Range
Set Daten = ActiveSheet.Range("B7:F23") 'Zellenbereich für Bedingte Formatierung festlegen
'Bedingte Formatierung festlegen
Daten.FormatConditions.Add Type:=xlExpression, Formula1:="=ZEILE()=UNGERADE(ZEILE())"
Daten.FormatConditions(1).Interior.ColorIndex = 50
ActiveSheet.PrintPreview 'Druckvorschau
Daten.FormatConditions.Delete 'Bedingte Formatierung löschen
End Sub