Excel VBA: farbig markierte Reiter drucken und PDF erstellen.

Um in Excel VBA die farbig markierten Reiter (Arbeitsblätter) auszählen, die Druckeinstellungen auf eine Seite zu setzen und ein PDF zu erstellen, kannst du den folgenden Code verwenden:

```vba
Sub ExportColoredSheetsToPDF()
Dim ws As Worksheet
Dim pdfPath As String
Dim coloredSheets As Collection
Set coloredSheets = New Collection

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

' Durchlaufe alle Arbeitsblätter und prüfe die Farbe
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color <> xlNone Then
coloredSheets.Add ws
End If
Next ws

' Wenn farbige Arbeitsblätter gefunden wurden
If coloredSheets.Count > 0 Then
' Druckeinstellungen für jedes farbige Arbeitsblatt festlegen
For Each ws In coloredSheets
With ws.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Next ws

' PDF erstellen
Dim sheetArray() As String
ReDim sheetArray(1 To coloredSheets.Count)

For i = 1 To coloredSheets.Count
sheetArray(i) = coloredSheets(i).Name
Next i

' Exportiere die farbigen Arbeitsblätter als PDF
ThisWorkbook.Sheets(sheetArray).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard
MsgBox "PDF wurde erfolgreich erstellt: " & pdfPath
Else
MsgBox "Keine farbigen Arbeitsblätter gefunden."
End If
End Sub
```

### Erklärung des Codes:
1. **Sammlung der farbigen Arbeitsblätter**: Der Code durchläuft alle Arbeitsblätter und fügt die hinzu, deren Tab-Farbe nicht `xlNone` ist.
2. **Druckeinstellungen**: Für jedes gefundene Arbeitsblatt werden die Druckeinstellungen so gesetzt, dass es auf eine Seite passt.
3. **PDF-Erstellung**: Die farbigen Arbeitsblätter werden als PDF in dem gleichen Verzeichnis wie die Arbeitsmappe gespeichert.

### Verwendung:
- Füge diesen Code in ein Modul in der VBA-Entwicklungsumgebung (Alt + F11) ein.
- Führe das Makro `ExportColoredSheetsToPDF` aus, um die PDF zu erstellen.

Stelle sicher, dass du die entsprechenden Berechtigungen hast, um auf den Speicherort zuzugreifen und die PDF zu erstellen.