doble in Userform
03.05.2002 16:35:00
Michael
Lösung die dort war funzt nicht.
Folgendes: Habe eine UserForm mit mehreren Text und ComboBoxen
Makro soll nun die erste leere Zeile suchen und dann denn Wert in die Tabelle im Zahlenformat (Double) eintragen
Code: x=1
Do While Sheets("Statistik").Cells(x,1)<>""
x=x+1
Loop
Sheets("Statistik").Cells(x,1) = Cdbl(TextBox1)
Sheets("Statistik").Cells(x,2) = Cdbl(TextBox2)
Sheets("Statistik").Cells(x,3) = Cdbl(ComboBox1)
Wenn ich aber nun in einer Box keinen Wert eintrage kommt eine Fehlermeldung "Typen unverträglich"
Mit Sheets("Statistik").Cells(x,1) = TextBox1
funktionierts wunderbar, muss wohl an CDBl liegen.
(brauche aber den Wert als Zahl)
Wer weiss eine Lösung. Mit bestem Dank im vorraus
Anzeige