ich habe folgendes Problem in VBA:.

Ich benutze Checkboxen  um einen Text, rechts von der Checkbox, ein- und auszublenden. Um die Zelle Rechts von der Checkbox zu adressieren benutze ich folgende Funktion:

                ActiveCell.Offset(0, 1).Value = „hallo“

Das Problem dabei ist, das ich erst die Zelle anklicken muss, in der die Checkbox ist, und dann erst die checkbox anklicken kann. Wenn ich das nicht mache, gilt immer die Zellen eben, in die zuletzt geklickt wurde.

Der Weg geht wahrscheinlich über diesen Weg:

               a = CheckBox2.TopLeftCell.Address

Nur weiss ich nun nicht, wie ich damit die Zeile rechts ansprechen soll, also wieder so ähnlich wie oben  (  ActiveCell.Offset(0, 1).Value = „hallo“)

Hier der VBA-Code:

Private Sub CheckBox2_Click()
    Call writeInfo(CheckBox2)
End Sub

Private Sub CheckBox3_Click()
    Call writeInfo(CheckBox3)
End Sub

Private Sub CheckBox4_Click()
    Call writeInfo(CheckBox4)
End Sub

Private Sub writeInfo(checkbox)
    If checkbox.Value = True Then
        ActiveCell.Offset(0, 1).Value = Environ("USERNAME")
    ElseIf checkbox.Value = False Then
       ActiveCell.Offset(0, 1).Value = ""
    End If
End Sub