Excel VBA: Reiter, die farbig markiert sind, Druckeinstellung auf eine Seite darstellen und eine 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 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 & "\ExportedSheets.pdf"

' Durchlaufe alle Arbeitsblätter und füge die farbig markierten hinzu
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 farbig markierte Blätter gefunden wurden
If coloredSheets.Count > 0 Then
' Druckeinstellungen 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

' Exportiere die Arbeitsblätter als PDF
ThisWorkbook.Sheets(sheetArray).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, Quality:=xlQualityStandard

MsgBox "PDF wurde erfolgreich erstellt: " & pdfPath
Else
MsgBox "Keine farbig markierten Arbeitsblätter gefunden."
End If
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 Registerkartenfarbe nicht weiß ist.
2. **Druckeinstellungen**: Für jedes gefundene Arbeitsblatt werden die Druckeinstellungen so angepasst, dass es auf eine Seite passt.
3. **PDF-Erstellung**: Die ausgewählten Arbeitsblätter werden als PDF im gleichen Verzeichnis wie die Arbeitsmappe gespeichert.

### 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.