Hallo Thomas,

Es ist immer gut, noch eine Nacht über manche Dinge zu schlafen wie es scheint:

Sub Kunden()

Dim Path As String
Path = ">>Pfad einfügen<<" 'Speicherpfad der PDF
        
        
Select Case MsgBox("Sind Sie Kunde A?", vbQuestion + vbYesNo, "Kunde")
        Case vbYes
            ActivePresentation.Slides.Range(Array(1, 3)).Select  'gewünschte Seitenzahlen für Kunde_A eingeben
            ActiveWindow.Panes(1).Activate
            ActivePresentation.ExportAsFixedFormat _
                Path:=Path & "\" & "Kunde_A.pdf", _
                FixedFormatType:=ppFixedFormatTypePDF, _
                RangeType:=ppPrintSelection
        Case vbNo
            Select Case MsgBox("Sind Sie Kunde B?", vbQuestion + vbYesNo, "Kunde")
                Case vbYes
                    ActivePresentation.Slides.Range(Array(2, 4)).Select ' gewünschte Seitenzahlen für Kunde_B eingeben
                    ActiveWindow.Panes(1).Activate
                    ActivePresentation.ExportAsFixedFormat _
                        Path:=Path & "\" & "Kunde_B.pdf", _
                        FixedFormatType:=ppFixedFormatTypePDF, _
                        RangeType:=ppPrintSelection
                Case vbNo
                    MsgBox "Sie haben keinen Kunden ausgewählt!", vbExclamation, "Fehlgeschlagen"
            End Select
End Select

End Sub

Wie gesagt empfehle ich in Powerpoint einfach einen Event-Button zu erstellen (findest du bei Einfügen --> Formen --> Interaktive Schaltflächen). Wenn man diesen einfügt wird eigentlich schon automatisch gefragt, was der machen soll --> Da einfach das Makro wählen.

Ist vielleicht nicht die schönste Lösung, aber immerhin funktioniert sie.

Gruß Mark