Automatisch tabblad aanmaken

Denisem · 24 mei 2017

Goedemorgen,

Ik heb een excel database met gegevens. Graag zou ik als ik in het tabblad "Hulpblad" invoer dat we het traject zijn gestart, kolom A (wordt aangegeven dmv een cijfer) dat er een tabblad wordt aangemaakt obv tabblad "Leeg". Nu lukt dat wel enige wat ik niet voor elkaar krijg op er dan voor te zorgen dat, dat tabblad de naam uit kolom F krijgt, dit is de bedrijfsnaam zonder spaties e.d. ivm de Index. Wat mij meteen brengt op mijn volgende vraag. Ik heb ook een index in mijn bestand zitten omdat het een uitgebreid bestand wordt en we anders de tabbladen niet snel kunnen benaderen. Is dit de makkelijkste manier om dit te doen of kan ik dit beter op een andere manier oplossen?

Ik heb een voorbeeld bestand in de bijlage gedaan.

Mochten jullie nog andere tips/trucs hebben dan hoor ik dat natuurlijk hartstikke graag!

Alvast hartstikke bedankt!

Groetjes,
Denise

Bekijk bijlage 170522 Rendementsoverzicht v2.0.xlsm

spaarie · 24 mei 2017

Ik moet weg, maar plaats deze code achter het tabblad 'Hulpblad'.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        Sheets("Leeg").Copy , Sheets("Leeg")
        ActiveSheet.Name = Target.Offset(, 5).Value
    End If
End Sub

Automatisch tabblad aanmaken

Denisem

Nieuwe gebruiker

spaarie

Terugkerende gebruiker

Nieuwste berichten

Wij waarderen jouw privacy