ComboBox soll einen Wert erhalten

Forumthread: ComboBox soll einen Wert erhalten
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: ComboBox soll einen Wert erhalten

11.10.2013 22:30:52

Frank

Hallo Zusammen und vorab allen ein schönes WE!
Ich nutze folgenden Code:

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox3 = "" Then
Exit Sub
Else
ComboBox3 = Format(ComboBox3, "0.000")
End If
If TextBox6 = "Dfr." Then
ComboBox3 = 0#
End If
ComboBox3 = Format(ComboBox3, "0.000")
TextBox7 = CDbl(TextBox3) + CDbl(ComboBox3)
TextBox7 = Format(TextBox7, "0.000")
End Sub

Wenn nun in TextBox6 das Wort Dfr. steht, sollte eigentlich in der ComboBox die Null in der entsprechenden Formatierung erscheinen. Tut es aber leider nicht! Verzweifle bereits. Wer weiss Rat und würde mir verraten wie ich es denn richtig machen sollte?
Gruß Frank H.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ComboBox soll einen Wert erhalten

12.10.2013 06:09:45

Oberschlumpf
AW: ComboBox soll einen Wert erhalten

12.10.2013 16:45:16

Frank
Nun klappt es wie gewünscht?

12.10.2013 19:02:07

Matthias

AW: ComboBox soll einen Wert erhalten

12.10.2013 06:09:45

Oberschlumpf

Hi Frank
und wenn du
ComboBox3 = Format(ComboBox3, 0#)
schreibst?
Ciao
Thorsten

AW: ComboBox soll einen Wert erhalten

12.10.2013 16:45:16

Frank

Hallo Thorsten!
Auch deine Idee schluf fehl, aber dadurch prüfte ich nochmals gedanklich meinen Code und veränderte ihn wie folgt:

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox6 = "Dfr." Then
ComboBox3 = 0#
If ComboBox3 = "" Then
MsgBox "Bitte erst einen Wert eingeben!"
Exit Sub
End If
End If
ComboBox3 = Format(ComboBox3, "0.000")
TextBox7 = CDbl(TextBox3) + CDbl(ComboBox3)
TextBox7 = Format(TextBox7, "0.000")
End Sub

Nun klappt es wie gewünscht! Dennoch herzlichen Dank und ein schönes WE!
Gruß Frank H.

Nun klappt es wie gewünscht?

12.10.2013 19:02:07

Matthias

Hallo
Wenn Du damit zufrieden bist, ok ...
Aber gib mal Text in die Textbox-Objekte, oder auch in die Combobox ein.
Evtl. fängst Du das ja schon ab, das kann man aus der Frage aber nicht ableiten.
Da gehört unbedingt noch eine Prüfung mit rein, ob Zahl oder Text.
Gruß Matthias