Sub Kunden()
Dim Path As String
Path = ">>Pfad einfügen<<"
Select Case MsgBox("Sind Sie Kunde A?", vbQuestion + vbYesNo, "Kunde")
Case vbYes
ActivePresentation.Slides.Range(Array(1, 3)).Select
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
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