mappen per vba drucken
07.11.2022 16:15:41
fmeyburg@nports.de
ich arbeite mit einer Excel-Datei, in der ich täglich zwei Mappen (Tabellen) ausfülle und dann als pdf drucke und abspeicher.
Per VBA habe ich bereits einiges automatisiert. Jedoch muss ich bislang in beiden Mappen auf den button clicken.
Das möchte ich einfacher haben - ich möchte nur einen button drücken.
Mappe "WerftTagesbericht" (HAUPTMAPPE)
button eingerichtet
Name der pdf eingerichtet
Speicherort eingerichtet
etc.
Mappe "WerftTagesbericht_AN" (SEKUNDÄRMAPPE)
diese Mappe "WerftTagesbericht_AN" holt sich einige Daten aus der Mappe "WerftTagesbericht", soll jedoch unter eigenem Namen und an einem anderen Ort als pdf abgespeichert werden. auch hier habe ich den gleichen prozess wie in Mappe "WerftTagesbericht" (HAUPTMAPPE) geschrieben.
Jetzt möchte ich mit nuer einem Click beide Funktionen zusammenfügen.
Aber ich weiß nicht wie.
FORMEL Button "WerftTagesbericht" (HAUPTMAPPE)
Private Sub CommandButton1_Click()
'Speichert die Rechnung unter dem angegebenen Pfad in Dat A1 im Format PDF
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Range("PDF_SPEICHERPFAD").Value
SpeicherName = Speicherpfad & Format(Range("PDF_DATUM"), "yyyy-mm-dd") & Range("PDF_NAME") & ".pdf"
Sheets("WerftTagesbericht").ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Private Sub CommandButton1_Click()
'Speichert die Rechnung unter dem angegebenen Pfad in Dat A1 im Format PDF
Dim SpeicherName As String
Dim Speicherpfad As String
Speicherpfad = Range("PDF_SPEICHERPFAD_AN").Value
SpeicherName = Speicherpfad & Range("PDF_DATUM_AN") & Range("PDF_NAME_AN") & ".pdf"
Sheets("WerftTagesbericht_AN").ExportAsFixedFormat Type:=xlTypePDF, Filename:=SpeicherName, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Für Eure Hilfe wäre ich sehr dankbar!
hier gehts zur datei https://www.herber.de/bbs/user/156072.xlsm
Gruß
Frank