Zahlenformat Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox


Excel-Version: 97
nach unten

Betrifft: Zahlenformat Userform
von: MiWi
Geschrieben am: 28.04.2002 - 21:20:37

Wenn ich in einer Userform mit mehreren Boxen folgenden Code habe
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)
usw.
Wenn ich nun in der TextBox2 keinen Wert eintrage bringt er mir immer die Fehlermeldung Typen unverträglich.
Was mache ich falsch
Mit bestem Dank im Vorraus

nach oben   nach unten

Re: Zahlenformat Userform
von: Hajo
Geschrieben am: 29.04.2002 - 06:57:23

Hallo MiWi mal ungetestet
Sub Test()     For I = 1 To 100         If Controls("Textbox" & I).Value <> "" Then           Sheets("Statistik").Cells(x, I) = CDbl(Controls("Textbox" & I).Value)         End If     Next I End Sub
Gruß Hajo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zahlenformat Userform"