Sub PDF()
Dim strPfad As String, strDatei As String, strDatum As String
With Worksheets("Tabelle 1")
strPfad = .Range("K2")
strDatei = .Range("K3")
strDatum = .Range("K4")
If strPfad = vbNullString Then
MsgBox "Fehler: Fehlender Dateipfad in Tabelle1 Zelle K2."
Exit Sub
ElseIf Right(strPfad, 1) <> "\" Then
strPfad = strPfad & "\"
End If
If strDatei = vbNullString Then
MsgBox "Fehler: Fehlender Dateiname in Tabelle1 Zelle K3"
Exit Sub
End If
If strDatum = vbNullString Then
MsgBox "Fehler: Fehlendes Datum in Tabelle1 Zelle K4"
Exit Sub
End If
Sheets(Array("Tabelle 2", "Tabelle 3", "Tabelle 4", "Tabelle 5")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=strPfad & strDatei & "_" & strDatum, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Tabelle 2").Select
End With
End Sub