• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Userform textboxen optellen

Status
Niet open voor verdere reacties.

bowlingman

Gebruiker
Lid geworden
17 okt 2007
Berichten
433
Hallo,
Ik heb een Userform met daarop als test 6 textboxen
In de txb1 zet ik de iDnummer van een speler en wil dan in txt6 de som van de txt3,4,5 krijgen.
Ik dacht dit te doen met de volgende code
Code:
Private Sub TextBox1_Change()
    Me.TextBox6.Value = Val(Me.TextBox3) + Val(Me.TextBox4) + Val(Me.TextBox5)
End Sub
Maar dit lukt niet
Op de volgende manier lukt het wel
Code:
Private Sub TextBox3_Change()
    Me.TextBox6 = Val(Me.TextBox3) + Val(Me.TextBox4) + Val(Me.TextBox5)
End Sub
Private Sub TextBox4_Change()
    Me.TextBox6 = Val(Me.TextBox3) + Val(Me.TextBox4) + Val(Me.TextBox5)
End Sub
Private Sub TextBox5_Change()
    Me.TextBox6 = Val(Me.TextBox3) + Val(Me.TextBox4) + Val(Me.TextBox5)
End Sub
Maar omdat ik 18 maal zulke serie textboxen heb, wordt dat nogal veel code denk ik.
Is er een manier om deze code korter te schrijven

Grtjs.
Armand
 
Die moet je ook niet laten berekenen door een Change, maar d.m.v. Commandbutton.
 
Bedankt Harry voor je snelle reactie.
Het is wel de bedoeling dat de totaalscores (in txt6) ineens verschijnen en niet als ik na het invullen op een cmb klik en dan pas de totalen te zien krijg.

Grtjs.
Armand
 
In een klassenmodule werken zou kunnen, maar dan moet je het bestand eens plaatsen.
 
Prachtig zwart vlak, hoe krijg ik dat ongedaan zonder Ctrl+Alt+Delete ?

Ik weet wat beters, we kunnen de rollen eens omdraaien en jij haalt de inspiratie uit mijn bestand.
 

Bijlagen

Laatst bewerkt:
Hallo Harry

Dit bestand is gemaakt in Excel 2016
Normaal start het eerste form ineens bij openen van werkbook
Klikken op Scores Inbrengen
Form met txt's verschijnt.
Klikken sluiten en actief window wordt terug zichtbaar.
Althans bij mij hier.

Heb in de vlugte Uw filetje eens bekeken en ga er morgen eens mee aan de slag.

Grtjs. en de beste wensen voor het nieuwe jaar
Armand
 
Je documentje werkt hier prima, ook het optellen gaat zonder problemen.

@Harry:
Dat zwarte vlak is een userform zonder titlebar :)
 
Laatst bewerkt:
Ah, ok.
Ik had 'm vanmiddag een mogelijkheid gegeven om de titlebar van een userform te verwijderen en dacht dat het misschien wat verwarring gaf :)
 
Mijn beeldscherm van 20" zal wel aan te kleine kant zijn. :d
 
Hallo
@Harry
Op het form komen 18 series van telkens 8 txb te staan.
Met de klassemodule van U werkt de optelling wel maar dan telt hij alle txb's op terwijl hij in Serie 1 in txb6 enkel de txb 3,4 en 5, in Serie 2 in txb12 enkel txb 9,10 en 11 mag optellen en zo verder per serie txb's

@Ed
Met welke code werkt de optelling bij U wel. De eerste of de tweede
 
Ik heb verder nergens naar gekeken.
Alleen het documentje getest dat je in #5 plaatste.
 
Geen idee wat je bedoelt.
Ik heb al gezegd dat het document dat je in #5 plaatste bij mij gewoon doet wat je wilt.
 
In mijn bestand staat een oplossing.

Ik waag me niet meer aan jouw bestand zonder dat ik het formulier niet op een normale manier kan sluiten.
 
@Harry,
Heb Uw bestand getest, maar daarmee telt hij al de txb's in het form op.
Heb aangepast bestandje gemaakt. Op het tweede form (wedstrijden) staat een woordje uitleg.

@Ed
Ja, had ik gelezen
Maar daar is dus het probleem (de vele Sub's)

Grtjs.
Armand
 

Bijlagen

Ik heb in dat document niet naar de code gekeken omdat het goed werkt.
Daarnaast kan je uiteraard eenvoudig zien welk code door welke textbox wordt geactiveerd.
 
Wat moet er met textbox 7 en 8 gebeuren. Zet er eens kolomkoppen boven het is een onleesbare toestand zo.

Op het tweede form (wedstrijden) staat een woordje uitleg.
In zwarte letters met een zwarte achtergrond?
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan