Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1232to1236
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1232to1236
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ergebnisse aktualisieren

Ergebnisse aktualisieren
Steffen
Hallo An Alle,
ich hätte folgende Fragen. Ich habe ein Userform mit 3 Textboxen. In zwei sollen Werte eingetragen werden und im 3 dann das Ergebnis ausgegeben werden. Soweit nicht schwer. Wenn ein Eingabewert geändert wird soll sich das Ergebnis automatisch aktualisieren. Dazu habe ich ein Modul geschrieben und rufe dieses bei der TextBox_change mit Call auf. Leider bekomme ich immer die Überlauf-Meldung.
Es wäre sehr nett wenn Ihr mir einen Hinweis geben könntet was ich falsch mache.
https://www.herber.de/bbs/user/77130.xlsm
Vielen Dank im Voraus
Steffen

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

Betreff
Benutzer
Anzeige
AW: Ergebnisse aktualisieren
21.10.2011 09:58:32
Reinhard
Hallo Steffen,
einen Hinweis? Okay.
Überlauf ist nicht falsch aber korekkt müßte die Fehlermeldung Division durch Null lauten denn b ist immer 0 und wird nie geändert.

Sub Rechnen()
Dim a As Single, b As Single, c As Single
frm1.txt1.Value = a
frm1.txt2.Value = b
c = a / b
frm1.txt3.Value = c
End Sub

Kommste selbst auf die Lösung?
Gruß
Reinhard
AW: Ergebnisse aktualisieren
21.10.2011 10:11:28
Steffen
Hallo Reinhard
vielen Dank für deinen Hinweis doch sehe ich leider mein Problem nicht.
Gruß
Steffen
Mit Textboxen rechnen
21.10.2011 10:36:04
Reinhard
Hallo Steffen,
in deinem Code steht
c = a / 0
Probiers mal so, ggfs. die TB noch auf leer überprüfen un dgfs. noch Fehlermeldungen einbauen wenn wo keine Zahl steht.

Sub Rechnen()
With frm1
If IsNumeric(.txt1.Value) And IsNumeric(.txt2.Value) Then
If Val(.txt2.Value)  0 Then
.txt3.Value = .txt1.Value / .txt2.Value
End If
End If
End With
End Sub

Gruß
Reinhard
Anzeige
AW: Mit Textboxen rechnen
21.10.2011 10:49:09
Steffen
Hallo Reinhard,
vielen Dank für deine Hilfe. So funktioniert es. Klasse, dass einem Anfänger hier so geholfen wird.
Gruß und Dank
Steffen
AW: Mit Textboxen rechnen
21.10.2011 13:20:03
Steffen
Hallo Reinhard,
vielleicht könntest Du mir bei meiner nächsten Frage auch noch behilflich sein. Ich habe das Modul erweitert:

Sub Rechnen()
With frm1
If IsNumeric(.txt1.Value) And IsNumeric(.txt2.Value) Then
If Val(.txt2.Value)  0 Or Val(.txt1.Value)  0 Then
.txt3.Value = .txt1.Value / .txt2.Value
.txt1.Value = Format(.txt1.Value, "#,###0.000")
.txt2.Value = Format(.txt2.Value, "#,###0.000")
.txt3.Value = Format(.txt3.Value, "#,###0.000")
End If
End If
End With
End Sub
Ich wollte damit erreichen, dass die Zahlen mit 3 Kommastellen zu sehen sind. Dies geht auch bis 9 eine 10 kann ich nicht eingeben. Was mache ich falsch?
Gruß
Steffen
Anzeige
Erledigt, Frage wurde neu gestellt o.w.T.
21.10.2011 14:23:45
Reinhard

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige