Office: Auswahl der Arbeitsblätter zum Drucken mit einem Userform

Hallo Zusammen

Ich hätte da eine kleine Frage:
Wie kann ich mit einem Userform und Checkboxen, mehrere Arbeitsblätter auf aktiviert schalten?
Ich möchte gerne eine Userform gestalten, mit welchem ausgewählt werden kann, welche Arbeitsblätter gedruckt werden sollen.

Besten Dank für euere Hilfe

 

Hallo!

Das könnte in etwa so aussehen:

Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
SelectedSheets.PrintOut

 

Hallo schatzi

Ja, das mache ich auch so, nur weiss ich nicht, wie ich ich das mit einem Userform und checkboxen auswählen kann. Mir fehlt da der Ansatz.
Ich dachte zuerst, dass ich was zusammensetze, aber dann habe ich das Problem mit dem Komma, welches beim letzten Sheet zu viel ist.

 

Hallo!

Du setzt die Blätter per Stringvariable zusammen?
Dann lösche das letzte Zeichen so:

strBlätter = Left(strBlätter, Len(StrBlätter) - 1)

 

Hallo Schatzi

Merci für deine Antwort.
Leider funktioniert das so nicht ganz.
Ich habe ein Problem mit diesen """", da fehlen mir mit dieser Variante min. zwei und ich weiss nicht wie ich die herbekommen soll....
Gruss

Code:

Private Sub CommandButton1_Click()
Dim drucken1, drucken As String
drucken1 = drblattb1 & drblattb2
drucken = Left(drucken1, Len(drucken1) - 1)
Sheets(Array(drucken)).Select
      Unload Me
ActiveWindow.SelectedSheets.PrintPreview
End Sub

 

Hallo!

Die Sache mit den Gänsefüßchen funktioniert bei mir so:

Code:

Sub Test()
Dim x$, y$, Alles$
x = "Tabelle1"
y = "Tabelle2"
Alles = """" & x & """,""" & y & """"
End Sub

 

Also, ich hab das mal so versucht. eigentlich sollte alles stimmen, aber was kleines ist noch faul... es kommt immer: index ausserhalb des gültigen bereichs (sorry, weiss leider nichts mit dem anzufangen, meine vba kenntnisse sind nur schwach)

dani

 

Hallo!

"Index außerhalb des gültigen Bereichs" heißt, dass du versuchst ein Blatt abzufragen, welches nicht existiert.
Z.B. in einer 12-blättrigen Mappe nach Sheet(37) zu fragen.