Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Null in Zelle unterdrücken Textbox mit CDbl Wert

Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 10:55:25
Karl-Heinz
Hallo,
ich lasse mehrere Werte aus Zellen einer Tabelle in Textboxen schreiben, z.B.
TextBox1 = CDbl(ActiveCell.Offset(0, 2))
anschließend sollen Werte korrigiert oder gelöscht und in die selektierten Zellen mit commandbutton1_click zurückgeschrieben werden, z.B.
ActiveCell.Offset(0, 2) = CDbl(TextBox1).
Das funktioniert auch problemlos.
Nur, wenn ich keinen Wert in der Textbox angebe erscheint immer die 0/Null in der Tabellenzelle. Wie kann ich die Null unterdrücken?
Gruß
Karl-Heinz
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 11:19:29
Peter
Hallo Karl-Heinz,
indem du abfragst If Not IsEmpty(Me.TextBox1) then
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 12:00:16
Karl-Heinz
Hallo Peter,
grundsätzlich funktioniert es mit der Korrektur
If Not IsEmpty(ActiveCell.Offset(0, 2Then
TextBox1 = ActiveCell.Offset(0, 2)
End If
und
If Not IsEmpty(TextBox2) Then
ActiveCell.Offset(0, 2) = TextBox1
End If
Nur in den angesprochenen Zellen der Tabelle erscheint das grüne Dreieck dass die Konvertierung nicht stimmt, in dem Moment, wenn ich die Userform mit über den unload-Code schließe.
Das hatte ich vorher mit dem Zusatz CDbl verhindert, weil der Konvertierungshinweis sonst immer bei den Zahlen mit Nachkommastellen erschien.
Gruß
Karl-Heinz
Anzeige
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 12:37:01
Peter
Hallo Karl-Heinz,
die Konvertierung mit CDbl kannst du nach wie vor verwenden - wenn es daran liegen sollte ...
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 13:04:47
Karl-Heinz
Hallo Peter,
wenn ich CDbl drin lasse, die Daten in der Textbox lösche und den Commandbutton drücke kommt eine Laufzeit13 (Typen unverträglich) Fehlermeldung.
Gruß
Karl-Heinz
Anzeige
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 14:06:26
Karl-Heinz
Hallo Peter,
ich hab noch weiter gebastelt und es wie folgt lösen können
If ActiveCell.Offset(0, 2) &lt = "" Then
TextBox1 = ""
Else
TextBox1 = CDbl(ActiveCell.Offset(0, 2))
End If
If TextBox1 &lt = "" Then
ActiveCell.Offset(0, 2) = ""
Else
ActiveCell.Offset(0, 2) = CDbl(TextBox1.Text)
End If
Vielen Dank für deine Unterstützung und viele Grüße
Karl-Heinz
Anzeige
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 14:39:10
Peter
Hallo Karl-Heinz,
nimm anstelle von (kleiner = "") besser = ""
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: Null in Zelle unterdrücken Textbox mit CDbl Wert
16.01.2006 14:58:08
Karl-Heinz
Hallo Peter,
Danke!
Tschüß
Karl-Heinz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige