Volle TextBoxen zahlen

[valeripf]

Hi Ich Habe folgende Frage

Kann man Volle TextBoxen Zahlen ?

und zwa Folgendes

Skitze



Ich Will TextBox1 Bis TextBox5 Alle Volle TextBoxen Zusammen Zahlen

In Textbox Andere Kommt Zahl zwischen 1 Bis 10

In TextBox Gesammt Ergebniss Anzahl Volle TextBoxen1-5 + Andere = Gesamt Ergebniss

Ich Suche

Code Für Zahlen Von Vollen TextBoxen 1-5
Und Zusammen zahle Anzahl Volle TextBoxen1-5 + Andere = Gesamt Ergebniss

Danke

 

[tombe]

Also wenn alles Zahlen sind, dann zähle sie einfach zusammen.

Gesamt.Text = TextBox1.Text + TextBox2.Text + ... + TextBox5.Text + Andere.Text

 

[Zvoni]

.... und immer alles schön im Change-Ereignis der TextBoxen....

 

[valeripf]

sorry ich meite Anzahl Volle TextBoxen 1-5

nicht Zusamme Zahlen

 

[valeripf]

sorry ich meite Anzahl Volle TextBoxen 1-5

dann + Andere = Gesamt Ergebniss

nicht Zusamme Zahlen

 

[Zvoni]

Also wenn
TextBox1 = leer
TextBox2 = "Irgendwas"
TextBox3 ="IrgendwasAnderes"
TextBox4 = leer
TextBox5 = "NochIrgendwasAnderes"

TextBoxAndere = 10

GesamtErgebnis = 13

Richtig?

 

[valeripf]

ja genau So hab ich gemeint

 

[Zvoni]

Hmmm.... Ich würde es mit bitmaske für text1-5 machen
Aber ich hab jetzt wochenende.....montag wieder

 

[Yaslaw]

etwa so

Private Sub txtandere_Change()
    Const anzTxtBox = 2     'In deinem Fall 5
    Dim i       As Integer
    Dim cnt     As Integer: cnt = 0
    
    For i = 1 To anzTxtBox
        If Not Me("txt" & i) = Empty Then   'Meine Felder heissen txt1, txt2...txt5
            cnt = cnt + 1
        End If
    Next i
    Me.txtResult = IIf(Me.txtandere = Empty, 0, Me.txtandere) + cnt
End Sub

 

[valeripf]

OK Dankeschön

ERLEDIGT