Hallo, ich habe ein Problem
Habe mehrere Checkboxen in einer Userform, wenn diese true sind soll der namen in EINE Textbox geschrieben werden.
Jedoch wird jedes Mal der neue Wert der Schleife in die Textbox übertragen.
Bräuchte also quasi einen Merker der bei jedem Druchlauf erweitert wird und nicht überschrieben.
Habe das jetzt mal so hingeschrieben das die Namen der Checkboxen in Zellen geschrieben werden.
Könnte jetzt natürlich die Textbox aus diesen Zellen befüllen, jedoch möchten ich den Schritt, dass die Werte in Zellen geschrieben werden eigentlich komplett übergehen.
Hier mein jetziger Code, hoffe ihr ne Lösung :-)
Private Sub cmdOK_Click()
Dim ObCb As Object
Dim Zeile As Integer
Dim Spalte As Integer
'Namen ab Zeile 26 + 1 notieren
Spalte = 26
'Nächste freie Zeile suchen
Zeile = Sheets("to-do").Range("z1").Value + 3
'Wenn Checkbox = True dann Name in Zelle schreiben und dann Next
For Each ObCb In Me.Controls
If TypeName(ObCb) = "CheckBox" Then
If ObCb.Value = True Then
Spalte = Spalte + 1
Sheets("to-do").Cells(Zeile, Spalte) = ObCb.Caption
End If
End If
Next ObCb
Unload Me
End Sub
|