Tabbladen selecteren behalve enkele

[karel1982]

Is er een mogelijkheid om alle tabbladen te selecteren behalve enkele?

Op tabblad 'Berekening 1' en 'Berekening 2' staat een icoon van een printer.
Als ik daar op klik moeten 'Berekening 1' en 'Berekening 2' selecteren, maar al de rest niet.

De naam van de tabbladen 'Berekening' zullen altijd anders zijn, en het aantal kan ook variëren.

De tabbladen 'Tekst', 'Voorblad', en 'Inlichtingen' zullen wel altijd hetzelfde zijn.

Is hier een oplossing voor?

 

[SjonR]

Hoe kan je dan weten welke bladen geselecteerd moeten worden? De naam zal tenslotte altijd anders zijn.

 

[edmoor]

Er zijn geen tabbladen met de naam Berekening 1 en Berekening 2 in je document
Maar als niemand me voor is kijk ik vanavond even voor je.

 

[karel1982]

Is typfout in mijn tabbladen. Moest eigenlijk BerEkening' zijn

 

[SjonR]

Maar wat wil je precies, Blad Berekening 1 en Berekening 2 blijven wel altijd hetzelfde of veranderen deze ook?

 

[HSV]

Wat gaat er na de selectie mee gebeuren?

Pak de codename van het blad.

 

[edmoor]

Ik begrijp eruit dat het gaat om alle tabbladen behalve 'Tekst', 'Voorblad', en 'Inlichtingen'.

 

[karel1982]

Ik begrijp eruit dat het gaat om alle tabbladen behalve 'Tekst', 'Voorblad', en 'Inlichtingen'.

Klopt.

 

[edmoor]

Probeer deze maar eens:

Sub Afbeelding20_Klikken()
    For Each sht In ThisWorkbook.Sheets
        Select Case sht.Name
            Case "Tekst", "Voorblad", "Inlichtingen"
            Case Else
                If Not sSelected Then
                    sSelected = True
                    sht.Select
                Else
                    sht.Select False
                End If
        End Select
    Next sht
End Sub

 

[karel1982]

Dit is wat ik zocht. Thx!