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
|