Opgelost Tabblad met naam toevoegen

[JKlerks]

Hallo allemaal,

om de data in een bestand te updaten gebruik ik een tijdelijke draaitabel die ik weer verwijder na gebruik. Het bestand wordt anders te zwaar en dit heeft geen toegevoegde waarde.

Met opnemen van de acties kom ik al een heel eind, maar hij voegt de draaitabel toe op blad1 en een volgende keer op blad 2. Dit loop dan in de macro dus fout.

Nu wil ik vooraf een tabblad toevoegen met een vaste naam, maar op de een of andere manier krijg ik telkens een foutmelding. Wat doe ik verkeerd? of beter hoe die ik dit goed?

Sheets("DTTEMP").Add After:=Sheets(3)
Sheets.Add After:=Sheets(3) . name = "DTTEMP"

Alvast dank voor waarschijnlijk een heel makkelijke oplossing die ik zelf niet kan bedenken...

 

[edmoor]

Als je zegt een foutmelding te krijgen, vertel er dan ook bij welke dat precies is.

Doe het eens zo:

Sheets.Add After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = "DTTEMP"

 

[JKlerks]

Ja dat werkt perfect. Dank weer Edmoor

Zal de foutmelding niet meer vergeten

 

[HSV]

Of:

Sheets.Add(, Sheets(Sheets.Count)).Name ="DTTEMP"