VBA Excel 2013 - Zelle auslesen und in Checkbox in Userform übertragen

Question

Hallo Zusammen,

ich sitz leider mal wieder auf´m Schlauch und komm nicht weiter.

In einer Exceltabelle habe ich Spalte N für eine Auswahl hinterlegt (bislang bedeutet ein "x" ja, "" nein). Nun möchte ich die einzelnen Zeilen zurück in eine userform übertragen. Das funktioniert einwandfrei. Gelöst habe ich es in der Userform mit:

Private Sub UserForm_Initialize()
TextBox1.Value = Selection.Offset(0, 0)
TextBox2.Value = Selection.Offset(0, 1)
.....
End Sub

Nur wie regle ich das mit der Checkbox1?

Checkbox1.Value = Selection.Offset(0, 13) funktioniert leider nicht.

Vielen Dank schon mal für eure Tipps.

Gruß
Florian

Answer 1

Hallo Florian,

das musst du mit einer Abfrage lösen, da der Wert von Checkboxen nur True (aktiviert) oder False (nicht aktiviert) sein kann.
Also etwa so:

If Selection.Offset(0, 13) = "x" Then
Checkbox1.Value = True
Else
Checkbox1.Value = False
End If

Gruß

M.O.

Answer 2

Hallo M.O.,

vielen Dank. Funktioniert super.

Gruß
Florian