Wie kann ich in Excel VBA die farbig markierten Reiter drucken und die Druckeinstellung so festlegen, dass das Blatt auf einer Seite dargestellt wird?

Um in Excel VBA die farbig markierten Blätter zu drucken und dabei die Druckeinstellungen so zu setzen, dass jedes Blatt auf einer Seite dargestellt wird, kannst du den folgenden Code verwenden. Dieser Code durchläuft alle Blätter in der Arbeitsmappe, prüft, ob sie farbig markiert sind, und stellt die Druckeinstellungen entsprechend ein.

```vba
Sub DruckeFarbigMarkierteBlätter()
Dim ws As Worksheet
Dim farbigMarkiert As Boolean

For Each ws In ThisWorkbook.Worksheets
' Überprüfen, ob das Blatt farbig markiert ist
If ws.Tab.Color <> xlNone Then
farbigMarkiert = True

' Druckeinstellungen setzen
With ws.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
.Orientation = xlPortrait ' oder xlLandscape für Querformat
End With

' Blatt drucken
ws.PrintOut
End If
Next ws

If Not farbigMarkiert Then
MsgBox "Es sind keine farbig markierten Blätter vorhanden."
End If
End Sub
```

Dieser Code führt die folgenden Schritte aus:

1. Er durchläuft alle Arbeitsblätter in der aktuellen Arbeitsmappe.
2. Er prüft, ob das Tab des Blattes eine Farbe hat (d.h. ob es farbig markiert ist).
3. Wenn das Blatt farbig markiert ist, werden die Druckeinstellungen so gesetzt, dass das Blatt auf eine Seite passt.
4. Schließlich wird das Blatt gedruckt.

Um den Code auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.