Office: Userform

nkh2018 · 4. März 2019

Hallo...
Habe in einem Userform dynamisch erstellte Checkboxen.

Die Anzahl richtet sich nach Anzahl der ausgefüllten Zellen aus einem anderen Tabellenblatt der gleichen Datei.

Ebenfalls funktioniert die Beschriftung - caption - der Checkbox, welche ebenfalls dynamisch erstellt wird.

Die Checkboxen werden untereinander im Userform angezeigt siehe Bild 1.

Frage?*idee

Wie kann ich die Checkboxen nebeneinander in mehreren Zeilen anzeigen lassen - siehe Bild 2.

Code:

' ### checkbox automatisch erstellen aufgrund der zellenanzahl in tabelle Daten
Private Sub UserForm_Initialize()

Dim CountRows, i As Integer
Dim formCheckBox As MSForms.CheckBox

CountRows = WorksheetFunction.CountA(Sheets("Daten").Range("A1:A100"))

For i = 0 To CountRows - 1
Set formCheckBox = UserForm1.Controls.Add("Forms.Checkbox.1")
With formCheckBox
.Name = "CbSetting" & i
.Width = 210
.Height = 18
.Left = 15
.Top = 30 + i * 20
.BackStyle = 0
.WordWrap = False
.Caption = Sheets("Daten").Range("A" & i + 1).Value
.Value = Sheets("Daten").Range("B" & i + 1).Value
End With
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Herzlichen Dank für die Bemühungen und Hilfestellungen

:)

derHoepp · 6. März 2019

Hallo,

mit etwas Mathematik kannst du den .Top-Wert und den .Left-Wert ermitteln.
Hier in Pseudocode
Code:

Top = Ganzzahl((Zählvariable-1)/Spaltenanzahl)+1
Left = Rest(Zählvariable-1;Spaltenanzahl)+1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber noch ein Hinweis:
Mehrere Checkboxen lassen sich prima durch eine Listbox mit Multiselect ersetzen. Auch ist es normalerweise kein Problem, alle benötigten Listboxen schon im Designmodus einzubauen und dann nur auszublenden. Dann sparst du dir die Klassenprogrammierung.

Viele Grüße
derHöpp

EarlFred · 6. März 2019

Dann sparst du dir die Klassenprogrammierung.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und damit den eigentlichen Spaß!

EarlFred · 6. März 2019

eigentlich hätte ich folgende Codezeile erwartet:
Code:

.Value = Sheets("Daten").Range("B" & i + 1).Value
.ControlSource = "Daten!" & Worksheets("Daten").Range("B" & i + 1).Address
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

derHoepp · 9. Februar 2021

von EarlFred

und damit den eigentlichen Spaß!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wohl wahr!

nkh2018 · 6. März 2019

\@ danke EarlFred

wieder etwas dazu gelernt... *Smilie

Den Programm-Code hatte ich aus einem anderen Forum

Office: Userform

Userform

Userform

Userform

Userform - Similar Threads - Userform

Userform unterdrücken - wenn Datei von andere Datei geöffnet wird

UserForm in Office 2019 für MacOS fehlt

Userform Login Benutzername in Zelle schreiben

Datum in Userform formatieren

UserForm zum bearbeiten von Tabellen und speichern

VBA Code Tabellenblatt kopieren und UserForm

UserForm wechseln