eriksmit1964
Gebruiker
- Lid geworden
- 25 jan 2016
- Berichten
- 53
Dag,
Ik heb de namen van tabbladen in tabel5 staan. De tabel maak ik leeg en wil graag de nieuwe tabbladnamen weer in tabel 5. Nu staat het in reeks (n9 tot en met N) met de naam lijst (N5 tot en met N).
In onderstaande code worden de tabbladnamen vanaf N9 netjes onder elkaar gezet. Maar ik zou het graag in tabel5 willen hebben. de header staat in N7 en de eerste tabnaam komt dan in N8.
Verder heb ik tabblad namen die beginnen met een 8 en die zouden er ook in moeten. Maar zodra ik aanpas krijg ik geen reeks namen meer
Wie kan me helpen? En waarom begint de reeks in N9?
Groet, Erik
Ik heb de namen van tabbladen in tabel5 staan. De tabel maak ik leeg en wil graag de nieuwe tabbladnamen weer in tabel 5. Nu staat het in reeks (n9 tot en met N) met de naam lijst (N5 tot en met N).
In onderstaande code worden de tabbladnamen vanaf N9 netjes onder elkaar gezet. Maar ik zou het graag in tabel5 willen hebben. de header staat in N7 en de eerste tabnaam komt dan in N8.
Verder heb ik tabblad namen die beginnen met een 8 en die zouden er ook in moeten. Maar zodra ik aanpas krijg ik geen reeks namen meer
Code:
If Left(sh.Name, 1) <> "4" or If Left(sh.Name, 1) <> "8" Then GoTo Volgende
Wie kan me helpen? En waarom begint de reeks in N9?
Groet, Erik
Code:
Sub Worksheet_Activate()
With Sheet1.ListObjects("Table5").ListRows
Do While .Count >= 1
.Item(1).Delete
Loop
End With 'deze loop maakt tabel 5 leeg maar laat tabel bestaan
With Sheets("Stuur")
For Each sh In ThisWorkbook.Sheets
If Left(sh.Name, 1) <> "4" Then GoTo Volgende
.Cells(.Range("N" & .Rows.Count).End(xlUp).Row + 1, 14) = sh.Name
Volgende:
Next
ActiveWorkbook.Names.Add _
Name:="Lijst", _
RefersTo:=.Range("N5:$N$" & .Range("N" & .Rows.Count).End(xlUp).Row) 'Geeft de naam Lijst aan bereik N5 tot N?
End With
End Sub