Excel VBA: Grün markierte Reiter sollen in eine PDF-Datei gedruckt werden, jedes Arbeitsblatt auf eine Seite darstellen und die erste Seite mit einer Kopfzeile beschriften.

Um in Excel VBA alle grün markierten Arbeitsblätter als PDF 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 PrintGreenSheetsToPDF()
Dim ws As Worksheet
Dim pdfPath As String
Dim pdfFileName As String
Dim firstPageHeader As String
Dim pdfSheets As Collection
Set pdfSheets = New Collection

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

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

' Durchlaufe alle Arbeitsblätter
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color = RGB(0, 255, 0) Then ' Überprüfen, ob das Blatt grün markiert ist
pdfSheets.Add ws.Name
End If
Next ws

' Wenn keine grünen Blätter gefunden wurden
If pdfSheets.Count = 0 Then
MsgBox "Es wurden keine grün markierten Blätter gefunden."
Exit Sub
End If

' Erstelle eine neue PDF-Datei
Dim pdfFile As String
pdfFile = pdfPath & pdfFileName

' Setze die Kopfzeile für das erste Blatt
With ThisWorkbook.Worksheets(pdfSheets(1))
.PageSetup.CenterHeader = firstPageHeader
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = 1
End With

' Drucken der grünen Blätter in eine PDF-Datei
Dim sheetName As Variant
For Each sheetName In pdfSheets
ThisWorkbook.Worksheets(sheetName).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfFile, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next sheetName

MsgBox "Die PDF-Datei wurde erfolgreich erstellt: " & pdfFile
End Sub
```

### Hinweise:
1. **Kopfzeile**: Die Kopfzeile wird nur für das erste grün markierte Arbeitsblatt gesetzt. Du kannst die Kopfzeile nach Bedarf anpassen.
2. **PDF-Pfad**: Die PDF-Datei wird im gleichen Verzeichnis wie die Excel-Datei gespeichert. Du kannst den Pfad anpassen, wenn nötig.
3. **Farbüberprüfung**: Der Code überprüft, ob die Registerkarte des Arbeitsblatts grün ist (RGB(0, 255, 0)). Du kannst die RGB-Werte anpassen, um andere Farben zu überprüfen.

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