Fehlermeldung in einem Formular

Private Sub cboKategorieSteuer_Change()
Dim a As Integer
With Me
.cboKategorieSteuer.SetFocus
a = .cboKategorieSteuer.ListIndex
.cboSteuersatz.Value = .cboKategorieSteuer.List(a, 1)
End With
End Sub

Private Sub cmdAbbruch_Click()

'Unload Me

'Schließt das Formular frmKaeufe

Unload frmKaeufe

End Sub

Private Sub cmdEingabe_Click()
'Unload Me
'Fügt die Werte ein und schließt das Formular frmKaeufe
Dim intErsteLeereZeile As Long
Dim curNetto As Currency
With ActiveSheet
intErsteLeereZeile = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(intErsteLeereZeile, 1).Value = Me.txtDatum.Value
.Cells(intErsteLeereZeile, 2).Value = Me.txtBezeichnung.Value
.Cells(intErsteLeereZeile, 3).Value = Me.cboKategorieSteuer.Value
.Cells(intErsteLeereZeile, 4).Value = CCur(Me.txtBruttopreis)
.Cells(intErsteLeereZeile, 5).Value = CDbl(Me.cboSteuersatz.Value)
'Berechnen
'Netto in Variable speichern
curNetto = Round(CCur(Me.txtBruttopreis) / (1 + CDbl(Me.cboSteuersatz.Value)), 2)
.Cells(intErsteLeereZeile, 6).Value = curNetto
.Cells(intErsteLeereZeile, 7).Value = CCur(Me.txtBruttopreis) - curNetto
End With
Unload frmKaeufe
End Sub

Private Sub UserForm_Initialize()
'Werte beim Aufruf des Formulars eintragen und Initialisieren
Dim rngKategorien As Range
With Me
.txtDatum.Value = Date
.txtBruttopreis = 0
.cboSteuersatz.List = Range("Steuersätze").Value
End With
For Each rngKategorien In Range("Kategorien")
With Me.cboKategorieSteuer
.AddItem rngKategorien.Value
'Jede Zelle im bereich Kategorien wird nach und nach über AddItem
.List(.ListCount - 1, 1) = rngKategorien.Offset(0, 1).Value
End With
Next rngKategorien
'die Schleife wird solange durchlaufen, wie es Zellen im Bereich Kategorien listet
End Sub