Gibt es eine Möglichkeit,eine Textbox in der UF mit
Hintergrundfarbe Farbe =21
und Schrift ist Farbe=2 zu formatieren ?
Gruß
Heinz
TextBox1.BackColor = vbBlack 'Hintergrund schwarz
TextBox1.ForeColor = vbYellow 'Schrift in Gelb
TextBox1.BackColor = vbBlack 'Hintergrund schwarz
TextBox1.ForeColor = RGB(255, 255, 0) 'hier Gelb
Private Sub Worksheet_Activate()
UserForm8.Show
End Sub
1. Ich möchte das die UF immer im Sheets in AI1 wenn möglich,oder am rechten Bildschirmrand erscheint.
Private Sub Worksheet_Deactivate()
Unload UserForm8
End Sub
Private Sub UserForm_Activate()
With TextBox1
.BackColor = ActiveWorkbook.Colors(21)
.ForeColor = ActiveWorkbook.Colors(2)
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen