Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige