Wie gruppiere ich in Forms Steuerelemente
09.12.2019 20:45:50
Bernd
Ich suche nach einer Möglichkeit, in einer Userform eine Namenliste mit jeweils unterschiedlichen Stati zu jedem Namen Darzustellen. Dabei möchte ich die unterschiedlichen Stati und den dazugehörenden Namen gruppieren. Die Namenliste kann bis zu 200 Positionen enthalten - über eine seitliche Scrollbar kann innerhalb der Liste navigiert werden.
Per Script kann ich die unterschiedlichen Elemente dynamisch in der userform generieren und darstellen. Wenn ich zur Gruppierung einen Frame dazu setze, überdeckt dieser alle anderen Schaltflächen der Zeile. Die unterschiedlichen Button können dann weder gesehen, noch angewählt werden.
Wo steckt mein Fehler?
Vielen vielen Dank im Voraus für einen Anstoß.
Private Sub UserForm_Initialize()
Dim f_rahmen As Control
Dim f_label As Control
Dim f_haken As Control
Set f_rahmen = UserForm1.Controls.Add("forms.frame.1")
With f_rahmen
.Left = 18
.Top = 40
.Width = 200
.Height = 80
.Caption = "Das ist der Gruppierungsrahmen"
End With
Set f_label = UserForm1.Controls.Add("forms.label.1")
With f_label
.Left = 20
.Top = 45
.Width = 40
.Height = 20
.Caption = "Das ist das Namenfeld"
End With
Set f_haken = UserForm1.Controls.Add("forms.checkbox.1")
With f_haken
.Left = 100
.Top = 45
.Width = 30
.Height = 20
.Caption = "Checkbox 1 von x"
End With
End Sub
Anzeige