Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
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

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige