So erstellen Sie interaktive Formulare in Excel VBA mit ActiveX-Steuerelementen

Private Sub CheckBox1_Click()
    If CheckBox1.Value   =True Then
    Range(“D2”).Value  1
    Else
    Range(“D2”).Value = 0
    End If
End Sub

5. Optionstasten

Sowohl Check Box als  auch Option Buttons werden verwendet, um Benutzern Optionen bereitzustellen, aber es gibt wichtige Unterschiede zwischen den beiden:

Wenn der Benutzer mehr als eine Option auswählen muss, verwenden Sie Check Box. Wenn Sie jedoch nur eine von mehreren Optionen auswählen können, verwenden Sie Option Buttons.

Schritte zum Erstellen einer Auswahlschaltfläche in Excel VBA

1. Öffnen Sie Excel, und aktivieren Sie die  Registerkarte Developer.
2. Wählen Sie Developer > Insert > Option Button (ActiveX Controls).
3. Klicken und ziehen Sie, um zwei Option Buttons auf dem Arbeitsblatt zu platzieren.
4. Klicken Sie mit der rechten Maustaste auf jedes Option Button und wählen Sie dann Properties aus.
   • Benennen Sie (Name) in OptionButton1 und OptionButton2 um.
   • Ändern Sie die Caption für OptionButton1 in “Männlich” und für OptionButton2 in “Weiblich”.
5. Um die beiden Schaltflächen zu gruppieren, platzieren Sie sie in Frame (ActiveX Controls) oder auf dem UserForm.

Beispiel für VBA-Code zum Verbinden von Auswahltasten mit Zellen

Der folgende Code speichert eine Auswahl aus dem Option Button in der D3 Zelle entsprechend der Auswahl des Benutzers:

If OptionButton1.Value  =  True Then Range(“D3”).Value “Male”
If OptionButton2.Value  =  True Then Range(“D3”).Value “Female”

Verwenden Sie die folgenden VBA-Ereignisse, um sicherzustellen, dass dieser Code automatisch ausgeführt wird, wenn der Benutzer auf die Schaltfläche klickt:

Private Sub OptionButton1_Click()
    Range(“D3”).Value =“Male”
End Sub

Private Sub OptionButton2_Click()
    Range(“D3”).Value =“Female”
End Sub

Mit diesem Code werden D3 Zellen automatisch entsprechend den vom Benutzer getroffenen Entscheidungen aktualisiert.

6. Dreh-Taste

Spin Button ist ein Steuerelement, mit dem der numerische Wert in einer Zelle schrittweise erhöht oder verringert werden kann. Dies ist besonders nützlich für numerische Eingaben, wie z. B. das Festlegen der Anzahl der Waren, der Zinssätze oder anderer Parameter, die Wertbeschränkungen haben.

So legen Sie die Maximal- und Minimalwerte im Spin-Button fest

1. Öffnen Sie die  Registerkarte Developer in Excel.
2. Klicken Sie auf Insert > Spin Button (ActiveX Controls).
3. Klicken und ziehen Sie, um die Spin Button auf dem Arbeitsblatt zu platzieren.
4. Klicken Sie mit der rechten Maustaste auf das Spin Button und wählen Sie dann Properties aus.

Beispiel für VBA-Code zum Festlegen der Schaltfläche “Drehen”

Verwenden Sie den folgenden Code, um den Grenzwert für den Wert Spin Button festzulegen:

SpinButton1.Max  = 100
SpinButton1.Min  == 0

Verwenden Sie den folgenden Code, um Spin Button mit Zellen in Excel zu verbinden:

Private Sub SpinButton1_Change()
    Range(“C3”).Value = SpinButton1.Value
End Sub

Dieser Code stellt sicher, dass jedes Mal, wenn der Benutzer die Taste Spin Button drückt, die Werte in der C3 Zelle entsprechend den in den Steuerelementen festgelegten Werten geändert werden.