• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

meerdere bladen selecteren

Status
Niet open voor verdere reacties.
C

cocko

Gebruiker
Lid geworden
25 nov 2009
Berichten
69
Beste Forumleden,

Ik wil graag via VBA meerdere worksheets selecteren. Om precies te zijn wil ik alle zichtbare bladen selecteren behalve de bladen "prijzen", "data", "klantgegevens".

Alle zichtbare bladen selecteren lukt me wel, echter de drie bovenstaande overslaan lukt me niet. Deze staan overigens niet als eerste 3 (en kunnen daar ook niet komen) of zelfs maar bij elkaar.

ik gebruik dit om alle bladen te selecteren:

Sub macro99()
Dim sh As Worksheet
For Each sh In Sheets
If sh.Visible = xlSheetVisible Then
sh.Select (False)
End If
Next sh
End Sub
Klik om te vergroten...
Wie kan mij verder helpen?

Groeten Henk
 
Code: 
Sub macro99()
Dim sh As Worksheet
For Each sh In Sheets
    If sh.Visible = xlSheetVisible [B]And InStr(1, "prijzen data klantgegevens", sh.Name) = 0 [/B]Then
        sh.Select (False)
    End If
Next sh
End Sub

Het vetgedrukte is toegevoegd.

Met vriendelijke groet,


Roncancio
 
PERFECT!

Dit is precies wat ik nodig had.
Hartelijk dank!
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan