Excel VBA: Grüne markierte Reiter als PDF drucken, jedes Arbeitsblatt auf eine Seite darstellen.

Um in Excel VBA alle Arbeitsblätter, die grün markiert sind, in eine PDF-Datei zu drucken und jedes Arbeitsblatt auf eine Seite darzustellen, kannst du den folgenden VBA-Code verwenden:

```vba
Sub ExportGreenSheetsToPDF()
Dim ws As Worksheet
Dim pdfPath As String
Dim pdfFileName As String
Dim greenSheets As Collection
Set greenSheets = New Collection

' Pfad und Dateiname für die PDF-Datei festlegen
pdfPath = ThisWorkbook.Path & "\"
pdfFileName = "Grüne_Arbeitsblätter.pdf"

' Durchlaufe alle Arbeitsblätter und füge die grünen hinzu
For Each ws In ThisWorkbook.Worksheets
If ws.Tab.Color = RGB(0, 255, 0) Then ' Überprüfen, ob die Registerkarte grün ist
greenSheets.Add ws
End If
Next ws

' Wenn keine grünen Arbeitsblätter gefunden wurden
If greenSheets.Count = 0 Then
MsgBox "Es wurden keine grünen Arbeitsblätter gefunden.", vbExclamation
Exit Sub
End If

' Arbeitsblätter in eine PDF-Datei exportieren
Dim sheetArray() As String
ReDim sheetArray(1 To greenSheets.Count)

Dim i As Integer
For i = 1 To greenSheets.Count
sheetArray(i) = greenSheets(i).Name
greenSheets(i).PageSetup.FitToPagesWide = 1
greenSheets(i).PageSetup.FitToPagesTall = 1
Next i

' PDF exportieren
ThisWorkbook.Sheets(sheetArray).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath & pdfFileName, Quality:=xlQualityStandard

MsgBox "Die grünen Arbeitsblätter wurden erfolgreich als PDF gespeichert.", vbInformation
End Sub
```

### Erklärung des Codes:
1. **Sammlung der grünen Arbeitsblätter**: Der Code durchläuft alle Arbeitsblätter und fügt die hinzu, deren Registerkarte grün ist.
2. **PDF-Pfad und -Dateiname**: Der Pfad und der Name der PDF-Datei werden festgelegt.
3. **Seitenanpassung**: Jedes Arbeitsblatt wird so eingestellt, dass es auf eine Seite passt.
4. **Export**: Die ausgewählten Arbeitsblätter werden als PDF exportiert.

Um den Code auszuführen, öffne den VBA-Editor in Excel (Alt + F11), füge ein neues Modul hinzu und kopiere den Code dort hinein. Danach kannst du das Makro ausführen.