UserForm - Zahlenformat

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


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: UserForm - Zahlenformat
von: Gunnar
Geschrieben am: 02.07.2002 - 16:41:30

Hallo Leute, ich habe folgendes Problem:

Über ein Formular (Textbox tb002) soll in eine Excel-Datei Zahlen in in dem Format #.##0,000 geschrieben werden. Der Code dazu ist fogender:

.tb002.Value = Format(CDbl(ActiveSheet.Cells(myRow, 4).Value), "##,##0.000")

Problem dabei ist nun, dass er Leerzellen automatisch als Nullwerte im Formular anzeigt und diese beim Speichern dann auch in die Excel-Tabelle geschrieben werden. Lösche ich die Null im Formular, erscheint die Fehlermeldung "Typen unverträglich". Wie kann ich erreichen, dass Leerzellen auch als solche im Formular angezeigt werden und nach dem Speichern auch Leerzellen bleiben?

nach oben   nach unten

Re: UserForm - Zahlenformat
von: L.Vira
Geschrieben am: 03.07.2002 - 01:32:05

mit einer geeigneten Abfrage in der Art
If not cells(x,y)="" then
.tb002.Value = Format(CDbl(ActiveSheet.Cells(myRow, 4).Value), "##,##0.000")
else
.tb002 = ""
end if

nach oben   nach unten

Re: UserForm - Zahlenformat
von: Gunnar
Geschrieben am: 03.07.2002 - 12:12:30

Spitze!!!! Vielen Dank - hat funktioniert.

 nach oben

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