If visible dan optellen

[Atwist]

Hallo,

Ik wil graag de inhoud van "labels" op te tellen maar het mogen allen de "labels" die Visible=true zijn.



Heeft iemand hiervoor een oplossing.

In VBA natuurlijk

 

[huijb]

Plaats het dan ook in de sectie VBA, verplaatst

 

[Atwist]

Sorry hoor maar ik ben zo druk met Excel dus gaat het bij mee automatisch naar Excel :thumb:

 

[Janzwart]

Met een voorbeeld bestandje word je meestal sneller geholpen, dan is voor de helper duidelijker wat je bedoeld.

 

[Janzwart]

Zet de volgende code onder een button.

Ik laat hem kijken of de textbox visible is of niet, dit is dus ook toepasbaar op Labels.

Private Sub CommandButton1_Click()
Dim a As Single
a = 0
If TextBox1.Visible = True Then
a = a + TextBox1.Value
End If
If TextBox2.Visible = True Then
a = a + TextBox2.Value
End If
If TextBox3.Visible = True Then
a = a + TextBox3.Value
End If
If TextBox4.Visible = True Then
a = a + TextBox4.Value
End If
MsgBox ("de waarde is " & a)
Unload Me
End Sub

 

[Atwist]

Hallo Jan,

Ik probeer dit eens in mijn bestand te bouwen.

Alvast bedankt

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
    Dim a As Double
    a = 0
    For Each ctl In Me.Controls
        If TypeName(ctl) = "Label" And ctl.Visible And IsNumeric(ctl) Then
            a = a + CDbl(ctl)
        End If
    Next
    MsgBox "De totale waarde is " & CDbl(a)
    Unload Me
End Sub