Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Tabellenblätter mit Checkbox für Druck

Forumthread: Tabellenblätter mit Checkbox für Druck

Tabellenblätter mit Checkbox für Druck
01.04.2022 23:48:02
Florian
Hi Leute,
hat jemand mal ne grobe Richtung, wie ich das Folgende umsetzen könnte?
Ich schreibe mit VBA bestimmte Tabellenblätter in ein Array. Den Inhalt des aaarays nutze ich dann für den Druck dieser Tabellenblätter.
Nun wurde ich es gerne dynamisch anbieten, dass der Anwender auswählen kann, welche Tabellenblätter er drucken will.
Wie kann ich also am besten diese Auswahl anbieten und dann in mein Aarray schreiben? Mit einem Formular mit einer Checkbox für jedes Tabellenblatt? Aber wie baue ich dann mein Code auf, um es einfach abzufragen, was ausgewählt wurde.
Hat jemand eine Idee oder Tipps? 😊
Danke euch!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter mit Checkbox für Druck
02.04.2022 10:12:03
Florian
Ganz vergessen und soeben nachgeholt 😉
AW: Tabellenblätter mit Checkbox für Druck
02.04.2022 12:28:54
Nepumuk
Hallo Florian,
teste mal: https://www.herber.de/bbs/user/152187.xlsm
Gruß
Nepumuk
Anzeige
AW: Tabellenblätter mit Checkbox für Druck
05.04.2022 16:15:50
Florian
Hi Nepumuk,
das funktioniert. Habe das mal in meine Excel eingefügt und angepasst. Die Aufbereitung der Druckvorschau funktioniert super. Wenn diese allerdings angezeigt wird blockiert irgendwas, sodass ich in keinen Excel-Fenster, im VBA oder in der Druckvorschau mehr klicken kann. Wie wenn irgendwo noch ein offener Dialog hängt, aber ich sehe keinen.
Was habe ich falsch gemacht? :)

Dim mobjLastActiveSheet As Worksheet
Private Sub cmdDrucken_Click()
Dim lngIndex As Long, ialngIndex As Long
Dim astrWorksheets() As String
With lstbTabellen
For lngIndex = 0 To .ListCount - 1
If .Selected(pvargIndex:=lngIndex) Then
ReDim Preserve astrWorksheets(ialngIndex)
astrWorksheets(ialngIndex) = .List(pvargIndex:=lngIndex, pvargColumn:=0)
ialngIndex = ialngIndex + 1
.Selected(pvargIndex:=lngIndex) = False
End If
Next
End With
If ialngIndex > 0 Then
tblDeckblatt.Visible = xlSheetVisible
tblErlaeuterungen.Visible = xlSheetVisible
Worksheets(astrWorksheets).PrintOut Preview:=True
tblDeckblatt.Visible = xlSheetVeryHidden
tblErlaeuterungen.Visible = xlVeryHidden
Else
MsgBox "Bitte mindestens eine Tabelle auswählen.", vbExclamation, "Hinweis"
End If
End Sub
Private Sub cmdAbbrechen_Click()
Call Unload(Object:=Me)
End Sub
Private Sub UserForm_Initialize()
Call lstbTabellen.AddItem(pvargItem:=tblDeckblatt.Name)
Call lstbTabellen.AddItem(pvargItem:=tblErlaeuterungen.Name)
Call lstbTabellen.AddItem(pvargItem:=tblStammdaten.Name)
End Sub

Anzeige
AW: Tabellenblätter mit Checkbox für Druck
05.04.2022 16:26:51
Nepumuk
Hallo Florian,
versuch es mal so:

tblDeckblatt.Visible = xlSheetVisible
tblErlaeuterungen.Visible = xlSheetVisible
Hide
Call Worksheets(astrWorksheets).PrintOut(Preview:=True)
Show
tblDeckblatt.Visible = xlSheetVeryHidden
tblErlaeuterungen.Visible = xlSheetVeryHidden
Gruß
Nepumuk
Anzeige
AW: Tabellenblätter mit Checkbox für Druck
05.04.2022 16:30:47
Florian
Amazing! Läuft :)

Forumthreads zu verwandten Themen

Bestimmtes Element aus mehrdimensionalen Array auslesen
Hermann

Liebe Freunde!
Ich bitte euch um Hilfe mit einem Macro, welches Excelcellen formatieren soll! Die Zellen enthalten HTML formatieren Text der in einen nativen Exceltext umgewandelt werden soll. Da die Tabelle relativ umfangreich ist wurden die Daten in ein Array gestellt! Die Umwandlung des...
12.07.2020 13:32:33
Thread-ID: 1771015
4 Beiträge
Anzeige
Array auf einmal Pasten
Theo
Hallo zusammen,

