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

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

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
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
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige