Excel VBA Umschaltfläche

Question

Hallo und guten Tag,
ich habe ein Problem und bitte um Hilfe.
Ich habe eine Umschaltfläche mit folgendem Code:

Private Sub ToggleButton1_Change()
If IsNull(ToggleButton1.Value) Then
ToggleButton1.Caption = "Value is Null"
ElseIf ToggleButton1.Value = False Then
ToggleButton1.Caption = "Industriezeit"
ElseIf ToggleButton1.Value = True Then
ToggleButton1.Caption = "Normalzeit"
End If
End Sub

Das funktioniert ja soweit aber wie kann ich den Abfragen welchen Zustand
die Schaltfläche hat.
Schonmal Danke.
Gruß Claus

Answer 1

Hallo,

such mal in der VBA-Hilfe nach der State-Eigenschaft.

Grüße

Answer 2

Hallo,
das was da in der VBA Hilfe steht verstehe ich nicht.
Mir würde es reichen wenn je nach Zustand z.B. in der Zelle A1
eine Null oder eine Eins steht damit ich mit der Schaltfläche Arbeiten
kann.
Gruß Claus

Answer 3

Hallo Claus,
vielleicht so:

Private Sub ToggleButton1_Change()
If ToggleButton1.Value = False Then
ToggleButton1.Caption = "Industriezeit"
Range("A1") = "0"
Else
ToggleButton1.Caption = "Normalzeit"
Range("A1") = "1"
End If
End Sub

Gruß
fedjo

Answer 4

Hallo fedjo,
genau so! Vielen Dank.
Gruß Claus