ich möchte gerne wenn ich Button1 drücke die Farbe in TextBox1 zwischen (z.B grün und grau) ständig wechselt.
Drücke ich Button2 soll TextBox1 gelb werden und bleiben, der automatische Wechsel von grün und grau soll beenden werden, bis zu erneutem Aufruf über Button1, dann wieder Wechsel grün/grau.
Ich bekomme zwar den Wechsel über Button1 hin, Farbe wechselt, aber dann drücke ich Button2, Farbe wird auch gelb aber dann, läuft der Fabwechsel weiter.
Bekomme es nicht hin ihn zu stoppen. Mir fehlt wohl der richtige Befehl :-)
Vieleicht hat einer einen kleinen Code für mich, Danke
MfG
'Modul1
Public Sub Blinken2()
UserForm1.Blinken
End Sub
Public Sub Blinken()
Static H00C0FFFF As Boolean
zeit = Now + TimeValue("00:00:01")
Application.OnTime zeit, "Blinken2"
If H00C0FFFF = True Then
H00C0FFFF = False
TextBox1.BackColor = &HFF00&
Else
H00C0FFFF = True
TextBox1.BackColor = &H8000000C
End If
End Sub
Private Sub CommandButton1_Click()
Call Blinken
End Sub
Private Sub CommandButton2_Click()
TextBox1.BackColor = vbRed
End Sub