Hallo, Ich habe mir wie folgt ein Userform erstellt:

Private Sub Button_Abbrechen_Click()

Unload Me

End Sub

Private Sub Button_Eingabe_Click()

'Erste freie Zeile ausfindig machen

Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

'Hersteller
Cells(last, 1).Value = TextBox_Hersteller

'Typ
Cells(last, 2).Value = ComboBox_Typ.Value

'Modell
Cells(last, 3).Value = TextBox_Model

'Benutzer
Cells(last, 4).Value = TextBox_Benutzer

'Seriennummer
Cells(last, 5).Value = TextBox_Seriennummer

'Herstellungs Datum/Jahr
Cells(last, 6).Value = TextBox_Herstellungsjahr

'Kaufdatum
Cells(last, 7).Value = TextBox_Kaufdatum

'Prüfung bestanden oder nicht
If OptionsButton_Bestanden.Value = True Then Cells(last, 8).Value = "Betsanden"
If OptionsButton_NichtBestanden.Value = True Then Cells(last, 8).Value = "Durchgefallen"


'Nächste Prüfung
Cells(last, 9).Value = TextBox_NächstePrüfung

'Bemerkung
Cells(last, 10).Value = TextBox_Bemerkung


End Sub

Private Sub UserForm_Initialize()

'Hersteller
TextBox_Hersteller = "Hersteler eingeben"

'Typ
With ComboBox_Typ
    .AddItem "Karabiner"
    .AddItem "Gurte"
    .AddItem "Bandmaterial"
    .AddItem "Reepschnur"
End With

'Modell
TextBox_Model = "Modell eingeben"

'Benutzer
TextBox_Benutzer = "BWS_KA"

'Seriennummer
TextBox_Seriennummer = "Seriennummer eingeben"

'Herstellungs Datum/Jahr
TextBox_Herstellungsjahr = "Herstellungsdatum eingeben"

'Kaufdatum
TextBox_Kaufdatum = "Kaufdatum eingeben"

'Prüfung bestanden oder nicht


'Nächste Prüfung
TextBox_NächstePrüfung = "Nächste Prüfung eintragen"

'Bemerkung
TextBox_Bemerkung = "Bemerkungen eintragen"

End Sub

Jetzt hätte ich Gerne, dass der  "Betsanden" & "Nicht bestanden" in meiner Excel in verschiedenen Farben erscheinen.

Wie muss ich dies definieren?

Habe hierzu leider nichts gefunden. Danke schon mal im Vorraus

Gruß

Stefan