Excel VBA: Farbige markierte Reiter, als PDF drucken, jedes Arbeitsblatt auf eine Seite darstellen. Erste Seite Kopfzeile beschriften?

Um in Excel VBA ein Makro zu erstellen, das den aktiven Reiter (das aktive Arbeitsblatt) als PDF-Datei druckt, jedes Arbeitsblatt auf eine Seite darstellt und die erste Seite mit einer Kopfzeile beschriftet, kannst du den folgenden Code verwenden:

```vba
Sub ExportActiveSheetToPDF()
Dim ws As Worksheet
Dim pdfPath As String
Dim pdfFileName As String
Dim headerText As String

' Aktives Arbeitsblatt festlegen
Set ws = ActiveSheet

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

' Kopfzeile für die erste Seite festlegen
headerText = "Deine Kopfzeile hier"

' Kopfzeile hinzufügen
With ws.PageSetup
.CenterHeader = headerText
.Orientation = xlPortrait
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

' Arbeitsblatt als PDF speichern
ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath & pdfFileName, Quality:=xlQualityStandard

' Kopfzeile zurücksetzen (optional)
ws.PageSetup.CenterHeader = ""

MsgBox "Das Arbeitsblatt wurde als PDF gespeichert: " & pdfPath & pdfFileName
End Sub
```

### Erklärung des Codes:
1. **Aktives Arbeitsblatt**: Das Makro arbeitet mit dem aktuell aktiven Arbeitsblatt.
2. **PDF-Pfad und -Dateiname**: Der Pfad und der Dateiname für die PDF-Datei werden festgelegt.
3. **Kopfzeile**: Die Kopfzeile wird für das Arbeitsblatt konfiguriert.
4. **Seitenlayout**: Das Arbeitsblatt wird so eingestellt, dass es auf eine Seite passt.
5. **Export als PDF**: Das Arbeitsblatt wird als PDF-Datei gespeichert.
6. **Rücksetzen der Kopfzeile**: Optional kann die Kopfzeile nach dem Export zurückgesetzt werden.

Du kannst den Text in `headerText` anpassen, um die gewünschte Beschriftung für die Kopfzeile festzulegen.