Clever-Excel-Forum

Hallo Zusammen, 

nach länger Zeit (2,5 J) wage ich mich nochmal an ein Userform. 

Ich habe mehrere Checkboxen und würde deren "Caption" gerne, wenn aktiviert in eine Zelle in einem Arbeitsblatt übertragen. Zudem der Text im Freitextfeld, wenn vorhanden. 
Habe bereits den folgenden Vorschlag erhalten: 

Private Sub uebertragenCaption()

Dim i As Long
Dim txt As String
For i = 0 To 11
    If Controls("CheckBox" & i) = True Then
    txt = txt & "; " & Controls("CheckBox" & i).Caption
    End If
   
Next
txt = txt & ";" & edt_VT
Tabelle1.Range("A2").Value = Mid(txt, 2)



If MsgBox("Daten übertragen, weiter? ", vbOKCancel) = vbOK Then

UserForm1.Show
End If


Leider gibt es einen Laufzeitfehler, und das Objekt konnte nicht gefunden werden. 
 If Controls("CheckBox" & i) = True Then

Muss ich da noch irgendwas definieren vor ab??

Vielen Dank im Voraus. 

Hallo,

ich glaube nicht, dass es bei dir eine CheckBox mit dem Name CheckBox0 gibt. Ändere deine Schleife entsprechend ab.

Hallo Steffi, vielen Dank- läuft. Manchmal sieht man den Wald vor läuter Bäumen nicht mehr.