Auswahl der Arbeitsblätter zum Drucken mit einem Userform :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2003] Auswahl der Arbeitsblätter zum Drucken mit einem Userform

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 01.06.2008, 16:22

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 01.06.2008, 23:16

Hallo!

Das könnte in etwa so aussehen:

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 02.06.2008, 07:30

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 02.06.2008, 09:28

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)

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 02.06.2008, 15:55

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 02.06.2008, 16:19

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

dan311
Newbie
Newbie

Anmeldedatum: 05.10.2007
Beiträge: 18

Verfasst am: 02.06.2008, 18:00

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

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 03.06.2008, 16:08

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.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Auswahl paralle Fahrten	hexlein	Microsoft Excel Hilfe	2	02.12.2008, 12:03
	Mehrere Nachschlagefelder in einem Fo...	cd_com	Microsoft Access Hilfe	1	29.11.2008, 19:41
	Benötige Hilfe bei einem Excel-Diagramm	justintime	Microsoft Excel Hilfe	1	28.11.2008, 18:05
	Eine Auswahlliste mit Verknüpfung zu ...	anscfz06	Microsoft Excel Hilfe	4	19.11.2008, 22:36
	Drucken über Command Button	Posaune	Microsoft Excel Hilfe	2	08.11.2008, 21:38

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de