Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
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
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

rechnen in einer userform

rechnen in einer userform
lisa
Hallo
Ich benötige noch wieder einmal mehr Eure Hilfe!
Ich habe in meiner Userform 8 Textfelder in denen ich Werte eintrage und eine weitere Textbox9 in der ich gern die Summe der 8 Textfelder abbilden will.
Was ich bis jetzt in der Recherche gefunden habe, ist dieser Ansatz:
TextBox9.Text = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
Auch habe ich gefunden, dass das mit einer If Schleife wegen der Leerfelder umgesetzt werden muss.
If TextBox1 = "" Then TextBox1 = 0
Wie bringe ich das zusammen?
Kann ich überhaupt über das Textbox9_Change() Ereignis einen automatische Summenbildung in der Userform erreichen?
Kann mir hier jemand helfen?
Gruß Lisa

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: rechnen in einer userform
26.10.2009 14:41:18
Hajo_Zi
Halo Lisa,
in Textbox9 soll es angezeigt werde als benutze das Change von 1 und 2 und schreibe die neue Zeile davor. Die Überprüfung muss für beide Textboxen erfolgen.

AW: rechnen in einer userform
26.10.2009 14:42:42
JogyB
Hi.
Nein, geht nicht über das Change Ereignis von textBox9, das spring nur an, wenn TextBox9 geändert wird, aber nicht bei den anderen Textboxen.
Mal als Lösung:
In das Userform kommt folgender Code: 
Dim myCol As New Collection
Private Sub UserForm_Initialize()
Dim i As Long
Dim myCls As cls_TextBoxes
For i = 1 To 9
Set myCls = New cls_TextBoxes
Set myCls.myTxtBox = Me.Controls("TextBox" & i)
myCol.Add myCls
Next
End Sub
Dann erstellst Du ein Klassenmodul mit den Namen cls_TextBoxes
Dort kommt folgender Code rein: 
Public WithEvents myTxtBox As MSForms.TextBox
Private Sub myTxtBox_Change()
Dim i As Long
Dim werT As Double
With UserForm1
For i = 1 To 8
With .Controls("TextBox" & i)
If IsNumeric(.Value) And .Value  "" Then
werT = werT + CDbl(.Value)
End If
End With
Next
.TextBox9 = werT
End With
End Sub
Das UserForm muss UserForm1 heissen, wenn es anders heißt mußt Du in obigem Code das UserForm1 in den korrekten Namen ändern.
Übrigens: TextBox9 kann man zwar noch anklicken, bei jeder Eingabe wird aber die Summenberechnung gestartet, d.h. der Wert bleibt immer unverändert.
Gruss, Jogy
Anzeige
AW: rechnen in einer userform
26.10.2009 14:45:41
Peter
Hallo Lisa,
ich habe einen CommandButton in das UserForm(ular) eingefügt.
Wird der angeklickt, wird addiert.
Option Explicit
Private Sub CommandButton1_Click()
Dim iIndx  As Integer
TextBox9.Value = "0"
For iIndx = 1 To 8
If Trim(Controls("TextBox" & iIndx).Value)  "" Then
If IsNumeric(Controls("TextBox" & iIndx).Value) Then
TextBox9.Value = TextBox9.Value + CDbl(Controls("TextBox" & iIndx).Value)
End If
End If
Next iIndx
End Sub

Gruß Peter
AW: Danke! es läuft (irgendwie)
28.10.2009 14:57:25
lisa
Danke euch dreien!
Ich habe viel hin und her getüfftelt und es letztlich auch hinbekommen!
Es war ein unheimlicher Siegesjubel als es funktionierte, aber irgendwie mehr Glück als Verstand.
Danke jedenfalls für eure MÜHE!
Gruß Lisa!
Anzeige

300 Forumthreads zu ähnlichen Themen

Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Anzeige
formel vereinfachen
Bastian

guten morgen aus der schönen schweiz :)
ich habe mal wieder (aber ich lerne wirkich dazu, glaubt mir das bitte) ein problem.
ich habe eine formel gebastelt, die zwar funktioniert, die aber gleichzeitig ewig ewig lang ist.
diese würde ich gerne vereinfachen.
ich habe euch dazu ei...
15.08.2008 09:24:00
Thread-ID: 1002044
6 Beiträge
@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Schreibschutz/bedingte Formatierung Makro
Tobi

Hallo,
Ich übertrage mit Hilfe eines Makros (IF-Funktion) Zahlen aus einem Tabellenblatt in ein anderes welches schreibgeschützt ist. Wenn die Bedingung in der Funktion nicht erfüllt wird dann überträgt es "blank" ("").
Die Zellen welche leer "blank" sind, färben sich dann mit Hilfe der...
20.08.2008 14:39:51
Thread-ID: 1003216
5 Beiträge
Excel Daten in HTML Formular übertragen
Johannes

Hallo,
ich bin über einen Thread in einem anderen Forum auf dieses Forum und zwei Threads gestoßen worden, bei denen sich besonders der User Tino als Super-Hilfe herauskristalisiert hat (und dafür ziemlich angeblafft wurde...), weshalb ich mir erhoffe hier bzgl. meines Problems Hilfe zu erh...
21.08.2008 13:48:00
Thread-ID: 1003473
7 Beiträge
Brüche mit kleiner Schrift formatieren
Siegfried

Hallo Excelianer,
der Betreff sagt sicher wenig aus. Ich möchte Zeiten, die auf Viertelstunden gerundet sind, als Brüche darstellen - soweit kein Problem. Jetzt hätte ich aber gern die Viertelstunden nicht in der Standardformatierung, also 1 1/4 z. B., sondern mit kleingeschriebenen Ziffern...
25.08.2008 11:32:00
Thread-ID: 1004409
7 Beiträge
ganze Zeile nach Bedingung formatieren
Tom

Hallo
wie kann ich denn ausgehend von der aktuellen Zeile diese mittels VBA formatieren.
Hintergrund:
Steht in Spalte N der Wert "Ja", dann ändere den Hintergund dieser Zeile von A bis R in grau ab (Interner Farbwert von Excel sollte 15 sein)
Wird diese Formatierung mittels VBA...
26.08.2008 14:48:36
Thread-ID: 1004813
3 Beiträge
Formel: Max in Verbindung mit Mehrfachabfrage
Peter

Hallo !
Folgende Frage:
wie kann ich in einer Mehrfachabfrage den größten (max.) Wert ziehen.
Anmerkung: Die Mehrfachabfrage bekomme ich gut hin, jedoch wenn ich in der einen Formel einen von der Abfrage eingeschränkten Bereich zusätzlich nach einer höchsten Nummer möchte, geht d...
28.08.2008 18:57:50
Thread-ID: 1005572
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
5
3
2
4
6
6
2
2
10
4
4
3
2
2
6
5
1
2
1
3
2
3
6