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

Dynamisch erstellte Checkboxen auswerten

Forumthread: Dynamisch erstellte Checkboxen auswerten

Dynamisch erstellte Checkboxen auswerten
26.06.2014 10:13:53
Erik
Liebe Gemeinde,
ich habe eine Frage und hoffe, dass ein Auserkorener oder eine Auserkorene mit diese Frage beantworten kann. :)
Die Ausgangslage:
Ich lasse ein dynamisch varierende Zahl von Checkboxen auf einem Userform, dort auf einer Multipage, erzeugen. 

Dim CountRows, i As Integer
Dim formCheckBox As MSForms.Checkbox
CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
Me.MultiPage1.Pages("Page4").ScrollHeight = 30 + CountRows * 20
For i = 0 To CountRows - 1
Set formCheckBox = Me.MultiPage1.Pages("Page4").Controls.Add("Forms.Checkbox.1")
With formCheckBox
.Name = "CbSetting" & i
.Width = 210
.Height = 18
.Left = 5
.Top = 30 + i * 20
.BackStyle = 0
.WordWrap = False
.Caption = Sheets("Einstellungen").Range("A" & i + 1).Value
.Value = Sheets("Einstellungen").Range("B" & i + 1).Value
End With
Next i

Das funktioniert hervorragend.
Das Problem:
Ich möchte nun gern die Werte dieser Checkboxen abfragen. Folgender Versuch wirft mir die Fehlermeldung "Typen unverträglich" aus. 

Dim optval As String
CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
Set formCheckBox = Me.MultiPage1.Pages("Page4")
For i = 1 To CountRows
optval = formCheckBox.Controls("CbSetting" & i).Value
Debug.Print optval
Next i
Ich vermute, dass ich die Multipage bzw. die darauf befindlichen Checkboxen nicht richtig anspreche...
Ich bedanke mich schonmal für's Lesen und für die Hilfe.
Gruß
Erik

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamisch erstellte Checkboxen auswerten
26.06.2014 10:37:33
Daniel
Hi
Wenn du die Checkboxen sowieso direkt untereinander anordnet, warum machst du dann keine Multiselect-Listbox daraus?
Das ist einfacher zu aprogrammieren weil du unabhängig von der Anzahl der Optionen nur ein Steuerelement hast und durch die zwei Multiselectmodi wird's auch für den Anwender komfortabler.
Gruß Daniel

Anzeige
AW: Dynamisch erstellte Checkboxen auswerten
26.06.2014 11:00:01
Rudi
Hallo,
dynamisch erstellte Controls kannst du nicht über den Namen ansprechen. 
 Dim cnt As Object
For Each cnt In MultiPage1.Pages("Page4").Controls
If TypeName(cnt) = "CheckBox" Then
If cnt.Name Like "CbSetting*" Then
Debug.Print cnt.Name, cnt.Value
End If
End If
Next

Gruß
Rudi

Anzeige
AW: Dynamisch erstellte Checkboxen auswerten
26.06.2014 11:09:05
Mullit
Hallo,
Du hast im ersten Teil
Dim formCheckBox As MSForms.Checkbox
als CheckBox deklariert, im zweiten Teil 
Dim optval As String
CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
Set formCheckBox = Me.MultiPage1.Pages("Page4")
For i = 1 To CountRows
optval = formCheckBox.Controls("CbSetting" & i).Value
Debug.Print optval
Next i

der Variablen eine Page zugewiesen....
Gruß,

Anzeige
das ist doch Wurscht
26.06.2014 11:28:58
Rudi
Hallo,
die gleiche Variable(nbezeichnung) in unterschiedlichen Prozeduren mit unterschiedlichen Typen zu deklarieren ist syntaktisch kein Problem.
Man kann schlichtweg zur Laufzeit erstellte Controls nicht über den Namen ansprechen.
Eine Möglichkeit wäre noch, die Controls einer Collection zuzuweisen.
Mal ganz einfach: 
Option Explicit
Dim oCol As New Collection
Private Sub UserForm_Initialize()
Dim CountRows, i As Integer
Dim formCheckBox As MSForms.CheckBox
CountRows = 5
With MultiPage1.Pages("Page4")
.ScrollHeight = 30 + CountRows * 20
For i = 1 To CountRows
Set formCheckBox = .Controls.Add("Forms.Checkbox.1")
With formCheckBox
.Name = "CbSetting" & i
.Width = 210
.Height = 18
.Left = 5
.Top = 30 + i * 20
.BackStyle = 0
.WordWrap = False
.Caption = "Test " & i
End With
oCol.Add formCheckBox, formCheckBox.Name
Next i
End With
End Sub
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To oCol.Count
Debug.Print oCol("CbSetting" & i).Value
Next
End Sub

