macro uitvoeren als (if)

[Pirelo]

Ik wil een macro starten als....

Als tabbladen zichtbaar zijn dan macro uitvoeren, indien niet, niets doen.


Ik dacht aan iets in de aard van:

Sub Update()

if sheets("test1") = visible then
Call 'macronaam1'

Else 'niets doen'


if sheets("test2") = visible then
Call 'macronaam2'

Else 'niets doen'

enz.....



Kan er iemand mij helpen

 

[edmoor]

Zoiets:

Sub Update()
    For Each sh In ThisWorkbook.Sheets
        If sh.Visible Then
            Select Case sh.Name
                Case "test1"
                    Call macrotest1
                Case "test2"
                    Call macrotest2
                Case "test3"
                    Call macrotest3
                Case Else
                    'eventueel andere macro
            End Select
        End If
    Next sh
End Sub

 

[Pirelo]

Dat is het, bedankt edmoor

 

[Pirelo]

Was een beetje te euforisch, werkt wel maar enkel op eerste verwijzing 'ADDNAME1'
Sub Updatenewname()
For Each sh In ThisWorkbook.Sheets
If sh.Visible = -1 Then
Select Case sh.Name
Case "GEN1"
Call ADDNAME1
Case "GEN2"
Call ADDNAME2
Case "GEN3"
Call ADDNAME3
Case "GEN4"
Call ADDNAME4
Case Else

End Select
End If
Next sh
End Sub

 

[edmoor]

Wijzig If sh.Visible = -1 eens in If sh.Visible
Dus zonder de = -1 er bij

Hou er ook rekening mee dat je controleert op bladnamen in hoofdletters.
Als er dus bladnamen zijn met kleine letter moet je de controle aanpassen.

 

[Pirelo]

Nu werkt het op alle bladen, heb -1 weggelaten
Bedankt