Supportnet / Forum / Tabellenkalkulation
Kontrollkästchen auswerten
Frage
Hallo zusammen,
ich habe folgendes Problem: ich will eine Übersicht von ca. 20 verschiedenen
Arbeitsblättern in einem Index-Blatt in einer Excel-Datei anlegen. Dann kann der
Anwender über ein Kontrollkästchen Kreuze setzen, welche dieser Blätter er
ausgedruckt haben will. Z.B. steht dann ein Kreuzchen in Checkbox1 für Tabelle
1, ein Kreuzchen in Checkbox 2 für Tabelle2 etc.
Das Ausdrucken soll nach Setzen der Kreuzchen über einen Print-Button
gehen, dem ich ein Makro zuweise. Dieses Makro soll also alle Blätter
ausdrucken, für die in dem Index-Blatt ein Kreuzchen gesetzt wurde. Kann
jemand helfen?
Danke & Grüße,
Michael
Antwort 1 von Hajo_Zi
Hallo Michael,
Kontrollkästechen aus de der Symbolleiste Steuerelemente Toolbox odr Formular?
Soll jede Tabelle einzelne gedruckt werden oder zusammen, wegen Seitenzahl?
Gruß Hajo
Kontrollkästechen aus de der Symbolleiste Steuerelemente Toolbox odr Formular?
Soll jede Tabelle einzelne gedruckt werden oder zusammen, wegen Seitenzahl?
Gruß Hajo
Antwort 2 von Michael_Kupser
Hallo Hajo,
danke für die Antwort. Ich habe vor Jahren im Excel-Center-Forum schon einmal Hilfe von dir bekommen :)
Ich wollte die Kontrollkästchen eigentlich als Steuerelemente einfügen.
Seiten jeweils eine, allerdings idealerweise mit unterschiedlichem Gruppierungslevel wählbar. (Einige Zeilen sind gruppiert).
Vielen Dank,
Michael
danke für die Antwort. Ich habe vor Jahren im Excel-Center-Forum schon einmal Hilfe von dir bekommen :)
Ich wollte die Kontrollkästchen eigentlich als Steuerelemente einfügen.
Seiten jeweils eine, allerdings idealerweise mit unterschiedlichem Gruppierungslevel wählbar. (Einige Zeilen sind gruppiert).
Vielen Dank,
Michael
Antwort 3 von Hajo_Zi
Hallo Michael,
Option Explicit
Sub Auflisten()
Dim InI As Integer
For InI = 1 To 4
With ActiveSheet.OLEObjects("CheckBox" & InI).Object
If .Value = True Then Worksheets(.Caption).PrintOut
End With
Next InI
End Sub
ich bin mal davon ausgegangen das die Beschriftung wie der Tabellenname ist.
Gruß Hajo
Option Explicit
Sub Auflisten()
Dim InI As Integer
For InI = 1 To 4
With ActiveSheet.OLEObjects("CheckBox" & InI).Object
If .Value = True Then Worksheets(.Caption).PrintOut
End With
Next InI
End Sub
ich bin mal davon ausgegangen das die Beschriftung wie der Tabellenname ist.
Gruß Hajo

