sommige tabbladen selecteren en wat data wissen

[joske13]

Hoi.

Ik heb iets in excel-vba gemaakt, waarbij gereedschappen bijgehouden kunnen worden.
Ieder gereedschap heeft een, niet opvolgend, uniek nummer (en tevens tabblad)

Op 1 jan. moet alle ingevulde data worden verwijderd, en gaan beginnen we weer opnieuw met registreren
Uiteraard blijven de gereedschappen bestaan, dus ook de tabbladen.
Deze tabbladen moeten echter van .range("A9:K200") worden gewist.

Tevens zijn er 3 tabbladen, overzicht, template en data, waarvan absoluut niets gewist mag worden.

Mijn vraag is dus hoe ik alle tabbladen kan selecteren, behalve de 3 eerder genoemde?
Hoeveel tabbladen er zijn is niet bekent, en ook de naam van het tabblad niet. ( de naam van de tabbladen zijn wel nummers)

Jos

 

[Warme bakkertje]

Je hebt 2 mogelijkheden
1.Als de niet te wissen werkbladen niet als eerste 3 in je bestand staan

Sub tst()
For Each sh In Sheets
    If Not sh.Name = "Template" And Not sh.Name = "Data" And Not sh.Name = "Overzicht" Then
        sh.Range("A9:K200").ClearContents
    End If
Next
End Sub

Als dit wel het geval is

Sub tst1()
For i = 4 To Sheets.Count
    Sheets(i).Range("A9:K200").ClearContents
Next
End Sub

 

[joske13]

Rudi.

Dit werkt perfect. Bedankt.

Overigens gebruik ik wel jouw eerste optie.
De tweede, waarbij er vanuit gegaan wordt dat de 3 tabbladen vooraan staan, vind ik eerlijk gezegd wat te risicovol, omdat ik niet zeker weet of de tabbladen ook daadwerkelijk vooraan staan.

Nogmaals dank

Jos