Office: (Office 2010) excel vba OptionsButton in UserForm

Hallo

Ich habe eine UserForm erstellt, welche die Daten aus den Text und Kombinatiosfeldern an meine Tabelle einfügt.
Jetzt ist eine Zusätzliche Fragestellung aufgekommen und ich habe dafür 3x OptionsButton eingefügt.
Diese sollen dann in der jeweiligen Zeile der Spalte5 1. Ja, 2. Nein oder 3. - übertragen. Jetzt hätte ich gerne, das sobald Button3. aktiviert ist, die Zelle in Spalte6 sich mit der InteriorColour 15 färbt.
Schön wäre auch, wenn das Feld in der Userform, welches mit der Spalte6 verknüpft ist, dann auch nicht 'beschrieben' werden kann. Wäre aber kein Muss.

Mit der Farbe habe ich jetzt schon viele verschiedene Varianten probiert, leider färbt sich die Zeile nie.

Der Code:


Private Sub Button_Übernehmen_Click()

'Eingabe Übernehmen und anschließend schließen
'Code im Modul Programm

Dim intErsteLeereZeile As Integer

With ActiveSheet
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1

If Me.cboKategorie.Value = "" Then
MsgBox "Bitte wählen Sie eine Kategorie aus.", vbCritical
Exit Sub
End If

If Me.cboArbeitsbez.Value = "" Then
MsgBox "Bitte gebe eine Artikelbezeichnung an.", vbCritical
Exit Sub
End If

If Me.cboHersteller.Value = "" Then
MsgBox "Bitte wählen Sie einen Hersteller aus.", vbCritical
Exit Sub
End If

ActiveSheet.Unprotect "1234"

Range("A:I").Font.size = 10
Range("A:I").HorizontalAlignment = xlCenter

'Eintrag

.Cells(intErsteLeereZeile, 1).Value = Me.cboKategorie.Value
.Cells(intErsteLeereZeile, 2).Value = Me.cboArbeitsbez.Value
.Cells(intErsteLeereZeile, 3).Value = Me.cboHersteller.Value
.Cells(intErsteLeereZeile, 4).Value = Me.txtArtNummer.Value

If Me.oBVorhanden.Value = True Then
.Cells(intErsteLeereZeile, 5).Value = "Ja"
End If

If Me.oBnichtVorhaben.Value = True Then
.Cells(intErsteLeereZeile, 5).Value = "Nein"
End If

If Me.oBnichtErford.Value = True Then
.Cells(intErsteLeereZeile, 5).Value = "-"
End If

::::::::::::::Hier habe ich es mit verschiedenen If abfragen Probiert, nur keine hat Funktioniert::::::::::::::::::::::::

.Cells(intErsteLeereZeile, 6).Value = Me.txtLot.Value ect.

Vielen Dank