Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Ausdruck / Innhalt Textbox über CheckBox

Ausdruck / Innhalt Textbox über CheckBox
16.08.2004 22:11:07
Markus
´n Abend zusammen
Ich hätte da mal gerne ein Problem. Ich steh irgendwie auf der Leitung. Ich möchte - s. angehängte Datei - gerne mit einer CheckBox auswählen können was ich ausdrucken möchte, aber so richtig funzt das nicht.
Wäre nett wenn sich einer meiner annehmen würde.
https://www.herber.de/bbs/user/9724.xls
Gruß und Danke
MArkus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausdruck / Innhalt Textbox über CheckBox
17.08.2004 05:57:48
Hans
Hallo Markus,
wie folgt:

Private Sub CommandButton2_Click()
Dim iChb As Integer
For iChb = 1 To 6
Columns("D:I").Columns(iChb).Hidden = Not Controls("CheckBox" & iChb).Value
ActiveSheet.PrintOut
Next iChb
Columns("D:I").Hidden = False
End Sub

gruss hans
Anzeige
AW: Ausdruck / Innhalt Textbox über CheckBox
Markus
Hallo Hans
Vielen Dank für die Antwort, allerdings druckt mir meine Rechner jetzt insgesamt 6 x die Tabelle auf Seite 1 aus?!?! Ich wollte aber nur die Zahlen die in der CheckBox stehen auf ein Blatt ausdrucken. D. h. ich wähle die Checkbox 1 und 4 und 5 aus und nur das möchte ich ausgedruckt haben. Wäre schön wenn ich noch einmal Antwort bekommen könnte. Vielleicht habe ich auch etwas falsch gemacht?
Gruß und nochmals Danke
Markus
Anzeige
AW: Ausdruck / Innhalt Textbox über CheckBox
20.08.2004 20:53:55
Markus
Hallo zusammen
Darf ich hiermit noch mal um Hilfe bitten!
Gruß und Vielen Dank
Markus
AW: Ausdruck / Innhalt Textbox über CheckBox
21.08.2004 07:26:31
Hans
Hallo Markus,
wenn man nicht alles testet ;-)
Du musst natürlich den Druckbefehl aus der Schleife rausnehmen, oder?
Gruss hans
AW: Ausdruck / Innhalt Textbox über CheckBox
Markus
Hallo Hans und nochmals Danke für die Antwort
Habe den Druckbefehl wie beschreiben rausgenommen. Aber jetzt tut er gar nix mehr..... Ich bin zu blöde. Was habe ich denn falsch gemacht?
Dim iChb As Integer
For iChb = 1 To 6
Columns("D:I").Columns(iChb).Hidden = Not Controls("CheckBox" & iChb).Value
'ActiveSheet.PrintOut
Next iChb
Columns("D:I").Hidden = False
Danke
Markus
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige