hoe automatisch actieve tabnaam in macro te krijgen?

Status
Niet open voor verdere reacties.
T

TonBo

Gebruiker
Lid geworden
14 aug 2022
Berichten
14
Ik heb een werkblad met 53 tabs, de weken van het jaar

Ik heb ook een macro gemaakt die een sorteerprocedure uitvoert, voor elk tabblad steeds hetzelfde
Echter, bij elke nieuwe week moet ik in de macro eerst de weeknaam aanpassen. zie voorbeeld:

ActiveWorkbook.Worksheets("33").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("33").Sort.SortFields.Add2 Key:=Range("F2:F50000") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

hier gaat het om week 33, genaamd "33" Mijn tabnamen zijn gewoon 33 34 35 etc, dus geen " "

Hoe kan ik er nu voor zorgen, dat de macro automatisch de naam van het actieve tabblad overneemt? Het wil mij maar niet lukken......

Bij voorbaat dank !
 
Actieve tabblad: ActiveSheet
Dus zoiets:
Code: 
With ActiveSheet
    .Sort.SortFields.Clear
    .Sort.SortFields.Add2 Key:=.Range("F2:F50000"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
End With
 
Laatst bewerkt:
bedankt !

Bedankt Ed!

het heeft me nog wat zoek- en uitprobeer werk gekost (ben niet ervaren) maar ik heb het nu draaiend! Zeer bedankt!
 
Graag gedaan en welkom bij Helpmij :)
 
Voeg al je werkbladen samen tot 1 werkblad.
Het is nooit een goed idee gelijksoortige gegevens te splitsen in werkbladen/bestanden/directories.

Beschouw een werkblad als een database en je kunt van alle ingebouwde faciliteiten van Excel gebruik maken: sorteren, filteren, dynamische tabellen, draaitabel, slicer, grafiek etc. enz. usw.
'Jouw' macro is dan meteen overbodig.
Pak 'problemen' bij de kern/bron aan.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan