AW: zeig doch mal ...
22.03.2009 12:57:23
Rolf
Hallo Matthias!
Hier ist der Code!
Eine logistische Sache!
die reset Makros stehen in Modulen.
Die ToggleButtons stehen in Tabelle.
Ich habe damit viel zeit verbracht jedoch
ist was falsch.Es gibt mehrere Lagen
1)Wahr-Wahr
2)Wahr-Falsch
3)Falsch-Wahr
4)Falsch-Falsch
Aus jeder Lage muss er schalten so
das ToggleButton1 den zweiten umkippt
und umgekehrt.Den zeit Interval kan mann
für Messungen nutzen!
Option Explicit
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton1.Caption = "1"
ToggleButton1.BackColor = RGB(153, 204, 255)
If ToggleButton1 Then Application.OnTime Now + TimeSerial(0, 0, 10), "reset1"
Else
ToggleButton1.Caption = "2"
ToggleButton1.BackColor = RGB(255, 153, 204)
If ToggleButton1.Caption = "Buy" Then Application.OnTime Now + TimeSerial(0, 0, 10), "reset1"
End If
' If ToggleButton1 Then Application.OnTime Now + TimeSerial(0, 0, 10), "reset1"
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
ToggleButton2.Caption = "1"
ToggleButton2.BackColor = RGB(153, 204, 255)
If ToggleButton2 Then Application.OnTime Now + TimeSerial(0, 0, 10), "reset2"
Else
ToggleButton2.Caption = "2"
ToggleButton2.BackColor = RGB(255, 153, 204)
If ToggleButton2 Then Application.OnTime Now + TimeSerial(0, 0, 10), "reset2"
End If
End Sub
Public Sub reset1()
Range("A1") = False
Range("A2") = True
End Sub
Public Sub reset2()
Range("A2") = False
Range("A1") = True
End Sub
Grüße
Rolf