ToggleButton

[retuzi]

Hallo,
Bin Neuling.
Kann mir jemand sagen, wie ich in einer Schleife den Status eines ToggleButtons durch klicken ändern kann?

Private Sub ToggleButton1_Click()
Do
'BZ = READSTRING(S$)
'Cells(1, 1).Value = BZ
TextBox1.Text = i
i = i + 1
B = ToggleButton1.Value
Loop While B = True

End Sub

Hintergrund: ich will mit dem Button eine Messung starten, die so lange läuft bis der Button wieder gedrückt wird.

Wenn das Makro läuft wird es ne Endlosschleife und ich kann den Button nicht mehr ändern.....
Vielen Dank im voraus.

 

[DrSoong]

Was du in deinem Code brauchst ist ein DoEvents, damit gibst du auch allen anderen Tasks (inklusive denen deines Programmes) die Möglichkeit, auf Eingaben zu reagieren bzw. zu arbeiten. Dein Code sollte so aussehen:

Private Sub ToggleButton1_Click()
 Do
  'BZ = READSTRING(S$)
  'Cells(1, 1).Value = BZ
  TextBox1.Text = i
  i = i + 1
  B = ToggleButton1.Value
  DoEvents
 Loop While B = True
End Sub

Der Doc!

 

[retuzi]

Super, das funktioniert.
DANKE!