Code te lang voor 1 regel

[ZZ1]

Hallo,

Ik heb een erg lange code waarvan hij 75 verschillende textboxen optelt en dat in 1 totaal blokje zichtbaar laat. De code begint dan op een nieuwe regel zonder extra tekens maar daarna werkt de code niet meer.

zie voorbeeld:

    BERKD450EXS1Totaal.Text = "€ " + FormatNumber((CDbl(BERKD450EXS1Subtotaal_1.Text) + CDbl(BERKD450EXS1Subtotaal_2.Text) + CDbl(BERKD450EXS1Subtotaal_3.Text) + CDbl(BERKD450EXS1Subtotaal_4.Text) + CDbl(BERKD450EXS1Subtotaal_5.Text) + CDbl(BERKD450EXS1Subtotaal_6.Text) + CDbl(BERKD450EXS1Subtotaal_7.Text) + CDbl(BERKD450EXS1Subtotaal_8.Text) + CDbl(BERKD450EXS1Subtotaal_9.Text) + CDbl(BERKD450EXS1Subtotaal_10.Text) + CDbl(BERKD450EXS1Subtotaal_11.Text) + CDbl(BERKD450EXS1Subtotaal_12.Text) + CDbl(BERKD450EXS1Subtotaal_13.Text) + CDbl(BERKD450EXS1Subtotaal_14.Text) + CDbl(BERKD450EXS1Subtotaal_15.Text) + CDbl(BERKD450EXS1Subtotaal_16.Text) + CDbl(BERKD450EXS1Subtotaal_17.Text) + CDbl(BERKD450EXS1Subtotaal_18.Text) + CDbl(BERKD450EXS1Subtotaal_19.Text) + CDbl(BERKD450EXS1Subtotaal_20.Text) + CDbl(BERKD450EXS1Subtotaal_21.Text) + CDbl(BERKD450EXS1Subtotaal_22.Text) + CDbl(BERKD450EXS1Subtotaal_23.Text) + CDbl(BERKD450EXS1Subtotaal_24.Text) + CDbl(BERKD450EXS1Subtotaal_25.Text))+ CDbl(BERKD450EXS1Subtotaal_26.Text)), 2)

Als je deze code plaatst in VBA dan gaat hij bij de 26e naar de volgende regel.
Wat voor extra tekens moet ik daarna invoeren??
Of heeft iemand een andere oplossing?? het gaat om 75 verschillende textboxen

Alvast bedankt

 

[Ellasar]

    BERKD450EXS1Totaal.Text = "€ " + FormatNumber((CDbl(BERKD450EXS1Subtotaal_1.Text) + CDbl(BERKD450EXS1Subtotaal_2.Text) + CDbl(BERKD450EXS1Subtotaal_3.Text) _
+ CDbl(BERKD450EXS1Subtotaal_4.Text) + CDbl(BERKD450EXS1Subtotaal_5.Text) + CDbl(BERKD450EXS1Subtotaal_6.Text) _
+ CDbl(BERKD450EXS1Subtotaal_7.Text) + CDbl(BERKD450EXS1Subtotaal_8.Text) + CDbl(BERKD450EXS1Subtotaal_9.Text) _
+ CDbl(BERKD450EXS1Subtotaal_10.Text) + CDbl(BERKD450EXS1Subtotaal_11.Text) + CDbl(BERKD450EXS1Subtotaal_12.Text) _
+ CDbl(BERKD450EXS1Subtotaal_13.Text) + CDbl(BERKD450EXS1Subtotaal_14.Text) + CDbl(BERKD450EXS1 Subtotaal_15.Text) _
+ CDbl(BERKD450EXS1Subtotaal_16.Text) + CDbl(BERKD450EXS1Subtotaal_17.Text) + CDbl(BERKD450EXS1Subtotaal_18.Text) _
+ CDbl(BERKD450EXS1Subtotaal_19.Text) + CDbl(BERKD450EXS1Subtotaal_20.Text) + CDbl(BERKD450EXS1Subtotaal_21.Text) _
+ CDbl(BERKD450EXS1Subtotaal_22.Text) + CDbl(BERKD450EXS1Subtotaal_23.Text) + CDbl(BERKD450EXS1Subtotaal_24.Text) _
+ CDbl(BERKD450EXS1Subtotaal_25.Text))+ CDbl(BERKD450EXS1Subtotaal_26.Text)), 2)

Oftewel afbreken door " _" op het laatst neer te zetten voordat je de enter geeft (Spatie,Underscore)

 

[ZZ1]

Hallo,

Hartelijk dank!!
Ik had je aanpassing nog niet gelezen! zonder spatie werkt hij niet dan krijg je een ongeldige teken.

Helemaal top!
Ik kan nu weer verder

 

[snb]

ooit van een lus gehoord ?

for j=1 to 75
  c0=c0 + Me("BERKD450EXS1Subtotaal_" & j).Text
next
BERKD450EXS1Totaal.Text = "€ " & c0

Deze doet hetzelfde als jouw 'formule'.

PS. wees slim een geef objekten een kortere naam: bijv. BD1, BD2, BD3