Farbwechsel in Textbox und wieder abrechen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Blinker() Dim t As Single Dim on_Time As Single Dim off_Time As Single Dim on_Color As Single Dim off_Color As Single Static blnRun As Boolean Dim Bereich As Range on_Time = 0.5 on_Color = 6 off_Time = 0.5 off_Color = 5 blnRun = Not blnRun Set Bereich = Range("D10:D20") 'hier hätte ich es gerne meine TextBox1 in der _ UserForm Do While blnRun Bereich.Interior.ColorIndex = on_Color t = Timer: Do While Timer

Hallo,
null Problemo, darum ja umschreiben ;-)...

' ********************************************************************** 
' Modul: UserForm1 Typ: Userform 
' ********************************************************************** 

Option Explicit

Private Const INIT_COLOR As Long = -2147483643

Private mblnCancel As Boolean

Private Sub CommandButton1_Click()
Call prcStartBlinker
End Sub

Private Sub CommandButton2_Click()
Call prcStopBlinker
End Sub

Private Sub UserForm_Terminate()
If Not TextBox1.BackColor = INIT_COLOR Then _
  If Not mblnCancel Then _
    mblnCancel = Not mblnCancel
End Sub

Private Sub prcStartBlinker()
    Dim sngTimer As Single
    Dim sngOn_Time As Single
    Dim sngOff_Time As Single
    Dim lngOn_Color As Long
    Dim lngOff_Color As Long
    
    sngOn_Time = 0.5
    lngOn_Color = vbRed
   
    sngOff_Time = 0.5
    lngOff_Color = vbCyan
   
    If mblnCancel Then _
      mblnCancel = Not mblnCancel
    With TextBox1
        Do While Not mblnCancel
            .BackColor = lngOn_Color
            sngTimer = Timer: Do While Timer < sngTimer + sngOn_Time And Not mblnCancel: DoEvents: Loop
            If mblnCancel Then Exit Do
            .BackColor = lngOff_Color
            sngTimer = Timer: Do While Timer < sngTimer + sngOff_Time And Not mblnCancel: DoEvents: Loop
        Loop
    End With
End Sub

Private Sub prcStopBlinker()
 If Not mblnCancel Then
   With TextBox1
       If Not .BackColor = INIT_COLOR Then
         mblnCancel = Not mblnCancel
         .BackColor = vbYellow
       End If
   End With
 End If
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß,

Beliebteste Forumthreads (12 Monate)

Farbwechsel in Textbox und wieder abrechen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Farbwechsel in Textbox und wieder abrechen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread