Excel VBA: Farbige Reiter zu einer PDF-Datei drucken, jedes Arbeitsblatt auf eine Seite darstellen und die erste Seite mit einer Kopfzeile beschriften.

Um in Excel VBA farbig markierte Arbeitsblätter in eine PDF-Datei zu drucken und dabei sicherzustellen, dass 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 pdfFullPath As String
Dim firstSheet As Boolean

' Pfad und Dateiname für die PDF-Datei festlegen
pdfPath = "C:\DeinPfad\" ' Ändere den Pfad entsprechend
pdfFileName = "FarbigMarkierteBlätter.pdf"
pdfFullPath = pdfPath & pdfFileName

' PDF-Datei erstellen
Dim pdfSheets As Collection
Set pdfSheets = New Collection

' Durchlaufe alle Arbeitsblätter
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color <> RGB(255, 255, 255) Then ' Überprüfen, ob das Arbeitsblatt farbig markiert ist
pdfSheets.Add ws.Name
End If
Next ws

' Wenn farbig markierte Blätter vorhanden sind
If pdfSheets.Count > 0 Then
' Kopfzeile für die erste Seite hinzufügen
firstSheet = True
For Each ws In pdfSheets
With ThisWorkbook.Worksheets(ws)
If firstSheet Then
.PageSetup.CenterHeader = "Deine Kopfzeile" ' Kopfzeile festlegen
firstSheet = False
End If
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With
Next ws

' Arbeitsblätter als PDF drucken
ThisWorkbook.Worksheets(pdfSheets).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFullPath, Quality:=xlQualityStandard
MsgBox "PDF wurde erfolgreich erstellt: " & pdfFullPath
Else
MsgBox "Es wurden keine farbig markierten Arbeitsblätter gefunden."
End If
End Sub
```

### Hinweise:
1. **Pfad anpassen**: Ändere den `pdfPath` zu dem gewünschten Speicherort für die PDF-Datei.
2. **Kopfzeile**: Passe den Text in `CenterHeader` an, um die gewünschte Kopfzeile zu setzen.
3. **Farben**: Der Code überprüft, ob die Registerkarte des Arbeitsblatts eine andere Farbe als Weiß hat. Du kannst die RGB-Werte anpassen, um andere Farben zu berücksichtigen.

Führe diesen Code in einem Modul in deiner Excel-Arbeitsmappe aus, um die gewünschten Arbeitsblätter in eine PDF-Datei zu drucken.