mir ist das fast schon ein bisschen peinlich, obwohl ich schon seit Jahren mit VBA arbeite, habe ich bisher eigentlich nie mit Arrays arbeiten müssen und fühle mich deswegen in diesem Bereich noch etwas planlos.
In meinem gegenwärtigen Projekt liste ich mehr als eine Mil...
25.07.2024 13:15:00
Thread-ID: 1985919
4 Beiträge
VBA Problem 2
Thorsten
Hallo.
Hatte das Problem vorhin schon einmal geschildert und Ralf hatte mir auch nen Tip gegeben, den ich leider, aus Mangel an VBA Kenntnissen, nicht anwenden kann. Vielleicht weiß jemand, wie man das einbaut. Nur kurz zur erklärung: Es geht darum, dass ich daten aus mehreren Textdateien in ei...
21.01.2004 16:51:14
Thread-ID: 368182
3 Beiträge
Array durchsuchen nach werten
Chris

Hallo VBA Profis,
habe eine frage ist es irgendwie möglich ein Array nach werten zu durchsuchen und die gefundenen werte in eine Tabelle einzutragen ?Folgendes Beispiel habe ich vorbereitet.
Dim cb()
Sub neu()
For x = 1 To 100
ReDim Preserve cb(x)
cb(x) = Cells(x, 1)
20.12.2004 11:24:47
Thread-ID: 535689
4 Beiträge
Franz:Tab mit Wertebereich rechnen + Result loggen
Christian

Hallo Franz,
vielen Dank für deine Antwort. Leider war der Thread schon archiviert, so dass ich das Thema noch einmal als neuen Beitrag reinstelle. (Die Emailbenachrichtigung deiner Antwort hatte mich nicht erreicht.)
Einige der von dir skizzierten Möglichkeiten sind schon verlockend. W...
11.09.2012 20:33:25
Thread-ID: 1278130
6 Beiträge
zellen auslesen und in array schreiben...
loco
hallo,
habe da ein problem.
und zwar arbeite ich mit vba und excel.
ich schreibe meine werte die aus einem array ausgelesen werden in die excel tabelle, dies funktioniert auch.
aber das rausschreiben aus der excel tabelle in mein array funktioniert nicht.
mein code:

Opt...
21.05.2004 15:58:18
Thread-ID: 431429
8 Beiträge
Komisches Verhalten eines Acrobat-Formularfeldes
Dok
Guten Tag zusammen!

In einem bisher funktionierenden Workflow schreibe ich aus einer Excel-Tabelle Daten in ein PDF-Formular.
Dabei übergebe ich ein mehrdimensionales Array, das die Bezeichnungen der Formularfelder enthält sowie den Wert, der
dann in das Formularfeld geschrieben w...
12.10.2024 14:46:45
Thread-ID: 1993557
20 Beiträge
Anzeige
Prüfen ob Datum schon vorhanden
Michael

Hallo liebe Forum Mitglieder,
bin in Sachen VBA nicht so fit und suche hier Hilfe
Ich gebe in einer Form mit 8 TextBoxen werte ein, die in Tabelle1 später übertragen werden.
In Textbox1 gebe ich ein Datum ein...alle anderen TextBoxen bekommen ganze Zahlen.
Das Übertragen der Wer...
02.09.2020 14:05:45
Thread-ID: 1780040
11 Beiträge
Teilergebnis per VBA mit variablen Spalten
grexx123

Hallo,
ich habe schon einmal in dieses Forum geschrieben und kann leider keine weiteren Beiträge mehr schreiben - meine Frage ist aber leider immer noch offen....
https://www.herber.de/forum/archiv/1156to1160/t1156986.htm
Ich möchte gerne eine Tabelle automatisch mit Teilergebnissen...
20.05.2010 18:15:43
Thread-ID: 1158102
2 Beiträge
Listenfeld und Datenstruktur
Martin

Hallo liebes Forum :)
Ich versuche per Makro eine statistische Auswertung zu machen und hab dafür eine Liste in der sowohl Namen als auch Trainingsbezeichnungen häufiger vorkommen. Zusätzlich gibt es noch ca 10 andere Spalten für das Jahr und das jeweilige Land.
Im ersten Schritt gehe...
09.07.2018 12:26:13
Thread-ID: 1632843
1 Beitrag
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum