Button vinden

[DutchOirs]

Goedemorgen,

Vraagje over een button vinden in een werkblad.
Stel je hebt meerdere Buttons in een werkblad staan.
Is er een mogelijkheid dat je een bepaalde Button vind als je de naam intikt?

Dus vanuit het Visual Basic werkblad, desbetreffende Button vinden.

Thanks already,

Dutch

 

[Bram65]

Kan zeker maar je moet dan wel de exacte naam van de button weten. Je kunt ook ook bij het opstarten van het workbook, alle namen van buttons in het sheet, in een lstbox zetten waaruit je die kunt selecteren waardoor die gezelecteerde button de focus krijgt.

 

[DutchOirs]

OK, ja heb in de macro een naam staan (TestButton) en nu wil ik graag weten of deze Button nog ergens in de sheet staat.

 

[snb]

Tabblad 'Home' knop 'Find & Select', optie 'Selection Pane'

of

Alt P Alt AP

of

Tabblad 'Pagelayout' knop 'SlectionPane'

 

[edmoor]

Is TestButton een ActiveX of een Worksheet button?
Voorbeeld voor een ActiveX object:

Private Sub ZoekButton_Click()
    ButtonName = "TestButton"
    For Each sht In ThisWorkbook.Sheets
        For Each btn In sht.OLEObjects
            If btn.Name = ButtonName Then
                MsgBox ButtonName & " staat op werkblad " & sht.Name
            End If
        Next btn
    Next sht
End Sub

 

[DutchOirs]

Goedemiddag,

hoi snb, dit werkt helaas niet in excel 2003.

edmoor het is een worksheet Button

Kwam hem juist op het VB-worksheet tegen.
En vond hem zo nergens terug in het excel sheet.
Dus vraag ik me af is deze button er nog wel?
Vraag me nu dus af of er een manier is om deze in het excel werkblad terug te vinden

 

[edmoor]

Voor Worksheet buttons:

Private Sub ZoekWSButton_Click()
    ButtonName = "TestButton"
    For Each sht In ThisWorkbook.Sheets
        For Each btn In sht.Buttons
            If btn.Name = ButtonName Then
                MsgBox ButtonName & " staat op werkblad " & sht.Name
            End If
        Next btn
    Next sht
End Sub

 

[snb]

Toon svp een schermafdruk van je tabbladen.

 

[edmoor]

Voor de duidelijkheid.
Een ActiveX button op een Worksheet is geen Worksheet button.

 

[DutchOirs]

Ok thanks edmoor.

snb een doc met een printscreen

 

[edmoor]

En wat heb je met mijn voorbeeld codes gedaan?

 

[DutchOirs]

Hoi Edmoor,

Net even gecheckt met een activeX Button in het werkblad.
Deze Button zou ergens op dit werkblad moeten zitten. (als ie er is natuurlijk)
Geen resultaat

 

[edmoor]

In #6 zei je dat het een Worksheet button is.
De code die ik plaatste werkt prima.
En vanwaar denk je dat die button er zou kunnen of moeten zijn?
Plaats dat Excel document hier eens, geanonimiseerd uiteraard.

 

[DutchOirs]

Hoi Edmoor,

Ja kwam die macro tegen op VB-werkblad.
Vermoede al dat deze kwam van een button op het excel sheet.
Niet goed uitgelegd, sorry,
dus de Button zou een active-X Button moeten zijn.
Heb overal gekeken, maar niet te vinden.
Dus vandaar dat ik de vraag stelde hier, of er een mogelijkheid was om deze eenvoudiger te kunnen vinden?

 

[edmoor]

Als je de naam van de button weet kan je mijn voorbeeld code gebruiken. (Case sensitive)
Als die niks zegt bestaat er geen button met de opgegeven naam.
Kennelijk is dan de button zelf verwijderd, maar niet de bijbehorende code.