Gruß
Rudi

Anzeige
AW: das ist doch Wurscht
26.06.2014 11:42:34
Mullit
Hallo,
Man kann schlichtweg zur Laufzeit erstellte Controls nicht über den Namen ansprechen.
wo hast Du das denn her?
Sowas läuft bei mir 'wie geschnitten Brot': 
Option Explicit
Private Sub CommandButton1_Click()
MsgBox Me.Controls("CbSetting1").Value
End Sub
Private Sub UserForm_Initialize()
Dim formCheckBox As MSForms.CheckBox
Set formCheckBox = Controls.Add("Forms.Checkbox.1")
With formCheckBox
.Name = "CbSetting" & 1
.Width = 30
.Height = 18
.Left = 5
.Top = 20
End With
End Sub

mit unterschiedlichen Typen zu deklarieren

Ich sehe in dem Code nur die CheckBox-Deklaration....
Gruß,

Anzeige
AW: das ist doch Wurscht
26.06.2014 11:49:37
Erik
Hallo ihr Guten,
ich habe mich für den Tipp von Daniel entschieden und die Variante einer Multiselect-Listbox gewählt.
Ein Problem habe ich jedoch noch. Ich habe die Listenoptionen so gewählt, dass der/die Anwender/-in gezielt Einträge anhaken und abhaken kann.
Wie lese ich nun aus, ob ein Eintrag true (angehakt) oder false (nicht angehakt) ist?
So erstelle ich die Listbox, funktioniert auch wunderbar. 

CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
For i = 0 To CountRows - 1
Set formListBox = Me.MultiPage1.Pages("Page4").Controls("LBSettings")
With formListBox
.AddItem Sheets("Einstellungen").Range("A" & i + 1).Value
.Selected(i) = Sheets("Einstellungen").Range("B" & i + 1).Value
End With
Next i
Mit folgenedem Code versuche ich die Zustände abzufragen und in einer Spalte zu speichern: 

CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
For i = 0 To CountRows - 1
Sheets("Einstellungen").Range("B" & i + 1).Value = LBSettings.List(i).Selected
Next i

Die Fehlermeldung lautet: "Objekt erforderlich". Ich habe schon versucht, diese Deklaration zu verwenden: 

Set formListBox = Me.MultiPage1.Pages("Page4").Controls("LBSettings")
CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
For i = 0 To CountRows - 1
Sheets("Einstellungen").Range("B" & i + 1).Value = formListBox.List(i).Selected
Next i

Funktioniert leider nicht. Ich gebe zu, ich habe so meine Schwierigkeiten mit dem Objektmodell von VBA. :)
Danke für eure Hilfe!
Gruß
Erik

Anzeige
AW: das ist doch Wurscht
26.06.2014 12:19:17
Mullit
Hallo,
Du scheinst da jedesmal Probleme mit der Notation zu haben;
die ListBox sprichst du so an:
 CountRows = WorksheetFunction.CountA(Sheets("Einstellungen").Range("A1:A100"))
For i = 0 To CountRows - 1
Sheets("Einstellungen").Range("B" & i + 1).Value =  _
formListBox.List(i).Selected
Next i

Zeig außerdem immer mal Deinen ganzen Code,
da fehlen jedesmal die Variablendeklarationen...
Gruß,

Anzeige
Listbox auslesen
26.06.2014 13:03:01
Rudi
Hallo,
Sheets("Einstellungen").Range("B" & i + 1).Value = LBSettings.Selected(i)
Gruß
Rudi

AW: das ist doch Wurscht
26.06.2014 14:36:05
Daniel
Hi
der Vorteil der Listbox ist doch, dass hier das Steuerlelement schon zur Programm-Erstellungszeit vorhanden ist und nicht erst zur Programm-Laufzeit erzeugt wird.
Dh du kannst das Steuerelement wie von den Kollegen gezeigt "direkt" angeben und auch den Namen aus der Vorschlagsliste der Intellisense auswählen (Tastenkombi ALT+LEER) so dass Tipp- und Rechtschreibfeher nicht vorkommen können.
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Checkboxen
Gordon

