Tabellenblätter auswählen, Option Button

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich meine damit:
zur AUswahl der Tabellenblätter verwende ich folgenden COde
A150 = 1 (1=ausdrucken) steht für Tabellenblatt Januar
A151 = 1 (1=ausdrucken) steht für Tabellenblatt Februar
A152 = 0 (0=nicht ausdrucken) steht für Tabellenblatt März
wenn ich Januar auswählen möchte dann :
If CheckBox1.Value = True Then
Worksheets("41").Range("A150") = "1"
Else
If CheckBox1.Value = False Then
Worksheets("41").Range("A150") = "0"
End If
wenn ich Februar auswählen möchte dann :
If CheckBox2.Value = True Then
Worksheets("41").Range("A151") = "1"
Else
If CheckBox2.Value = False Then
Worksheets("41").Range("A151") = "0"
End If
wenn ich Märzauswählen möchte dann :
If CheckBox3.Value = True Then
Worksheets("41").Range("A152") = "1"
Else
If CheckBox3.Value = False Then
Worksheets("41").Range("A152") = "0"
End If
wenn ich alles ausgewählt habe, möchte ich über eine Schaltfläche die festgelegten Tabellenblätter (in diesem Fall: Januar und Februar ausdrucken lassen.
Und für diesen Code weiss ich keinen Ansatz oder Lösung.
Danke für deine Mühen und Geduld.

Private Sub CommandButton1_Click() Dim ctr As Control, arrBlätter() As String, i As Long For Each ctr In Me.Controls If TypeName(ctr) = "CheckBox" Then If ctr Then ReDim Preserve arrBlätter(i) arrBlätter(i) = ctr.Caption i = i + 1 End If End If Next ctr Me.Hide Sheets(arrBlätter).PrintPreview Me.Show End Sub

Private Sub CommandButton1_Click() Dim ctr As Control, arrBlätter() As String, i As Long For Each ctr In Me.Controls If TypeName(ctr) = "CheckBox" Then If ctr Then ReDim Preserve arrBlätter(i) arrBlätter(i) = ctr.Caption i = i + 1 End If End If Next ctr For i = 0 To UBound(arrBlätter) With Sheets(arrBlätter(i)) 'Speicherpfad anpassen .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Ordner\Unterordner\" & .Name & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False End With Next i End Sub

Hallo zusammen,
Brauchte erneut Hilfe für den schon bereits vorgefertigten Code eurerseits. Ich habe alles angepasst und funktioniert super. Danke hierfür.
Jetzt bräuchte ich die Option nach dem die Tabellenblätter anzeigt werden diese als PDF zu speichern. Meinen Code füge ich hinzu.
Wäre toll wenn mir jemand zeigen könnte warum die Datei nicht als PDF gespeichert wird.
On Error GoTo Fehlerbehandlung
Dim ctr As Control, arrBlätter() As String, i As Long 'der Code ist nicht von mir!
For Each ctr In Me.Controls
If TypeName(ctr) = "CheckBox" Then
If ctr Then
ReDim Preserve arrBlätter(i)
arrBlätter(i) = ctr.Caption
i = i + 1
End If
End If
Next ctr
Me.Hide
sheets(arrBlätter).PrintPreview
Me.Show
'hier folgt mein Code:
Dim strPfad As String, strname As String, strFilname As String
strPfad = "Y:\05\2021\" & Worksheets("41").Range("A102") \ ""
strname = Worksheets("41").Range("A100") & "_" & Date & ".pdf"
strFilename = strPfad & strname
strFilename = Application.GetSaveAsFilename(InitialFileName:=strFilename, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
If strFilename False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFilename, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
Exit Sub
End If
Fehlerbehandlung:
Worksheets("41").Select
Range("D30").Select
ActiveWindow.SmallScroll Down:=-200
Dim wbk As Worksheet
For Each wbk In ActiveWorkbook.Worksheets
wbk.Protect ("123")
Next wbk
ActiveWorkbook.Protect Password:="1234"
Exit Sub
Wo liegt mein Fehler? Um Tipps und Hilfen wäre ich dankbar..

Beliebteste Forumthreads (12 Monate)

Tabellenblätter auswählen, Option Button

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblätter auswählen, Option Button

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread