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

variable Summenermittlung in einer UserForm

variable Summenermittlung in einer UserForm
07.02.2006 10:41:46
Bulli
Hallo VBA Cracks,
ich habe ein Problem bei der Ausgabe einer Summe in einem Label.
Nach der Eingabe der Anzahl der Teilsummen in Textbox4 sollen in den jeweiligen Textboxen (17 bis 28) die Teilsummen eingetragen werden und die Gesamtsumme über Label 43 ausgegeben werden. Leider funktioniert das Ganze nicht so wie ich das gerne hätte.
Es erscheint die Meldung Laufzeitfehler '13' Typen unverträglich! sobald ein Wert eingetragen wird.
Hat jemand einen Vorschlag, wie das Ganze funktionieren könnte?

Private Sub TextBox18_Change()
Dim x, y As Byte
x = TextBox4.Value
For y = 2 To x
If TextBox4.Value >= 1 And TextBox4.Value <> "" _
And Me.Controls("TextBox" & y + 15).Value <> "" Then
'Ermittlung der Gesamtsumme
Label43.Caption = Format(CDbl(TextBox17) + _
CDbl(Me.Controls("TextBox" & y + 16)), "#,##.00 €")
End If
Next y
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: variable Summenermittlung in einer UserForm
07.02.2006 13:06:44
Uduuh
Hallo,
versuchs mal so:

Private Sub TextBox18_Change()
Dim sngSum As Single, i As Integer
For i = 17 To 28
If Me.Controls("Textbox" & i) <> "" Then
sngSum = sngSum + Me.Controls("Textbox" & i) * 1
End If
Next i
Me.Label43.Caption = Format(sngSum, "#,##0.00 €")
End Sub

Gruß aus’m Pott
Udo

AW: variable Summenermittlung in einer UserForm
07.02.2006 15:51:26
Bulli
Hallo Uduuuh,
läuft perfekt!!!
vielen Dank!
Bulli
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige