Unhide sheets beginnend met bepaalde string

Status
Niet open voor verdere reacties.
M

MBBS

Gebruiker
Lid geworden
7 feb 2006
Berichten
269
Kan ik deze macro aanpassen zodat alleen de sheets beginnend met een bepaalde string zichtbaar worden.
bv. alleen deze beginnend met AA_..., AA_..., AA_...

Sub Unhide_Multiple_Sheets()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

ws.Visible = xlSheetVisible

Next ws

End Sub

mvg
 
Zo:
Code: 
Sub Unhide_Multiple_Sheets()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        If Left(ws.Name, 3) = "AA_" Then ws.Visible = xlSheetVisible
    Next ws
End Sub
 
Of
Code: 
Sub M_snb()
    For Each it In sheets
        it.visible=Left(it.Name, 3) = "AA_" 
    Next
End Sub

NB. Als er geen werkbladen zijn met "AA_' ontstaat er een fout: er moet nl. minimaal 1 werkblad zichtbaar zijn.
 
Prima.

Moest even zoeken waarom het niet werkte... het cijfer 3 (ws.Name, 3) is de lengte van de voorgaande string (ik had AA_ als voorbeeld genomen, dus 3 karakters).
Even aanpassen naargelang de lengte... en het wonder geschiedde !

Waarvoor dank !

;)

De laatste aanpassing is inderdaad veiliger en voorkomt die foutmelding.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan