Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
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: Probleme mit Division einer Userform-TextBox

Probleme mit Division einer Userform-TextBox
12.01.2020 12:30:08
Joe
Hallo Zusammen,
da ich jetzt nun geschlagene 2h daran scheitere, eine Division zwischen zwei Userform TextBoxen zu programmieren, würde ich mich über eure Hilfe sehr freuen!
An sich habe ich 2 TextBoxen (Bsp. Box1: 13270; Box2: 8000), welche durch Ändern ein Ergebnis in einer dritten (Box3 = Box2 / Box1) unveränderbaren TextBox anzeigen sollen.
Sobald in Box1 oder 2 ein "Change" passiert, wird das Programm "Rechnen aufgerufen":

Public Sub Rechnen()
Box3.Text = Val(Box2.Value) / Val(Box1.Value)
End Sub

Leider bekomme ich immer nur den "Laufzeitfehler '6': Überlauf"?!?
Ebenfalls habe ich es schon mit CLng; CDbl versucht:/
Vielen Dank für eure Hilfe!
Jonas
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit Division einer Userform-TextBox
12.01.2020 12:36:41
Regina
Hi,
ich würde vermuten, dass Box1 leer ist und deshlab eine Division durch 0 erfolgt. Schau doch mal nach, ob der Name Box1 wirklich für die richtige Textbox vergeben ist.
AW: Probleme mit Division einer Userform-TextBox
12.01.2020 12:52:58
Joe
Hallo Regina,
da bei einer Summe & auch Multiplikation ein richtiges Ergebnis rauskommt, wird schon die richtige Box angesprochen.
Das Problem habe ich nur bei einer Division?
Außerdem habe ich jetzt noch eine If-Abfrage, welche checkt, ob eine der Boxen leer oder 0 ist:)
LG
Anzeige
in beiden TextBoxen muss eine Zahl stehen ... owT
12.01.2020 12:39:13
Matthias
AW: in beiden TextBoxen muss eine Zahl stehen ... owT
12.01.2020 12:46:39
Joe
Hallo Matthias,
danke für deine Antwort:)
In der TextBox steht eine Zahl!?
Ich habe auch beim Initialisieren eine Zahl drin.
Grüße
Jonas
dann zeig uns das!
12.01.2020 12:50:43
Matthias
Hallo
Es kann keiner helfen wenn er/sie es nicht am Orginal testen kann.
Ich habe es so probiert und es funktioniert!
Public Sub Rechnen()
With UserForm1
If IsNumeric(.Box1) And IsNumeric(.Box2) Then
.Box3.Text = (CDbl(.Box2.Value) / CDbl(.Box1.Value))
Else
.Box3 = ""
End If
End With
End Sub
Gruß Matthias
Anzeige
AW: dann zeig uns das!
12.01.2020 12:58:22
Joe
Hallo Matthias,
vielen Dank für deine Hilfe!
Habe meinen Code nun an deinen angepasst und nun klappt es?!? Weiß der Geier warum?:D
Naja....vielen Dank und ein schönes Restwochenende!
Grüße
Jonas
;

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