Moin,
ich habe auf einem Blatt 39 Checkboxen (CheckBox1 bis Checkbox40).
Der Code für Checkbox2 schaut so aus:
Private Sub CheckBox1_Click() With Worksheets("Neu") If CheckBox2.Value = True Then .Columns("I:K").ColumnWidth = 10.14 .Columns("L").ColumnWidth = 1.71 ElseIf CheckBox2....
17.09.2008 12:56:00
Thread-ID: 1010340
12 Beiträge
Variable Checkboxen
Gordon

Moin,
ich habe neulichst glaube ich schon mal eine ähnliche Frage gestellt, aber ich bin mir nun nicht sicher, ob es das selbe ist. Daher bitte ich um Verzweihung falls ich die selbe Frage stellen sollte. ;-)
Also ich habe 10 Checkboxen (1 bis 10). Kann man diese Boxen eigentlich Var...
22.09.2008 11:11:00
Thread-ID: 1011408
5 Beiträge
Werte von Checkboxen in Userform speichern
Checkboxen

Hallo liebe Forumleser,
ich habe in VBA Excel eine Userform mit Checkboxen erstellt. Ein "OK Button" in der Userform schreibt die Captions der angekreuzten Checkboxen in eine Tabelle:
Worksheets("BDaten").Range("D65:D67").Clear
If chkAKurzI1 = True Then
Worksheets("BDaten").Cell...
17.10.2008 16:39:00
Thread-ID: 1017214
8 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
Frage zu checkboxen auf userform
chris

Hallo und guten morgen,
habe eine frage hoffe ihr könnt mir helfen.
ich habe eine Userform auf dieser habe ich mehere checkboxen von Name
chb_1
bis chb_40
Wie kann ich im VBA code abfragen ob eine bestimmte checkbox value true ist ?
im string fehler steht drinnen:
W...
13.11.2008 09:04:45
Thread-ID: 1024049
3 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
Checkboxen!!
adrian

Hallo,
falls sich hier jemand gut mit "checkboxen" gut auskennt und mir helfen könnte folgendes Problem zu lösen wäre das echt super!
Mit folgendem Syntax werden Werte aus Bereichen von 3 Sheets gesammelt.
Für jeden (zu beachten sind die Supplier, die in mehreren Sheets vorkommen)...
24.11.2008 10:50:00
Thread-ID: 1027215
3 Beiträge
Checkboxen
Tim

Hi
Wie kann ich zwei Checkboxen verbinden. Die eine Checkbox ist auf Tabelle1 und die andere auf Tabelle2.
Wenn Checkbox1 auf Tab1 angeklickt ist, sollte auch Checkbox2 auf Tab2 angeklickt sein oder umgekehrt.
Danke für Eure Hilfe
Gruß
Tim
15.01.2009 08:24:00
Thread-ID: 1039889
3 Beiträge
Anzeige
Checkbox im Zusammenspiel mit anderen Checkboxen
Stefen

Hi Leute
Ich bin am Ende meines bescheidenen Wissen. Daher wende ich mich lieber an Euch bevor der PC brennt.
Wollte nur, dass wenn eines der Checkboxen 38 bis 41 true ist sollte CheckboxNr. 37 nicht true sein.
also angeklickt.
Was mache ich da bloß wieder falsch?
If CheckBo...
25.01.2009 21:07:40
Thread-ID: 1043685
3 Beiträge
Anzeige
Änderung von Checkboxen n. Druckansicht verhindern
Checkboxen

Hallo zusammen,
ich habe auf meinen Arbeitsblatt ein Rechteck eingefügt. Auf diesem Rechteck habe ich eine Textbox und drei Checkboxen platziert. Jedes dieser Objekte habe ich per Objekteigenschaften wie folgt formatiert:
Von Zellposition und -größe unabhängig
Den Haken bei Objekt d...
29.01.2009 08:31:00
Thread-ID: 1044782
3 Beiträge
Checkboxen bleiben nicht mit Hacken konstant
Leon

Hi Zusammen
Habe eine so tolle Datei erstellt mit einigen UF's und auch Checkboxen etc. und erst jetzt merke ich, daß
wenn ich von einer UF zur anderen gehe und zurück meine angeklickten Checkboxen nicht mehr angeklickt sind.
Kann man dieses Problem beheben?
Gruß
Leon
01.02.2009 00:12:54
Thread-ID: 1045803
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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