Office: (Office 2010) Summe der Textboxen in UserForm

Hallo,

ich habe eine UserForm mit mehreren TextBoxen (TextBox1..TextBox10)erstellt. Jetzt möchte ich in einer neuen TextBox11 die Summe der anderen TextBoxen ausgeben. Die TextBoxen werden aber bereits aus einer Tabelle mit Daten gefüllt und können auch durch den User nach dem öffnen der UserForm geändert werden. Kann ich die Summe gleich beim Öffnen der UserForm , ohne dass ich die Werte in der TextBox ändern muss, anzeigen und natürlich auch dann nach jedem Ändern der Daten??

Ich habe es mit folgendem Script versucht, hier muss ich aber die Felder erst anwählen und dann wieder Verlassen
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox11.Text = CInt(TextBox1.Value) + CInt(TextBox2.Value) + CInt(TextBox3.Value) + CInt(TextBox3.Value) + CInt(TextBox5.Value) + CInt(TextBox6.Value)+ CInt(TextBox7.Value)+ CInt(TextBox8.Value)+ CInt(TextBox9.Value)+ CInt(TextBox10.Value)
End Sub

Könnte mir jemand helfen???

Schöne Grüße

Jojo

:)

 

das sieht ok aus für das ändern einer TextBox.

Eine hochgeladene Arbeitsmappe, erhöhen die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).

 

Hi,

benutze folgendes Makro (im Codemodul des UserForms):

Code:

Dieses Makro rufst du beim Start des UserForms auf. Außerdem rufst du es für jede TextBox im AfterUpdate-Ereignis auf:

Code:

 

Hallo Hajo,

im Anhang befindet sich eine Beispieldatei. In der TextBox8 (Gesamt) soll immer die Summe der TextBox9..TextBox13 erscheinen. Auch wenn keine Änderungen in den TextBoxen vorgenommen werden.

 

Hallo Beverly,

vielen Dank für die schnelle Antwort. Bei Deinem Beispiel habe ich aber das Problem, dass alle TextBoxen in der UserForm zusammengerechnet werden. Ich möchte aber nur bestimmte TextBoxen aufaddieren! Außerdem habe ich das Problem, wenn ich Dein Code verwende, dass ich Fehler Meldung bekomme, wenn ich neue Werte in die TextBoxen eingebe. Dazu habe ich Dir eine Beispieldatei angehängt!

Gruß

Jojo

 

Hi,

schau mal deinen im Eröffnungsbeitrag geposteten Code an - dort sind es die TextBoxen 1 bis 10 und davon musste ich selbstverständlich ausgehen, schließlich kann ich nicht ahnen, dass sie in Wirklichkeit anders heißen...

Code:

Dass der Code einen Fehler auslöst, wenn der Inhalt der TextBoxen geändert wird, kann ich nicht nachvollziehen.

 

Hi,

vielen Dank für die Hilfe. So funktioniert es, aber eine Frage habe ich noch.
Beim öffnen der UserForm ist die TextBox8 leer. Erst wenn ich in einer der anderen TextBoxen Änderung vorgenommen habe, wird die Summe angezeigt. Gibt es auch noch die Möglichkeit, dass schon beim öffnen der UserForm die Summe berechnet wird und auch angezeigt?? Die Daten stehen ja alle in der Tabelle!!

Gruß Jojo

 

Hi,

mit der AfterUpdate-Ereignis funktioniert das, aber beim Start des UserForms nicht. Im Anhang meine Datei. Vielleicht kannst Du schnell erkennen was ich falsch mache.

Außerdem hätte ich noch eine Frage zu der Summenberechnung. In der TextBox8 wird die Summe berechnet. Kann ich dann mit dieser TextBox auch weiter rechnen. Ich habe in meiner Auswertung drei Summen die ich berechne. Jetzt möchte ich diese drei Summen zu einer Gesamtsumme zusammenfassen! Würde das gehen????


Gruß

Jojo

 

Hi,

was funktioniert denn nicht beim Start des UserForms? Alle TextBoxen - auch die der Summe - sind doch gefüllt.

Warum solltest du mit den TextBoxen nicht weiterrechnen können? Auf deinem UserForm gibt es allerdings keine weiteren TextBoxen.