Farbeintrag mittels VBA
14.01.2010 13:04:24
nuernberg@esm-ept.de
Sehr geehrte Forumgemeinde,
wie kann ich Einträge die in diesem VBA Programm gemacht werden mit einer Textfarbe makieren???
Private Sub CommandButton2_Click()
Dim XZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
XZeile = [A65536].End(xlUp).Row + 1
Else
XZeile = ComboBox1.ListIndex + 2
End If
Schutz_aus
Cells(XZeile, 1) = TextBox1
Cells(XZeile, 2) = TextBox2
Cells(XZeile, 3) = TextBox3
Cells(XZeile, 4) = TextBox4
Cells(XZeile, 5) = TextBox5
Cells(XZeile, 6) = TextBox6
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
Range("A2:F65536").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Schutz_an
UserForm_Initialize
End Sub
MFG