Excel VBA: Markierte Reiter als PDF drucken, jeder Reiter auf einer Seite.

Um in Excel VBA farbig markierte Arbeitsblätter in eine PDF-Datei zu drucken, wobei jedes Arbeitsblatt auf einer eigenen Seite dargestellt wird, kannst du den folgenden VBA-Code verwenden. Dieser Code durchläuft alle Arbeitsblätter, 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 Arbeitsblä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-Druck
ThisWorkbook.Sheets(sheetArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath & pdfFileName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "Es wurden keine farbigen Arbeitsblätter gefunden."
End If
End Sub
```

### Anleitung zur Verwendung:
1. Öffne Excel und drücke `ALT + F11`, um den VBA-Editor zu öffnen.
2. Füge ein neues Modul hinzu (`Einfügen` > `Modul`).
3. Kopiere den obigen Code in das Modul.
4. Schließe den VBA-Editor und kehre zu Excel zurück.
5. Führe das Makro aus (`ALT + F8`, wähle `PrintColoredSheetsToPDF` und klicke auf `Ausführen`).

Dieser Code erstellt eine PDF-Datei mit dem Namen "ColoredSheets.pdf" im gleichen Verzeichnis wie die Excel-Datei, die die farbig markierten Arbeitsblätter enthält, wobei jedes Arbeitsblatt auf einer eigenen Seite dargestellt wird.