Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Farbeintrag mittels VBA | Herbers Excel-Forum


Betrifft: Farbeintrag mittels VBA von: nuernberg@esm-ept.de
Geschrieben am: 14.01.2010 13:04:24

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
Vielen Dank für alle Mühen

MFG

  

Betrifft: AW: Farbeintrag mittels VBA von: Rudi Maintaire
Geschrieben am: 14.01.2010 13:06:42

Hallo,
z.B.
Range(Cells(xZeile,1), Cells(xZeile,6)).Font.Colorindex=3

Gruß
Rudi


  

Betrifft: AW: Farbeintrag mittels VBA von: nuernberg@esm-ept.de
Geschrieben am: 14.01.2010 13:50:13

Danke vielmals


Beiträge aus den Excel-Beispielen zum Thema "Farbeintrag mittels VBA"