Tabbladen lijst tonen in werkblad

[emielDS]

Dan zoiets?

Tablijst voorbeeld (1).xlsm

[alpha]

Een oplossing zoals ik hierboven schreef.

Klik in het eerste blad 1x op de macroknop en dubbelklik dan op 1 van de ingevulde cellen in kolom C.

 

PC-H Cor-Ass.xlsm

[alpha]

Er staat een fout in het door mij hierboven geplaatste bestand.

Ik zal die herstellen en het bestand opnieuw plaatsen.

[Cor-Assa]

16 minuten geleden, emielDS zei:

Dan zoiets?

Tablijst voorbeeld (1).xlsm 28 kB · 1 download

Dit werkt, bedankt.

Even nog kijken met wat voor oplossing alpha komt.

[alpha]

Correctie aangebracht.

 

PC-H Cor-Ass2.xlsm

[Cor-Assa]

3 minuten geleden, alpha zei:

Correctie aangebracht.

 

PC-H Cor-Ass2.xlsm 29 kB · 1 download

Bedankt, beiden werken, ga er morgen mee aan de slag.

[bakerman]

Dit is een 'generic' model.

Sub GenerateLists()
    With Sheets("Overzichtsblad")
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row: If lRow < 2 Then lRow = 2
        .Range("A2", .Range("A" & lRow)).Clear
    End With
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            With Sheets(i)
                lRow = .Range("C" & .Rows.Count).End(xlUp).Row: If lRow < 3 Then lRow = 3
                .Range("C3", .Range("C" & lRow)).Clear
            End With
        End If
    Next
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            d = 3: mysheet = Sheets(i).Name
            With Sheets("Overzichtsblad").Range("A" & Rows.Count).End(xlUp).Offset(1)
                .Value = mysheet
                .Hyperlinks.Add Sheets("Overzichtsblad").Range(.Address), "", "'" & mysheet & "'!A1"
            End With
        Else
            With Sheets(mysheet).Cells(d, 3)
                .Value = Sheets(i).Name
                .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1"
            End With
            d = d + 1
        End If
    Next
End Sub

 

Telkens je een Tablijst met verwante tabbladen toevoegt of verwijdert, of als je ergens een tabblad toevoegt of verwijdert en je draait de macro worden alle lijsten aangepast.

 

Aangezien je sprak over 200 tabbladen heb ik als eerste blad een overzichtsblad gemaakt waarop een lijst van alle Tablijstnamen met hyperlink wordt aangemaakt zodat je direct naar een bepaalde lijst kan gaan.

 

Je zou eventueel op elkTablijstblad in een bepaalde cel (bv. A1) een hyperlink kunnen zetten om dan terug te springen naar het overzichtsblad en op elk subtabblad een hyperlink om naar het Tablijstblad te springen.

Cor-Assa.xlsm

[Cor-Assa]

4 uren geleden, bakerman zei:

Dit is een 'generic' model.

Sub GenerateLists()
    With Sheets("Overzichtsblad")
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row: If lRow < 2 Then lRow = 2
        .Range("A2", .Range("A" & lRow)).Clear
    End With
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            With Sheets(i)
                lRow = .Range("C" & .Rows.Count).End(xlUp).Row: If lRow < 3 Then lRow = 3
                .Range("C3", .Range("C" & lRow)).Clear
            End With
        End If
    Next
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            d = 3: mysheet = Sheets(i).Name
            With Sheets("Overzichtsblad").Range("A" & Rows.Count).End(xlUp).Offset(1)
                .Value = mysheet
                .Hyperlinks.Add Sheets("Overzichtsblad").Range(.Address), "", "'" & mysheet & "'!A1"
            End With
        Else
            With Sheets(mysheet).Cells(d, 3)
                .Value = Sheets(i).Name
                .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1"
            End With
            d = d + 1
        End If
    Next
End Sub

 

Telkens je een Tablijst met verwante tabbladen toevoegt of verwijdert, of als je ergens een tabblad toevoegt of verwijdert en je draait de macro worden alle lijsten aangepast.

 

Aangezien je sprak over 200 tabbladen heb ik als eerste blad een overzichtsblad gemaakt waarop een lijst van alle Tablijstnamen met hyperlink wordt aangemaakt zodat je direct naar een bepaalde lijst kan gaan.

 

Je zou eventueel op elkTablijstblad in een bepaalde cel (bv. A1) een hyperlink kunnen zetten om dan terug te springen naar het overzichtsblad en op elk subtabblad een hyperlink om naar het Tablijstblad te springen.

Cor-Assa.xlsm 29 kB · 0 downloads

Bedankt bakerman, ziet er ook goed uit.

Ga eens kijken wat voor mij het beste uitkomt.

[Cor-Assa]

8 uren geleden, bakerman zei:

Dit is een 'generic' model.

Sub GenerateLists()
    With Sheets("Overzichtsblad")
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row: If lRow < 2 Then lRow = 2
        .Range("A2", .Range("A" & lRow)).Clear
    End With
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            With Sheets(i)
                lRow = .Range("C" & .Rows.Count).End(xlUp).Row: If lRow < 3 Then lRow = 3
                .Range("C3", .Range("C" & lRow)).Clear
            End With
        End If
    Next
    For i = 2 To Sheets.Count
        If Sheets(i).Name Like "Tablijst*" Then
            d = 3: mysheet = Sheets(i).Name
            With Sheets("Overzichtsblad").Range("A" & Rows.Count).End(xlUp).Offset(1)
                .Value = mysheet
                .Hyperlinks.Add Sheets("Overzichtsblad").Range(.Address), "", "'" & mysheet & "'!A1"
            End With
        Else
            With Sheets(mysheet).Cells(d, 3)
                .Value = Sheets(i).Name
                .Hyperlinks.Add Sheets(mysheet).Range(.Address), "", "'" & Sheets(i).Name & "'!A1"
            End With
            d = d + 1
        End If
    Next
End Sub

 

Telkens je een Tablijst met verwante tabbladen toevoegt of verwijdert, of als je ergens een tabblad toevoegt of verwijdert en je draait de macro worden alle lijsten aangepast.

 

Aangezien je sprak over 200 tabbladen heb ik als eerste blad een overzichtsblad gemaakt waarop een lijst van alle Tablijstnamen met hyperlink wordt aangemaakt zodat je direct naar een bepaalde lijst kan gaan.

 

Je zou eventueel op elkTablijstblad in een bepaalde cel (bv. A1) een hyperlink kunnen zetten om dan terug te springen naar het overzichtsblad en op elk subtabblad een hyperlink om naar het Tablijstblad te springen.

Cor-Assa.xlsm 29 kB · 2 downloads

Beste bakerman,

Ik ben toch voor jouw voorbeeld gegaan dat paste het beste met mijn ideen.

Nu hoeft er geen tabblad aangemaakt te worden waar mijn tabbladen lijsten in vermeld staat, dat doe ik op een andere manier.

Wat ik nog wel wil is achter de tabblad lijsten 1, 2, 3, enz wat gegevens uit cellen van dat blad.

Zoals cel C1 - C2 - C3, hoe krijg ik dat voor elkaar?

 

Gr. Cor Assa

[Cor-Assa]

En zoals gezegd kunnen het wel 200 tabbladen worden, die passen niet netjes in een tabblad dat wordt scrollen.

Is het mogelijk dit te beperken tot b.v.b. 30 en dan een paar kolommen naar rechts weer verder te gaan met de lijst?

 

B.v.d.

Cor Assa