Office: Auswahl von Combobox ergibt Laufzeitfehler

Hallo,

ich habe ein Problem und komme nicht so richtig weiter.
Ich habe auf einer UserForm insgesamt 12 ComboBoxen. In jeder ComboBox sind verschiedene Eigenschaften mit Werten hinterlegt. Bei Auswahl der der jeweiligen Eigenschaften werden die Werte miteinander multipliziert. Jeder ComboBox ist zu Beginn eine Anfangseigenschaft zugeordnet.

Jetzt zu meinen Problem: In der ComboBox1 gibt es insgesamt 5 Eigenschaften. Zu Beginn ist die dritte Eigenschaft voreingestellt. Wählt man die Eigenschaft direkt da drunter oder direkt drüber, dann funktioniert auch alles soweit. Will man allerdings die erste Eigenschaft bzw die letzte Eigenschaft wählen, erhält man einen Laufzeitfehler 13, Typen unverträglich.

Der Code dafür lautet:

Private Function getTotal() As Currency

Dim ctl As MSForms.Control
Dim curWert As Currency
Dim curErgebnis As Currency

Dim blnCalc As Boolean

curErgebnis = 1

For Each ctl In Controls
If TypeOf ctl Is MSForms.ComboBox Then
Select Case ctl.Name
Case "ComboBox1", "ComboBox8", "ComboBox12"
'Comboboxen mit einer Werte-Spalte
If ctl.Value "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, 2).Value
'MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
Case "ComboBox2", "ComboBox3", "ComboBox4", "ComboBox5", "ComboBox6", "ComboBox7", "ComboBox9", "ComboBox10", "ComboBox11"
'Comboboxen mit Werte-Spalte für verschiedene Wert-Spalten
If ctl.Value "" Then
blnCalc = True
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, Me.ComboBox1.ListIndex + 1).Value
'MsgBox ctl.Name & ": " & curWert
curErgebnis = curErgebnis * curWert
End If
End Select
End If
Next

Set ctl = Nothing

If Not blnCalc Then curErgebnis = 0

getTotal = curErgebnis

End Function


Dabei wird
curWert = Range(ctl.RowSource).Cells(ctl.ListIndex + 1, Me.ComboBox1.ListIndex + 1).Value

gelb markiert.

Weiß jmd. was falsch ist und wie man den Fehler beheben kann?

Vielen Dank

:)

 

es ist vllt noch zu erwähnen, dass alle ComboBoxen abhänhig von der Wahl der Eigenschaft von ComboBox1 sind

 

Damit die die ComboBoxen zu Beginn gefüllt sind, wurde folgender Code verwendet:
ComboBox1.Value = "Eigenschaft 3"
ComboBox2.Value = "Eigenschaft 8"
ComboBox2.Value = "Eigenschaft 12"
usw.

Wenn dieser Code gelöscht wird, erscheint auch kein Laufzeitfehler mehr.

 

weiß nmd, wie ich den Fehler beheben kann und trotzdem startwerte in den ComboBoxen stehen?