Fehlermeldung 380

Private Sub CBClose_Click()
Unload UFAbfrage
Sheets("USB-Daten").Select
End Sub

Private Sub CBSave_Click()
Dim strAbfrage  As String
If CBFahrzeugklasse.Text = "" Then
MsgBox "Bitte zuerst die Fahrzeugklasse auswählen.", vbCritical, "Abbruch"
Exit Sub
End If
strAbfrage = MsgBox("Ist Ihre Auswahl korrekt?" & Chr(10) & CBFahrzeugklasse.Text & Chr(10), vbQuestion + vbYesNo, "Auswahl")
If strAbfrage = vbNo Then
Exit Sub
End If
Worksheets("Steuerung").Range("A4").Value = CBFahrzeugklasse.Text
'Worksheets("Steuerung").Range("C4").Value = CBZweck.Text
Unload UFAbfrage
Einblenden_Tabellenblaetter
Sheets("USB-Daten").Select
End Sub

Private Sub UserForm_Activate()
CBFahrzeugklasse.RowSource = "Steuerung!A6:A" & Sheets("Steuerung").Range("A1048576").End(XlDirection.xlUp).Row
'CBZweck.RowSource = "Steuerung!C6:C" & Sheets("Steuerung").Range("A1048576").End(XlDirection.xlUp).Row
End Sub