Hilfe bei Erweiterung meines Codes!
Thomas
ich wünsch erstmal allen frohe Ostern.
Folgendes, ich erstelle Pdf`s die in einem Verzeichnis gespeichert werden mit diesem Code.
Private Sub CommandButton2_Click()
Dim ArrDruck() As String
Dim Spstg As String
Dim i As Integer
ArrDruck = Split("Rechnung,Brief,Anpassung_NK", ",")
For i = 0 To UBound(ArrDruck)
With ThisWorkbook.Sheets(ArrDruck(i))
'.PrintOut copies:=0
If .Name = "Rechnung" Or .Name = "Brief" Or .Name = "Anpassung_NK" Then
If .Name = "Rechnung" Then
Spstg = "C:\Users\Das ist mein\Documents\Miete und NK\"
Else
Spstg = "C:\Users\Das ist mein\Documents\Miete und NK\Post\"
End If
'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:=Spstg & ActiveSheet.Range("L1") & "\" & ActiveSheet.Range("B4") & "_" & _
ActiveSheet.Range("B5").Text & "-" & Format(Now, "YYYY-MM-DD hh-mm-ss") & " PDF.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False 'True zum Anzeigen und False zum _
nicht Anzeigen der PDF
End If
End If
End With
Next
End Sub
Was ich noch gern haben möchte ist ob die Ordner in L1 schon vorhanden sind dann Speichern sonst anlegen und dann Speichern. In L1 steht \Straßenname\Mietername.Gruß Thomas aus Stuttgart