Textbox farbe ändern

Forumthread: Textbox farbe ändern
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Textbox farbe ändern

25.05.2018 12: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

AW: Textbox farbe ändern

25.05.2018 13:01:42

Crazy
AW: Textbox farbe ändern

25.05.2018 13:05:14

Philip
AW: Textbox farbe ändern

25.05.2018 13:04:38

ChrisL

AW: Textbox farbe ändern

25.05.2018 13: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 13:05:14

Philip

Hallo Tom
Danke dir für die rasche Antwort, funtkioniert wie gewünscht.
Gruss

AW: Textbox farbe ändern

25.05.2018 13: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