[xls] loopje van macro (acties over meerdere tabbladen)

[himlims_]

Ik heb een bepaalde macro (hieronder stukje van zichtbaar)
Deze dient een handeling uit te voeren over verschillende tabbladen. Nu werkt 't scriptje, maar heb ik 25 tabbladen. Ik kan 't scriptje 25x copy/pasten en de verwijzingen aanpassen (niet wenselijk, voor toekomstige aanpassingen)

Nu wil ik een soort 'array' maken van de verschillende tabbladen, waarna de handeling op dat desbetreffende tabblad wordt uitgevoerd.

Visual Basic:

Sub Macro1()
    Call Macro2("Honda")
    Call Macro2("BMW")
    Call Macro2("Volkswagen")
End Sub

Sub Macro2(ByVal sBlad As String)
    Sheets(sBlad).Columns("P:P").EntireColumn.Hidden = False
    Sheets(sBlad).Columns("Q:Q").EntireColumn.Hidden = False
End Sub

Volgens de debugger zou 't allemaal goed moeten gaan, en deze loopt ook 't script 3x door steeds met andere waarde bij marco2. maar 't werkt voor geen meter; er wordt niets gedaan. suggesties?

[pedorus]

Call is niet perse nodig. Verder: bedoel je niet toevallig True ipv False?

[brid]

Kun je niet gewoon je tab bladen met een for..loop doorlopen?
Sheets.Count

[himlims_]

brid schreef op vrijdag 06 augustus 2010 @ 15:50:
Kun je niet gewoon je tab bladen met een for..loop doorlopen?
Sheets.Count

't script is niet van toepassing op alle sheets, anders was 't wel vrij rapido geregeld

[MrAngry]

Misschien kan je een voorwaarde opnemen dan?

For each ws in workheets
If ws.name = bepaalde voorwaarde

edit: En wat bedoel je idd met er wordt niets gedaan? Het enige wat je doet is columns niet hiden, dus als ze al visible zijn gebeurt er niks.

[ Voor 40% gewijzigd door MrAngry op 06-08-2010 16:11 ]

[Verwijderd]

Je kunt een gespecificeerd worksheet-array opgeven en daar vervolgens doorheenlopen. Dat array moet je wel als type variant declareren. Kijk ook eens hier.

[himlims_]

Verwijderd schreef op maandag 09 augustus 2010 @ 08:38:
Je kunt een gespecificeerd worksheet-array opgeven en daar vervolgens doorheenlopen. Dat array moet je wel als type variant declareren. Kijk ook eens hier.

nuttig linkje, dank je, kom ik denk ik wel verder mee