|
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
|