Excel VBA: Farbige Reiter als PDF drucken, jedes Blatt auf eine Seite.

Um in Excel VBA nur die farbig markierten Blätter in eine PDF-Datei zu drucken und jedes Blatt auf eine Seite darzustellen, kannst du den folgenden Code verwenden. Dieser Code durchläuft alle Arbeitsblätter in der Arbeitsmappe, prüft, ob sie farbig markiert sind, und druckt sie dann in eine PDF-Datei.

```vba
Sub PrintColoredSheetsToPDF()
Dim ws As Worksheet
Dim pdfPath As String
Dim pdfFileName As String
Dim coloredSheets As Collection
Set coloredSheets = New Collection

' Pfad und Dateiname für die PDF-Datei festlegen
pdfPath = ThisWorkbook.Path & "\"
pdfFileName = "ColoredSheets.pdf"

' Durchlaufe alle Arbeitsblätter und prüfe auf Farbmarkierung
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color <> RGB(255, 255, 255) Then ' Überprüfen, ob die Registerkarte farbig ist
coloredSheets.Add ws
End If
Next ws

' Wenn farbige Blätter gefunden wurden, drucke sie in eine PDF-Datei
If coloredSheets.Count > 0 Then
Dim sheetArray() As String
ReDim sheetArray(1 To coloredSheets.Count)

Dim i As Integer
For i = 1 To coloredSheets.Count
sheetArray(i) = coloredSheets(i).Name
Next i

' PDF-Druckeinstellungen
With ThisWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath & pdfFileName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True, _
From:=1, To:=coloredSheets.Count, _
Sheets:=sheetArray
End With
Else
MsgBox "Es wurden keine farbig markierten Blätter gefunden."
End If
End Sub
```

### Hinweise:
1. **Farbmarkierung**: Der Code prüft, ob die Registerkarte des Arbeitsblatts eine andere Farbe als Weiß hat. Du kannst die RGB-Werte anpassen, um andere Farben zu berücksichtigen.
2. **PDF-Pfad**: Die PDF-Datei wird im gleichen Verzeichnis wie die Arbeitsmappe gespeichert. Du kannst den `pdfPath` anpassen, wenn du einen anderen Speicherort wünschst.
3. **Druckeinstellungen**: Der Code exportiert die Blätter als PDF und öffnet die Datei nach dem Erstellen.

Führe diesen Code in einem Modul in der VBA-Entwicklungsumgebung von Excel aus, um die gewünschten Blätter in eine PDF-Datei zu drucken.