Excel VBA: Farbige Reiter drucken und PDF erstellen.

Um in Excel VBA die farbig markierten Reiter (Arbeitsblätter) auszuwählen, die Druckeinstellungen so zu ändern, dass sie auf eine Seite passen, und anschließend eine PDF-Datei zu erstellen, kannst du den folgenden VBA-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 füge die farbig markierten hinzu
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color <> xlNone Then
coloredSheets.Add ws
End If
Next ws

' Wenn keine farbig markierten Blätter gefunden wurden
If coloredSheets.Count = 0 Then
MsgBox "Es wurden keine farbig markierten Blätter gefunden."
Exit Sub
End If

' Druckeinstellungen für jedes farbig markierte Blatt anpassen
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

ThisWorkbook.Sheets(sheetArray).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard

MsgBox "PDF wurde erfolgreich erstellt: " & pdfPath
End Sub
```

### Erklärung des Codes:
1. **Sammlung der farbig markierten Blätter**: Der Code durchläuft alle Arbeitsblätter und fügt die hinzu, deren Tab-Farbe nicht `xlNone` ist.
2. **Druckeinstellungen**: Für jedes farbig markierte Blatt werden die Druckeinstellungen so gesetzt, dass es auf eine Seite passt.
3. **PDF-Erstellung**: Die ausgewählten Blätter werden in eine PDF-Datei exportiert.

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

Stelle sicher, dass du die richtigen Berechtigungen hast, um auf den angegebenen Pfad zuzugreifen und die PDF zu speichern.