Fehler beim löschen der Textbox in UF

Guten Tag an Alle!
Bin mich gerade an einer Userform mit Textboxen am erfreuen.....leider stockt das ganze etwas....
mittlerweile hab ich hier gelernt das man mit Textboxen auch rechnen kann und hab mir folgendes vorgestellt.
In der Userform übernimmt die erste Reihe von Textboxen die Zahlen von A470 bis A477(geht soweit)
Dann geb ich in der nächsten Reihe der Textboxen eigene Werte ein.
In der dritten Reihe wird mir dann die jeweiligen Differenzen angezeigt(auch das geht soweit.
Jetzt hab ich die Textboxen auch alle mit Value=0 gesetzt. und in den einzelnen Textboxen zum rechnen steht dann sowas z.b....


Private Sub TextBox51_Change()
TextBox99 = CDbl(TextBox51) + CDbl(TextBox59) + CDbl(TextBox67) + CDbl(TextBox75) + CDbl(TextBox83) + CDbl(TextBox91)
End Sub

jedoch wenn man sich mal in einer Textbox vertippt und löscht geht er direkt in den debugmodus...denke mal weil in diesem Moment keine Zahl kurzzeitig mehr drin steht.
Wie kann man sowas umgehen.
Hab schon stundenlang die Recherche bemüht und hab da noch nix brauchbares gefunden.
Hoffe das es einigemaßen erklärt ist.
Vorab schon mal Dank!
Gruß Uwe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub TextBox51_Change() If Textbox99.Text = "" Then Exit Sub 'wenn Textbox = leer, dann mache nix weiter TextBox99 = CDbl(TextBox51) + CDbl(TextBox59) + CDbl(TextBox67) + CDbl(TextBox75) + CDbl(TextBox83) + CDbl(TextBox91) End Sub

Hi Thorsten,
hab jetzt mal so eingepflegt und es mal mit "" und "0" versucht.
In beiden Fällen kommt dann wieder ein debugfehler bei raus...
Bei "0" kommt der Fehler wenn ich die falsche Zahl eingegeben habe und mit zurück oder Entf. eine Neue eingeben will.
Und bei "" macht er es nicht wenn ich direkt am Anfang die 0 entferne sondern wenn ich schon eine Zahl eingegeben habe und die wieder entfernen möchte.
Ich fang an zu zweifeln....sind die Textboxen vielleicht das falsche Mittel.
Es kommt ja noch dazu das die Vielzahl der Textboxen in Zellen wiedergegeben werden sollen zur weiteren verwendung. Und die Formatierung klappt in manchen Textboxen auch nicht. Zeigt mit unter 4 stellig hinter dem Komma an. Und bei der Übergabe an die Zellen dauerts dann auch noch.
Bin da jetzt schon Tage mit beschäftigt und bekomm da kein Ergebnis.
Vielleicht muß man das ja ganz anders machen.
Für Ideen wär ich dankbar.
Gruß Uwe

Private Sub TextBox51_Change() If Textbox51.Text = "" Or _ Textbox59.Text = "" Or _ Textbox67.Text = "" Or _ Textbox75.Text = "" Or _ Textbox83.Text = "" Or _ Textbox93.Text = "" Then Exit Sub 'wenn eine der txtboxen 51,59,67,75,83 oder 93 = leer, dann mache nix weiter End If TextBox99 = CDbl(TextBox51) + CDbl(TextBox59) + CDbl(TextBox67) + CDbl(TextBox75) + CDbl(TextBox83) + CDbl(TextBox91) End Sub

Beliebteste Forumthreads (12 Monate)

Fehler beim löschen der Textbox in UF

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread