Opgelost Automatisch namen definieren

[youdeni]

Allen, Ik heb een bestand met heel veel tabbladen.

Nu wil ik d.m.v. een macro

Dat voor elk tabblad een Naam gedefinieerd wordt.

In het voorbeeld Heb ik bijvoorbeeld Tabblad "Actie" nu wil ik graag dat de Naam: Actie gedefinieerd wordt met als verwijzing alle aangrenzende cellen vanaf cel A1 van dat specifiek tabblad. Dit moet voor Alle tabbladen in het bestand gebeuren. In het voorbeeld bestand zou ik dus drie namen gedefinieerd krijgen.

Naam: Actie
Bereik: Werkmap
Verwijst naar: =

Actie!$A$1:$A$14

Naam: Risico
Bereik: Werkmap
Verwijst naar: =

Risico!$A$1:$G$4

Naam: Voorstel
Bereik: Werkmap

Verwijst naar: =

Voorstel!$A$1:$D$2

 

[lam201]

Dat kan zo bijvoorbeeld

Sub AddName()
Dim WS As Worksheet

For Each WS In ActiveWorkbook.Worksheets
    
    If WS.Name <> "Start" Then
        ActiveWorkbook.Names.Add Name:=WS.Name, RefersTo:=WS.Range("A1").CurrentRegion
    End If
    
Next WS

End Sub

 

[youdeni]

Dat kan zo bijvoorbeeld

Sub AddName()
Dim WS As Worksheet

For Each WS In ActiveWorkbook.Worksheets
   
    If WS.Name <> "Start" Then
        ActiveWorkbook.Names.Add Name:=WS.Name, RefersTo:=WS.Range("A1").CurrentRegion
    End If
   
Next WS

End Sub

Super bedankt! werkt top!

 

[snb]

Hoeveel (hoe weinig) gegevens bevat ieder werkblad ?

Als je met dynamische tabellen werkt: die krijgen automatisch een eigen naam; ook als er 400 in 1 werkblad staan.