Ik ziet het niet

[Atwist]

Volgens mij is hier niets mis mee:shocked:

Option Explicit
Dim LB14 As String
Dim LB21 As String
Dim tot As String

LB14 = Label14.Caption
LB21 = Label21.Caption
tot = LB14 + LB21
Label24.Caption = tot
End Sub

Of toch wel, ik ziet het niet

Maar krijg wel een compileerfout "Ongeldige buiten procedure"

 

[edmoor]

Je hebt wel een End Sub maar geen begin ervoor.
Zet direct onder Option Explicit bijvoorbeeld: Private Sub MijnSubnaam
Dus:

Option Explicit

Private Sub MijnSubnaam
    Dim LB14 As String
    Dim LB21 As String
    Dim tot As String

    LB14 = Label14.Caption
    LB21 = Label21.Caption
    tot = LB14 + LB21
    Label24.Caption = tot
End Sub

 

[Janzwart]

Je gebruikt option Explicit verkeerd. zie http://office.webforums.nl/viewtopic.php?t=5111

Het statement Option Explicit zorgt ervoor dat je variabelen verplicht moet declareren. en moet dus bovenaan je code staan.

De rest van de code moet staan tussen Sub en End Sub, waarbij je achter Sub ook nog een naam zet, zie onderstaand.

Hierbij heb ik de code gekoppeld aan een knop en de tweede aan het openen van het form. (de eerste heeft hier verder geen invloed meer, omdat de tweede code automatisch Label24 al heeft aangepast.)

Option Explicit

Private Sub CommandButton1_Click()
Dim LB14 As String
Dim LB21 As String
Dim tot As String

LB14 = Label14.Caption
LB21 = Label21.Caption
tot = LB14 + LB21
Label24.Caption = tot
End Sub

Private Sub UserForm_Activate()
Dim LB14 As String
Dim LB21 As String
Dim tot As String

LB14 = Label14.Caption
LB21 = Label21.Caption
tot = LB14 + LB21
Label24.Caption = tot
End Sub

EDMOOR was me net VOOR

 

[edmoor]

Jij bent uitgebreider met een voorbeeld voor het klik event erbij :thumb:

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    Label24.Caption = CStr(CDbl(Label14) + CDbl(Label21))
End Sub

 

[Atwist]

Jan en Ed dank jullie wel het werkt nu

Moet bekennen dat ik dit zelf had moeten zien, de oorzaak is denk te lang met het probleem bezig en dan ziet ik het niet meer.

@ Rudi

Dit is voor mij een nieuwe manier van optellen, ga deze eens uitproberen
Ook jij bedankt voor je bedrage.

 

[Janzwart]

Graag gedaan.

Zou je de vraag nog even op opgelost willen zetten... (dit geld ook voor je andere vraag, If visible.....)

BvB dank.

 

[snb]

Dit lijkt me voldoende:

Private Sub CommandButton1_Click()
    Label24.Caption = Label14.caption + Label21.caption
End Sub