Hallo liebes Forum,
bin gerade am verzweifeln was die Mittelwertberechnung in einer UserForm angeht und ich hoffe ihr könnt mir helfen.
In der Beispieldatei kann der Nutzer aus zwei ComboBoxen Namen auswählen die mit Zahlen hinterlegt sind und in die daneben stehnden TextBoxen übertragen werden.
https://www.herber.de/bbs/user/133487.xlsm
Folgendes soll passieren: Mittelwert aus zwei Zeilen bei Betätigung des Spinbuttons. Über den SpinButton hat der Nutzer die Möglichkeit die hinterlegten Werte anzupassen. Problem ist nur, dass der Nutzer nicht zwingend alle ComboBoxen ausfüllen muss. Es wäre toll, wenn im Spinbutton eine Schleife mitläuft die gleichzeitig zählt ob in Spalte c der UseForm eine Zahl drinnen ist und diese Anzahl an nummerischen Textboxen in Spalte c aufsummiert um den Mittel wert zu berechnen.
Somit erfolgt bei Betätigung des Spinbutton ständig eine Neuberechnung des Mittelwertes mit und gleichzeitig ein zählen an nummerischen Zeilen.
3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread
trage in die Tag-Eigenschaft aller TextBoxen in der 3. Reihe z.B. M (hier für Mittelwert, ist willkürlich gewählt) ein - dann kannst du in einer Schleife über alle Steuerelemente prüfen, ob das Element diesen Eintrag in der Tag-Eigenschaft hat und wenn ja, ob sie einen Zahlenwert enthält und dann den Mittelwert berechnen:
Sub Mittelwert()
Dim ctrBox As Control
Dim intZaehler As Integer
Dim dblWert As Double
For Each ctrBox In Controls
If ctrBox.Tag = "M" And IsNumeric(ctrBox) Then
dblWert = CDbl(ctrBox) + dblWert
intZaehler = intZaehler + 1
End If
Next ctrBox
If intZaehler > 0 Then TextBox26 = dblWert / intZaehler
End Sub
Die Sub rufst du dann em Ende deines SpinButton-Codes auf.vielen Dank für die Antwort.
Ich hoff es ist ok für dich, wenn ich mich melde sobald ich es ausprobieren konnte.
Ralf
ich habe deinen Code getest. Vielen Dank dieser funktioniert super (s. https://www.herber.de/bbs/user/133526.xlsm). Anders als in meiner Ausgangsdatei v. 29.11.19 habe ich jetzt noch eine Spalte eingefügt die mir einen Zwischensumme aus jeder Zeile errechnet. Diese Zwischensumme je Zeile geht dann in die Mittelwertberechnung ein. Die Zwischensumme stell ich in der UserForm auf Visible = False.
MfG Ralf
Beliebteste Forumthreads (12 Monate)
-
ThreadtitelLesezugriffe
-
34081
-
23512
-
16681
-
16052
-
15741
-
15343
-
14267
-
12306
-
11938
-
11417
-
10634
-
10521
-
9511
-
9498
-
9480
-
9079
-
8864
-
8800
-
8428
-
8178
-
8062
-
7989
-
7915
-
7806
-
7675
-
7521
-
7291
-
7167
-
7070
-
7068
-
6935
-
6521
-
6515
-
6294
-
6182
-
6026
-
6006
-
5981
-
5920
-
5910
-
5872
-
5838
-
5829
-
5734
-
5705
-
5689
-
5676
-
5582
-
5539
-
5492
-
5379
-
5341
-
5321
-
5224
-
5182
-
5105
-
5082
-
5082
-
5053
-
5053
-
4974
-
4903
-
4847
-
4841
-
4789
-
4769
-
4754
-
4727
-
4710
-
4679
-
4659
-
4654
-
4588
-
4564
-
4556
-
4516
-
4508
-
4482
-
4469
-
4452
-
4430
-
4411
-
4362
-
4360
-
4357
-
4332
-
4327
-
4327
-
4324
-
4308
-
4300
-
4285
-
4260
-
4229
-
4199
-
4182
-
4158
-
4142
-
4075
-
4025