Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
884to888
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
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit CheckBox alle Sheets in ListBox auswählen

Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 07:50:14
Joerg
Hallo liebe Exelgemeinde,
ich habe in einer UserForm eine ListBox, in der ich über folgenden Code alle sichtbaren Tabellenblätter auslesen lasse, um diese nach Selektion über einen CommandButton ausdrucken zu lassen. Nun möchte ich über ein CheckBox steuern, dass bei CheckBox = Value.True alle aufgelisteten Tabellenblätter selektiert werden; bei CheckBox = Value.False kein Tabellenblatt selektiert wird.
Der Code für das Auslesen in der ListBox lautet:

Private Sub UserForm_Initialize()
Dim i As Integer
Dim Blatt
For Each Blatt In Sheets
ListBox_Tabellen.AddItem Blatt.Name
Next
End Sub


Könnt Ihr mir da helfen?
Vielen Dank im Voraus und herzliche Grüße,
Joerg B.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 08:01:00
Hajo_Zi
Hallo Joerg,
Dein Code macht nicht das was Du beschreibst. Es werden alle Sheets aufgelistet ob sichtbar oder nicht.

Option Explicit
Private Sub UserForm_Initialize()
Dim Blatt
For Each Blatt In Sheets
If Blatt.Visible Then ListBox_Tabellen.AddItem Blatt.Name
Next
End Sub



AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 08:12:00
Joerg
Hallo Hajo,
der Code sollte eigentlich nur veranschaulichen, wie ich die Sheets in die ListBox einlese. Die konkrete Frage ist die, wie ich per CheckBox alle Tabellenblätter in der ListBox auswählen kann. Vielleicht hast Du ja eine Idee. Vielen Dank und Gruß, Jörg.

Anzeige
AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 08:16:29
Hajo_Zi
Hallo Jörg,
da habe ich keinen Ansatz, da ich den Code für die Ceckboxen nicht sehe und mir das auch schleierhaft ist wozu die da sind? Ich habe die Tabellen doch schon in der Listbox. Auf Select usw. kann in VBA zu 99,9% verzichtet werden.
Gruß Hajo

AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 09:04:54
Joerg
Hallo Hajo,
in der ListBox werden die Tabellenblätter nur aufgelistet. Per mulitselect kann man dann die Tabellen auswählen, die ich ausdrucken möchte (dies funktioniert über einen CommandButton Drucken).
Die CheckBox soll dazu dienen, dass der Benutzer nicht jede aufgeführte Tabelle in der ListBox einzeln anklicken muss, um die gesamte Arbeitsmappe auszudrucken. Die CheckBox soll demnach die Auswahl in der ListBox auf alle Tabellenblätter setzen.
Einen Code für die CheckBox habe ich noch nicht. Genau diesen benötige ich eben. Der Ansatz müsste m.E. irgendwie so sein:

Private Sub CheckBox_Click()
If CheckBox.Value = True Then
"ListBox irgendwas"
Else
"ListBox irgendwas"
End Sub


Ich hoffe mit dieser Erläuterung konnte ich mein Problem genauer beschreiben.
Vielen Dank und Gruß, Jörg.

Anzeige
AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 09:17:00
Hajo_Zi
Hallo Jörg,

Option Explicit
Private Sub CheckBox1_Click()
Dim InI As Integer
For InI = 0 To ListBox_Tabellen.ListCount - 1
ListBox_Tabellen.Selected(InI) = CheckBox1
Next InI
End Sub


Gruß Hajo

AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 11:25:00
Joerg
Danke Hajo !!!
Funktioniert.

AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 09:23:00
Dan
Option Explicit

Private Sub CheckBox1_Change()
Call ChangeAllItemsSelectionState(Me.CheckBox1.Value)
End Sub




Private Sub UserForm_Initialize()
Dim i As Integer
Dim Blatt
For Each Blatt In Sheets
ListBox_Tabellen.AddItem Blatt.Name
Next
End Sub




Private Sub ChangeAllItemsSelectionState(ByVal i_slectionState As Boolean)
Dim i
For i = 0 To Me.ListBox_Tabellen.ListCount - 1
Me.ListBox_Tabellen.Selected(i) = i_slectionState
Next i
End Sub


