CheckBoxen variabel in UserForm laden

Hallo,
nach dem was ich hier bislang alles gelesen habe, ist meine Frage, "Ist es möglich ..." vermutlich fehl am Platze.
Möchte anstelle der in der Beispielmappe eingefügten Kontrollkästchen diese in einer UserForm (oder Listbox mit Kontrollkästchen) haben.
Die Anzahl ist von Zelle H10 abhängig (im Bsp. zwei, können jedoch bis zu 40 sein).
Bezogen auf die Beispielmappe soll:
Erstes Kontrollhäckchen (= Ziffer 1 in Spalte B ( hier B59 ) soll als Text Zelle H72 und K72 haben und mit Zelle O61 verknüpft sein.
Zweites und jedes weiter beginnt immer in selbem Abstand nach unten.
Die Anzahl wird durch Zelle H10 bestimmt. Folglich in der Beispielmappe nur zwei.
Da es bis zu 40 sein könnten, könnte die UserForm1 sinnvoll sein, welche mir mal von Hr. Herber für andere Zwecke erstellt wurde.
Nur: Den Code bekomme ich nicht geändert. (Für den Fall, dass ich unglücklich geschildert habe, habe ich UserForm3 eingefügt)
Könnte mir da jemand einen ersten Ansatz liefern?
Gruß Rainer
Beispielmappe: https://www.herber.de/bbs/user/68533.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Rainer,
nachfolgend der angepasste Code für das Userform frmForm1.
Im Userform-Editor muss du zusätzlich für die Listbox die Eigenschaft "ColumnCount" auf 3 ändern. ggf. auch noch die Breite der Listbox (Width) und die Spaltenbreiten (ColumnWidths) anpassen
Gruß
Franz

Option Explicit
Dim wks As Worksheet, AnzJahre As Long
Const Zeile1 As Long = 25 'Zeile mit 1. Eintrag in Spalte B
Const DeltaZeilen = 17    'Anzahl Tabellen-Zeilen pro Jahr
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim iLst As Integer
With lstProdukte
For iLst = 0 To .ListCount - 1
wks.Range(.List(iLst, 2)).Value = .Selected(iLst)
Next iLst
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
Dim iJahre As Long
Set wks = Worksheets("Menu")
AnzJahre = wks.Range("H10")
If AnzJahre > 1 Then
'1. Jahr suchen in Spalte B
Zeile = Zeile1
Do Until wks.Cells(Zeile, 2) = 1
Zeile = Zeile + DeltaZeilen
If wks.Cells(Zeile, 2) = "" Then
MsgBox "Keinen Eintrag mit 1 gefunden"
Exit Sub
End If
Loop
'Daten der Anzahl Jahre in Listbox einlesen
Do Until wks.Cells(Zeile, 2) > AnzJahre Or wks.Cells(Zeile, 2) = ""
With lstProdukte
.AddItem "Jahr " & Year(wks.Cells(Zeile, 2).Offset(0, 4).Value) & "/" _
& Year(wks.Cells(Zeile, 2).Offset(12, 4).Value) 'Jahr von/bis
.List(.ListCount - 1, 1) = wks.Cells(Zeile, 2).Offset(13, 9).Text 'Prozent
.List(.ListCount - 1, 2) = _
wks.Cells(Zeile, 2).Offset(2, 13).Address(ReferenceStyle:=xlA1) 'LinkZell
.Selected(.ListCount - 1) = wks.Cells(Zeile, 2).Offset(2, 13).Value 'Wert
End With
Zeile = Zeile + DeltaZeilen
Loop
Else
MsgBox "Anzahl Jahre in H10 muss > 1 sein."
End If
End Sub

Beliebteste Forumthreads (12 Monate)

CheckBoxen variabel in UserForm laden

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CheckBoxen variabel in UserForm laden

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread