Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte in Zelle eintragen, wenn CheckBox aktiviert

Gruppe

CheckBox

Problem

Wie kann ich in die Nebenzelle einer CheckBox Werte eintragen lassen, wenn die CheckBox aktiviert wird?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub CheckBox1_Click()
   ActiveCell.Select
   With Range("A2")
      If CheckBox1.Value = True Then
         .Value = 2.5
      Else
         .Value = ""
      End If
   End With
End Sub