hab da noch ein problem. Mit unten stehendem Code was ich schon in einer anderen Datei benütze wollte ich in meiner neuen Datei zum laufen bringen aber er erzeugt mir nicht die gewünschten PDF.
Private Sub CommandButton1_Click()
Dim ArrDruck() As String
Dim i As Integer
ArrDruck = Split("Rechnung, Rechnung_Kopie,Brief", ",")
For i = 0 To UBound(ArrDruck)
With ThisWorkbook.Sheets(ArrDruck(i))
.PrintOut copies:=1
If .Name = "Rechnung" And "Brief" Then >> mit "Rechnung" _
gehts
'Blatt ggf. als PDF-Datei speichern und anzeigen
If MsgBox(Prompt:="Blatt """ & .Name & """ als PDF-Datei exportieren?", _
Buttons:=vbQuestion + vbYesNo, Title:="PDF-Datei erstellen") = vbYes Then
.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Users\Das ist mein Pfad.............PDF Dateien\" & ActiveSheet.Range( _
_
"B4") & "_" & ActiveSheet.Range("B5").Text _
& "-" & Format(Now, "YYYY-MM-DD hh-mm-ss") & " PDF.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End If
End If
End With
Next
End Sub
Wie bekomme ich das hin das der Code mir für die Rechnung eine PDF erzeugt und für den Brief auch aber mit einem anderen Pfad?
Kann mir da jemand helfen?
Gruß Thomas