Mit meiner Userform1 kann ich neue Einträge in eine Tabelle schreiben, oder Einträge löschen, Einträge bearbeiten indem ich sie in einer Listbox1 auswähle.
Als Zusatz kann ich auch ein sogenanntes "Datenblatt" erstellen. Wenn ich einen Button klicke, werden bestimmte TextBoxen auf ein weiteres Excel Blatt geschrieben und dies wird dann als PDF gespeichert mit folgendem Code:
'Relevante Informationen auf Datenblatt schreiben
Private Sub CommandButton30_Click()
ThisWorkbook.Worksheets("Datenblatt").Range("A4").Value = TextBox1.Value
ThisWorkbook.Worksheets("Datenblatt").Range("N4").Value = TextBox2.Value
ThisWorkbook.Worksheets("Datenblatt").Range("AA4").Value = TextBox3.Value
'Als PDF speichern
Sheets("Datenblatt").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & "\" & Range("A7") & ("_") & Range("A4").Value & Format(Date, "_DD-MM-
YYYY") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
Dies alles funktioniert super.Problem:
Bisher muss ich für jeden Eintrag in der ListBox1/Tabelle1 händisch den Eintrag in ListBox anklicken und dann den Button "Datenblatt" klicken, um für alle Einträge ein Datenblatt zu erstellen. Ich würde das gerne automatisieren, indem es einen neuen Button "Alle Datenblätter" gibt der für alle Einträge in der ListBox1 ein Datenblatt erstellt.
Gruß Oliver