Caption aus Liste

Private Sub CommandButton3_Click() Dim ctl As Control Dim Rng As Range Set Rng = Tabelle4.Cells(5, 16) For Each ctl In AMVwaehlen.Controls If TypeName(ctl) = "CheckBox" Then ctl.Caption = Rng End If Next ctl End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim ctl As Control Dim Rng As Range Set Rng = Tabelle4.Cells(5, 16) For Each ctl In AMVwaehlen.Controls If TypeName(ctl) = "CheckBox" Then ctl.Caption = Rng Set Rng = Rng.Offset(1, 0) End If Next ctl

Hallo Karin,
danke für Deine Antwort. Ich hatte es etwas anders gelöst, aber es hat nicht richtig funktioniert.
Vielleicht kannst Du mir ja sagen warum. Für die ersten 26 Checkboxen hat's funktioniert, für die letzte nicht.
Ich nehme ja den Namen aus Spalte 16 und den Zustand aus 17.
Dein Code (um die zweite Spalte erweitert):

Private Sub UserForm_Initialize() 'CheckBox Name / Wert zuweisen
Dim ctl As Control
Dim Rng1 As Range
Dim Rng2 As Range
Set Rng1 = Tabelle4.Cells(5, 16)
Set Rng2 = Tabelle4.Cells(5, 17)
For Each ctl In AMVwaehlen.Controls
If TypeName(ctl) = "CheckBox" Then
ctl.Caption = Rng1
ctl.Value = Rng2
Set Rng1 = Rng1.Offset(1, 0)
Set Rng2 = Rng2.Offset(1, 0)
End If
Next ctl
End Sub

Mein Code:

Private Sub UserForm_Initialize() 'CheckBox Name / Wert zuweisen
Dim ctl As Control
Dim iRow As Integer
iRow = 5
For Each ctl In AMVwaehlen.Controls
If TypeName(ctl) = "CheckBox" Then
ctl.Caption = Tabelle4.Cells(iRow, 16)
ctl.Value = Tabelle4.Cells(iRow, 17)
End If
iRow = iRow + 1
Next ctl
End Sub

Viele Grüße,
Thomas

Hi
wie sind den die Checkboxen angeordnet?
wenn sie einfach nur untereinander stehen, könntest du alle Checkboxen durch eine Multiselect-Listbox ersetzen.
mit der Einstellung ListStyle = 1-fm..Option sieht deine Listbox dann aus wie eine Gruppe von Checkboxen
um die Überschriften aus der Tabelle zu verwenden, schreibst du einfach die Adresse des Zellbereichs in die Eigenschaft RowSoure: RowSource = Tabelle4!P5:P31
um die Häkchen dann entsprechend den Nachbarzellen zu setzen, kannst du folgenden Code verwenden:

for i = 0 to Listbox1.ListCount
Listbox1.Selected(i) = Range(Listbox1.RowSource)(1).Offset(i, 1).value
Next

um die Häkchen in die Zellen zurückzuschreiben brauchst du dann diesen Code

for i = 0 to Listbox1.ListCount
Range(listbox1.RowSource)(1).Offset(i, 1).value = Listbox1.Selected(i)
Next

das spart in der Regel für dich einigen Aufwand, weil du nur 1 Steuerelement hast und nicht 27
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Caption aus Liste

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread