Hallo zusammen,
ich Übergebe aus einer Userform Textbox mittels
Worksheets("Stundennachweis").Range("BF34") = CDbl(UserForm15_Sonntag.TextBox1.Text)
einen Wert um damit din der Tabelle weiterzurechnen. Das funktioniert auch soweit.
Das Ergebnis dieser Berechnung wird in eine Userform Combobox zurückgegeben:
If Worksheets("Stundennachweis").Range("BF34") "" Then
UserForm15_Sonntag.ComboBox1.ListIndex = 0
Else
UserForm15_Sonntag.ComboBox1.ListIndex = 18
End If
If Worksheets("Stundennachweis").Range("BF30") "" Then
UserForm15_Sonntag.ComboBox2.ListIndex = 0
Else
UserForm15_Sonntag.ComboBox2.ListIndex = 6
End If
End Sub
Irgendetwas schein daran nicht zu stimmen. Wenn ich die Daten entgültig an die Tabelle übergeben will, wirft mir Excel einen Fehler hin: Laufzeitfehler Typen unverträglich.
Ich vermute das das was mit Cdbl zu tun hat. Kann es sein das der Rückgabewert nicht dem entspricht, was excel erwartet? Ich habe es so versucht : UserForm15_Sonntag.ComboBox2 = CdBl (ListIndex = 6)
Dann aber liegt der Rückgabewert bei -1.
Kann mir jemand meinen Fehler aufzeigen?
Vielen Dank
Volker