Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1276to1280
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dialogsheet mit Auswahl-Druckfunktionen

Dialogsheet mit Auswahl-Druckfunktionen
Alexander
Hallo zusammen,
ich habe mir eben eine Diaolgseite erstellt, auf der ich verschiedene Kästchen anklicken kann.
Jedes Kästchen soll für einen Druckbefehl (drucke z.B. Tabellenblatt 1) stehen. Den Befehl einzeln bekomme ich noch hin.
Ich möchte allerdings das ganze als Auswahl definieren. D.h. wenn Kästchen 1, 2 und 4 angehakt wurden, sollen erst bei der Bestätigung mit "OK" die ausgewählten Seiten 1, 2 und 4 gedruckt werden.
Wie kann ich dass hinbekommen?
Gruß
Alex

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

Betreff
Benutzer
Anzeige
AW: Dialogsheet mit Auswahl-Druckfunktionen
24.08.2012 10:24:52
Rudi
Hallo,
etwa so: 
Option Explicit
Dim arrPrint(1 To 4)
Private Sub CheckBox1_Click()
If CheckBox1 Then
arrPrint(1) = 1
Else
arrPrint(1) = 0
End If
End Sub
Private Sub CheckBox2_Click()
If CheckBox2 Then
arrPrint(2) = 1
Else
arrPrint(2) = 0
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox3 Then
arrPrint(3) = 1
Else
arrPrint(3) = 0
End If
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 4
If arrPrint(i) Then Sheets(i).PrintOut
Next
End Sub

Gruß
Rudi

AW: Dialogsheet mit Auswahl-Druckfunktionen
24.08.2012 12:48:34
Alexander
Nee, klappt nicht. Ich versuchs noch mal anders zu erklären. Mein Dialog sieht so aus:
________________
[] Seite 1                       = Checkbox1     -> Seite1 = Sheet "Tabelle1"
[] Seite 2                       = Checkbox2     -> Seite2 = Sheet "Tabelle2"
[] Seite 3                       = Checkbox3     -> Seite3 = Sheet "Tabelle3"
[] Seite 4                       = Checkbox4     -> Seite4 = Sheet "Tabelle4"
[ OK ]                            =CommandButton1
________________


Wenn ich jetzt Checkbox1, 2 und 4 anklicke und anschließend auf OK gehe, sollen demnach nur  _
die Sheets "Tabelle1", "Tabelle2" und "Tabelle3" ausgedruckt werden. "Tabelle3" wurde nicht angekreuzt und wird deshalb auch nicht ausgedruckt.
Anzeige
AW: Dialogsheet mit Auswahl-Druckfunktionen
24.08.2012 13:28:48
Rudi
Hallo,
genau so habe ich es auch verstanden.
Was klappt nicht?
Der Code muss in das Modul des Dialogsheets.
Gruß
Rudi

AW: Dialogsheet mit Auswahl-Druckfunktionen
24.08.2012 13:48:18
Alexander
Hallo Rudi,
wo / wie trage ich ein, dass dann die Tabelle 1, 2 und 3 ausgedruckt werden soll (also die Definition der jeweiligen Tabellen)?
Gruß
Alex

AW: Dialogsheet mit Auswahl-Druckfunktionen
24.08.2012 14:06:10
Rudi
Hallo,
das steht alles im Code.
arrPrint(1 to 4) ist ein Datenfeld. Das wird mit 0 oder 1 gefüllt, je nach Zustand der Checkboxen.
z.B. 1,1,0,1 für Seiten 1,2,4
Bei Klick auf den Button wird das entsprechende Blattt gedruckt.
Gruß
Rudi

Anzeige
AW: Dialogsheet mit Auswahl-Druckfunktionen
24.08.2012 15:02:45
Alexander
Hallo Rudi,
hab ich verstanden. Es handelt sich aber nicht um die Seiten 1, 2 u. 4 sondern um Tabellen 1, Tabelle 2 und Tabelle 4! Wie bekomme ich da den Verweis / die Zuordnung hin?
Gruß
Alex

82 Forumthreads zu ähnlichen Themen

Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Anzeige
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Anzeige
sverweis bei Anrede funktioniert nicht
Michael

Hallo,
ich habe folgendes Problem:
Ich habe in einer Datei zwei Tabellenblätter. Die Aufgabe besteht darin anhand einer Vornamenliste einem Vornamen die Anrede Herr oder Frau zuzuordnen.
Tabellenblatt 1 (Name: Tabelle1) beinhaltet eine Liste mit Vor- und Nachnamen, sowie Adressen (...
15.11.2009 16:33:12
Thread-ID: 1117391
6 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
Sverweis funktioniert nicht
Marta

Hallo Leute, ich hab mal wieder ein kleines VBA Problem.
Und zwar möchte ich einen SVerweis per VBA programieren... und weiß wirklich nicht, wieso es nicht funktioniert.
Hat jemand einen Tipp?
Sub SVerweis_Kommentar() lastRowD = Worksheets("Kommentar_Abzug2").Range("D" & Rows...
29.04.2010 16:40:52
Thread-ID: 1154586
5 Beiträge
sverweis aus Matrix funktioniert nicht
Giuseppe

Hallo Excel-Freunde
Komisch das so etwas einfaches nicht funktioniert:
01 10 20 15 14 13 12_ _ AA
30 31 35 12 19 18 17_ _ BB
Mit der Funktion SVERWEIS möchte ich gerne das Resultat AA oder BB erhalten.
Die Matrix, inklusive dem Spaltenindex steht auf A1 bis B10
Beispiel:...
23.09.2010 11:27:12
Thread-ID: 1179059
13 Beiträge
SVERWEIS funktioniert nicht immer
Hans

Hallo,
ein Frohes neues Jahr.
Ich habe ein Problem mit dem SVERWEIS.
=SVERWEIS(A1;[Tabelle.xls]Sheet!$A:$C;3;0)
Ich habe eine recht große Matrix ( ca. 25000 Zeilen )
Zu 99% funktioniert dir Formel, aber wenn im Suchkriterium Buchstaben vorkommen funktioniert es manchmal...
02.01.2011 12:59:06
Thread-ID: 1193563
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
4
3
10
5
4
4
12
1
3
4
1
4
5
14
1
25
6
10
2
7
4
1
2