VBA - Userform Button zusätzl PDF erstel
17.03.2020 13:43:51
Kevin
ich bräuchte mal Hilfe von euch.
Habe mich mal etwas an VBA gewagt und komme immer besser zu recht. Googlen hilft sehr, aber hier finde ich keine passende Lösung.
Ich habe eine UserForm erstellt, welche die Einträge in verschiedene Zellen kopiert sobald ich den Button "Speichern" drücke. Das funktioniert alles sehr gut.
Jetzt würde ich gerne noch ergänzen, dass, sobald das ganze kopiert wurde, eine PDF von einem Tabellenblatt erstellt wird.
In einem Extra Modul welches ich im nachhinein ausführe klappt das auch schon ganz gut. Aber ich habe jetzt schon verschiedene dinge Probiert das mit dem einen Klick zu kombinieren - vergebens.
Kann ich den Inhalt vom Modul irgendwie im Button mit unterbringen?
So, dass die Inhalte übertragen werden und anschließend (automatisch) eine PDF erstellt wird?
... Das ist der Code hinter dem Button aktuell (gekürzt):
Private Sub CommandButton_Speichern_Click()
'Erste freie Zeile
Dim last As Integer
Worksheets("Aufträge").Activate
last = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row + 1
'Artikel
Cells(last, 3).Value = ListBox_Artikel
End Sub
Und den Befehl vom Erstellen der PDF habe ich im Modul:
Sub PDFDatei()
ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat xlTypePDF, _
Filename:="C:UsersAlleZGG" & Sheets("Allgemein").Range("C5") & ".pdf"
End Sub
Gruß
Kevin
Anzeige