Hoe laat ik een macro de caption van de knop lezen en gebruiken

[no3o5]

Deze vraag borduurt verder op een vraag die pas geleden voor mij is opgelost op dit forum.

Kolommen verbergen als waarde in cel niet aan voorwaarde voldoet

Ik heb een opleidingsoverzicht waar meerdere ploegen in zijn weergegeven. Door een druk op een knop laat ik alleen de resultaten van een bepaalde ploeg zien.

In mijn voorbeeld heb ik 5 verschillende ploegen, en voor iedere ploeg een knop. Ook heb ik nu aan iedere knop dezelfde opdracht hangen. Dus hetzelfde stukje script staat 5x in mijn excel bestand, alleen verwijst hij telkens naar een andere waarde.

Nu wil ik van 5x hetzelfde script terug naar 1 functie die ik aanroep met de knop. Deze functie moet de Caption van de knop uitlezen en gebruiken in de functie. En ik zou niet weten hoe ik dit voor elkaar ga krijgen.

Bekijk bijlage voorbeeldblad opleidingen(1).xls Klik in het excelblad op de knop [ Selecteer ploeg ]

 

[Roncancio]

Private Sub Ploeg1_Click()
Verzamel
End Sub

Private Sub Ploeg2_Click()
Verzamel
End Sub

Private Sub Ploeg3_Click()
Verzamel
End Sub

Private Sub Ploeg4_Click()
Verzamel
End Sub

Private Sub Ploeg5_Click()
Verzamel
End Sub

Sub Verzamel()
    Application.ScreenUpdating = False
    ActiveSheet.Columns("B:IV").Hidden = True
    For Each C In ActiveSheet.Range("B2:IV2")
        If C = ActiveControl.Caption Then C.Columns.Hidden = False
    Next
    Application.ScreenUpdating = True
    PloegDialog.Hide

End Sub

Met vriendelijke groet,


Roncancio

 

[no3o5]

Dit werkt

Heel erg bedankt