Anzeige
AW: Mit CheckBox alle Sheets in ListBox auswählen
16.07.2007 11:26:47
Joerg
Danke Dan !!!
Funktioniert auch (siehe Hajo)

299 Forumthreads zu ähnlichen Themen

Checkboxes in Userform prüfen
Jonatan

Hallo,
ich würde gerne in einer Userform alle Checkboxes prüfen, welche angeklickt sind und welche nicht.
Anschließend soll die Checkbox in ein Array gespeichert werden.
Irgendwie klappt das mit der Abfrage aber nicht.
Könnt ihr mir weiterhelfen?
For i = 1 To 8 ' Es sind 8 c...
19.09.2008 09:11:35
Thread-ID: 1010902
3 Beiträge
Anzeige
Checkbox Value auslesen
Fatza

Hallo an alle,
ich habe ein kleines Problem. In meinem Excel-Formular habe ich 4 Checkboxen. Wenn nur eine von diesen aktiviert ist, soll die Druckfunktion frei geschaltet werden, wenn nicht soll eine Messagebox kommen, mit dem Hinweis das eine Checkbox ausgewählt werden muss.
Wer kann...
09.10.2008 09:52:07
Thread-ID: 1015248
8 Beiträge
Checkbox in Zelle per VBA
UweD

Hallo Leute
ich brauche mal Hilfe vom VBA-Profi
Per VBA möchte ich
1) eine Checkbox (aus Formularsteuerungsliste) in einer bestimmten Spalte in Zeile 1 einfügen checkbox.add(....)
2) Dann Bezug auch auf diese Zelle setzen.
3) Namen ändern...
2) und 3) krieg ich sicherl...
17.10.2008 13:57:00
Thread-ID: 1017152
3 Beiträge
Anzeige
Checkbox-Werte in Userforms dauerhaft speichern
Petra

Hallo,
ich möchte die Werte von Checkboxen einer Userform dauerhaft speichern und habe gelesen, dass ich dazu die Werte in einer Tabelle speichern und wieder auslesen muss. Leider habe ich keine Ahnung wie das geht. Kann mir bitte jemand einen Hinweis geben? Die Datei mit den Userforms habe...
22.10.2008 10:05:00
Thread-ID: 1018246
3 Beiträge
Checkboxen in Userform
Sebastian

Hallo zusammen,
Dank Tino (https://www.herber.de/bbs/user/56484.xls
) konnte ich einen Teil meines Problems schon lösen. Aber leider noch nicht ganz. Kurz zu meinem eigentlichen Problem. Ich möchte in einer (flexiblen) Userform Textboxen aus einer Tabelle füllen. Diesen Teil konnte ich...
04.11.2008 15:22:00
Thread-ID: 1021663
4 Beiträge
Problem mit Checkboxen per Vba zu erzeugen
Reinhard

Hallo Wissende,
im Zuge meines Versuches jmdm. in einem anderen Forum dabei zu helfen in einer Spalte ca. 90 Checkboxen per Vba zu erstellen stiess ich auf sehr unerwartete Schwierigkeiten.
Ich bekam es hin, daß die ca. 90 Checkboxen erstellt werden, aber sie sind schon mit einem Häkche...
13.11.2008 23:45:36
Thread-ID: 1024386
7 Beiträge
Mit checkboxen Einträge in Liste färben
adrian

Hallo,
habe fogendes kleines/ bzw. großes Problem und keine Idee wie ich es am geschicktesten Lösen könnte.
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen) Supplier habe ich 3 Checkbo...
18.11.2008 16:54:24
Thread-ID: 1025705
2 Beiträge
Checkbox-Werte in Userform dauerhaft speichern.
Petra

Hallo zusammen,
Ich habe eine Userform mit vielen Checkboxen und schreibe deren Werte in eine Tabelle mit
"Worksheets("Checkbox-Werte").Range("B57") = checkbox.Value". Das funktioniert auch.
Wie kann ich diese Werte beim nächsten Öffnen der Userform wieder einlesen und den Checkbox...
26.11.2008 10:09:00
Thread-ID: 1027947
12 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox UserForm

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
1
7
2
7
2
3
6
1
11
2
2
3
3
2
2
4
1
3
7
2
5
6
2
2