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