Register über Inputbox als PDF speichern

Sub SpeichernPDF() Sheets(Array("Tabelle2", "Tabelle3", "Tabelle4")).Select Sheets("Tabelle2").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Documents\Mappe1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Andy,
Du könntest eine Userform mit einer Listbox (multiselect einstellen) und wie im Beispiel mit einer Schaltfläche "Ausgaben" (CommandButton1) sowie einer Schaltfläche "Beenden" (CommandButton2) nutzen.
Beim Start der Userform würden die Tabellenblätter in die Listbox eingelesen.
Die Ausgabe der in der Listbox durch Anklicken selektierten Tabellenblätter im Beispielcode (der gesamte Code gehört in die Userform!!) könnte dann statt in eine MsgBox in ein PDF-File übergeben werden.
Beispielcode:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim Auswahl As String
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
MsgBox ListBox1.List(i) 'hier Dein Code zur Ausgabe als PDF
End If
Next i
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
For Each sh In ThisWorkbook.Worksheets
Me.ListBox1.AddItem sh.Name
Next
End Sub

Gruße
Jochen

Private Sub CommandButton1_Click() Dim i As Integer Dim Auswahl As String For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then MsgBox ListBox1.List(i) 'hier Dein Code zur Ausgabe als PDF ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Documents\" & Worksheets("Tabelle2").Range("A1").Value & "_" & Format(Range(" _ B1").Value, "dd.mm.yyyy") & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True End If Next i Unload Me End Sub

Private Sub CommandButton1_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then sh.ExportAsFixedFormat xlTypePDF, "C:\Users\Documents\" & Worksheets(sh.Name) _ .Range("A1").Value & "_" & Format(Range("B1").Value, "dd.mm.yyyy") End If Next i Unload Me End Sub

Private Sub CommandButton1_Click() Dim i As Integer For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then Sheets(ListBox1.List(i)).ExportAsFixedFormat xlTypePDF, _ "C:\Daten\temp\" & Worksheets(ListBox1.List(i)) _ .Range("A1").Value & "_" & Format(Worksheets(ListBox1.List(i)). _ Range("B1").Value, "dd.mm.yyyy") 'MsgBox ListBox1.List(i) End If Next i Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

Register über Inputbox als PDF speichern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

332 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Register über Inputbox als PDF speichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

332 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread