Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1624to1628
1624to1628
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textbox farbe ändern

Forumthread: Textbox farbe ändern

Textbox farbe ändern
25.05.2018 10:49:04
Philip
Hallo zusammen
Ich habe eine Textbox diese möchte ich durch einen Doppelklick blau einfärben und wenn ich einen weiteren Doppelklick mache soll sie wieder weiss werden.
Kann mir da jemand helfen?
Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5.BackColor = 5 Then
TextBox5.BackColor = 3
Else
TextBox5.BackColor = 5
End If
End Sub

Ich habe es so versucht funktioniert jedoch nicht wie gewünscht.
Gruss
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Textbox farbe ändern
25.05.2018 11:01:42
Crazy
Hallo
das habe ich so getestet 
Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5.BackColor = &HFF0000 Then
TextBox5.BackColor = &H80000005
Else
TextBox5.BackColor = &HFF0000
End If
End Sub
MfG Tom
AW: Textbox farbe ändern
25.05.2018 11:05:14
Philip
Hallo Tom
Danke dir für die rasche Antwort, funtkioniert wie gewünscht.
Gruss
Anzeige
AW: Textbox farbe ändern
25.05.2018 11:04:38
ChrisL
Hi Philip
Oder so... 
Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox5.BackColor = vbBlack Then
TextBox5.BackColor = vbRed
Else
TextBox5.BackColor = vbBlack
End If
End Sub
cu
Chris
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige