Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
256to260
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
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summe in Userform

Summe in Userform
19.05.2003 12:25:33
Raik Reinhoefer
Hallo,

ich bin auf der Suche nach einer besseren Lösung für eine Summenberechnung in einer Userform. Wer kann mir helfen?

Also: ich habe eine userform mit Textboxen als Eingabefelder, diese werden nach dem verlassen wie folgt formatiert.
Me.TextBox1.Value = Format(Me.Me.TextBox1.Value, "#,##0.00;;\")

Wenn ich nun in einer Sub Addieren() nun Inhalte der Textboxen addiere:
(Werte: Textbox1 = 1.005,55 und Textbox2 = 2.000,00)
Me.Summe.Value = Me.TextBox1.Value + Me.TextBox2.Value
erhalte ich folgendes Ergebnis: (1.005,552.000,00)

Um nun auf ein Ergebnis zu kommen mache ich folgendes:

Sub Addieren()
Dim zahl1 As Double
Dim zahl2 As Double

If len(Me.TextBox1.Value) > 0 Then
zahl1 = Me.TextBox1.Value
Else
zahl1 = 0
end if

If len(Me.TextBox2.Value) > 0 Then
zahl2 = Me.TextBox2.Value
Else
zahl2 = 0
end if
Me.Summe.Value = zahl1 + zahl2
End sub

Ich habe das so umständlich gemacht, weil wenn ich
zahl1 = Me.TextBox1.Value setze und der Inhalt der Textbox ist ""
dann gibt es an dieser Stelle einen Absturz.

Ich hoffe Ihr könnt mein Problem verstehen.
Für Eure Hilfe bedanke ich mich schon mal im voraus.

Gruß Raik


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Summe in Userform
19.05.2003 12:43:13
Nepumuk

Hallo Raik,
so eventuell?

Gruß
Nepumuk

Re: Summe in Userform
19.05.2003 13:43:25
L.Vira

Textboxen liefern Text! Du musst einen Datentyp mit einer Umwandlungsfunktion erzwingen z.B.:
dblSumme = CDbl(Textbox1) + CDbl(Textbox2)

Re: Summe in Userform
19.05.2003 17:35:16
Raik Reinhöfer

Danke für deine Antwort,

habs auch gleich probiert. Funktioniert auch soweit, bis auf wenn der Wert der TextBox = "" ist, dann tritt der Laufzeitfehler Nr. 13 (Typen unverträglich) auf.

Ich kann ja die Antwort von Nepumuk mit in die Sub einbauen, die bringt mich ja auch zum Ziel oder weißt du oder jemand ne noch kürzere Lösung.

Gruß + Besten Dank
Raik

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige