Excel VBA: Farbig markierte Reiter als PDF drucken, jedes Arbeitsblatt auf einer Seite darstellen und erste Seite Kopfzeile beschriften.

Um in Excel VBA farbig markierte Arbeitsblätter in eine PDF-Datei zu drucken, wobei jedes Arbeitsblatt auf einer Seite dargestellt wird und die erste Seite eine Kopfzeile hat, kannst du den folgenden VBA-Code verwenden:

```vba
Sub PrintColoredSheetsToPDF()
Dim ws As Worksheet
Dim pdfPath As String
Dim pdfFileName As String
Dim firstPageHeader As String
Dim pdfSheets As String
Dim firstSheet As Boolean

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

' Kopfzeile für die erste Seite festlegen
firstPageHeader = "Mein Kopfzeilentext"

' Variable für die PDF-Sheets initialisieren
pdfSheets = ""
firstSheet = True

' Durchlaufe alle Arbeitsblätter
For Each ws In ThisWorkbook.Worksheets
' Überprüfen, ob das Arbeitsblatt farbig markiert ist
If ws.Tab.Color <> RGB(255, 255, 255) Then ' Weiß ist nicht markiert
' Füge das Arbeitsblatt zur PDF-Liste hinzu
If firstSheet Then
pdfSheets = ws.Name
firstSheet = False
Else
pdfSheets = pdfSheets & "," & ws.Name
End If

' Kopfzeile für das erste Arbeitsblatt hinzufügen
If ws.Index = 1 Then
ws.PageSetup.CenterHeader = firstPageHeader
End If

' Drucke das Arbeitsblatt als PDF
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath & pdfFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
Next ws

' PDF-Datei zusammenführen (optional, erfordert zusätzliche Bibliotheken)
' Hier könnte ein Code zum Zusammenführen der PDFs eingefügt werden, falls nötig.

MsgBox "Die PDF-Datei wurde erstellt: " & pdfPath & pdfFileName
End Sub
```

### Hinweise:
1. **Kopfzeile**: Die Kopfzeile wird nur für das erste Arbeitsblatt gesetzt. Du kannst die Logik anpassen, wenn du eine andere Kopfzeile für jedes Arbeitsblatt möchtest.
2. **PDF-Erstellung**: Der Code erstellt eine PDF-Datei für jedes farbig markierte Arbeitsblatt. Wenn du alle Arbeitsblätter in einer einzigen PDF-Datei haben möchtest, musst du die PDF-Dateien nach der Erstellung zusammenführen, was zusätzliche Bibliotheken erfordern kann.
3. **Farbüberprüfung**: Der Code überprüft, ob die Registerkarte des Arbeitsblatts eine andere Farbe als Weiß hat, um festzustellen, ob es farbig markiert ist. Du kannst die RGB-Werte anpassen, um andere Farben zu berücksichtigen.

Stelle sicher, dass du die Makros in Excel aktiviert hast, um diesen Code auszuführen.