Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: tabellen op verschillende tabbladen combineren in een overzichtslijst

  1. #1
    Junior Member
    Geregistreerd
    13 februari 2020
    Vraag is niet opgelost

    tabellen op verschillende tabbladen combineren in een overzichtslijst

    Hoi allemaal,

    ik ben tewerkgesteld in de bouw.
    Nu wij verschillende partijen hebben werken op onze werf, heb ik in excel een bestandje gemaakt.
    Dis bestandje bevat 22 verschillende tabbladen met telkens wel eenzelfde tabel in, maar natuurlijk van een andere partij.
    Is het nu mogelijk om in een andere tabblad een overzichtslijst te maken van alle tabellen.
    en zoja, hoe doet men dan zoiets ?

  2. #2
    Giga Senior AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Afstand tot server
    ±117 km
    Vast wel mogelijk.

    Hoe je dat doet? Door te beginnen met hier een representatief (Excel) voorbeeldje te plaatsen. Geef daarin aan hoe je werkblad(en) eruit zien, en (handmatig) voor een aantal regels of cellen wat je wilt bereiken.
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Junior Member
    Geregistreerd
    13 februari 2020
    Beste Alex,

    Hierbij het voorbeeldje.....
    op tabblad " overzichtslijst " zouden dan alle tabellen van alle partijen te zien moeten zijn.
    Ook wel de functie, indien men en tabel aanpast, deze verandering ook te zien is in het overzichtslijst....

    alvast bedankt !


    voorbeeld.xlsx

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Met een macro is dat zo gepiept.

    Code:
    Sub VenA()
      With Sheets("overzichtslijst").ListObjects(1)
        If .ListRows.Count Then .DataBodyRange.Delete
        For Each sh In Sheets
          If sh.Name <> .Name Then
            If sh.ListObjects(1).ListRows.Count Then
              .ListRows.Add.Range.Resize(sh.ListObjects(1).ListRows.Count, 8) = sh.ListObjects(1).DataBodyRange.Value
              .Range.Columns(9).SpecialCells(4) = sh.Name
            End If
          End If
        Next sh
      End With
    End Sub
    Bijgevoegde bestanden Bijgevoegde bestanden
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  5. #5
    Junior Member
    Geregistreerd
    13 februari 2020
    Vena,

    Dankjewel.......helemaal wat ik zocht !!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren