Uitkomst tabel automatisch in een kolom zetten

[henrie008]

Uitkomst tabel automatisch in een kolom zetten:
De bedoeling is dat er in een tabel wordt gezocht naar namen, en deze namen automatisch in een kolom onder elkaar wordt gezet.
Voorwaarde moet zijn dat als er een regel wordt toegevoegd of verwijderd de lijst ( in kolom J) wel intact blijft
Wie kan mij helpen

 

[cow18]

eigenaardig, het lukt nog niet in 1 keer (vereist wel excel365)

 

[henrie008]

Werkt (inderdaad) niet in Excel 2013

 

[jverkerk]

Met power query

 

[snb]

Begin met het verwijdereen van:

- samengevoegde cellen
- lege rijen boven gegevens
- lege kolommen voor gegevens

Gebruik dan (voor alle Excelversies sinds 1998:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Cells(1).CurrentRegion) Is Nothing Then
      ReDim sn(Cells(1).CurrentRegion.Cells.Count, 0)
      
      For Each it In Cells(1).CurrentRegion
         If it.Column <> 1 And it <> "" Then
            sn(n, 0) = it
            n = n + 1
          End If
      Next
      Cells(1, 8).Resize(UBound(sn)) = sn
   End If
End Sub

 

[JEC.]

@cow18

=TOCOL(D9:G13)

 

[cow18]

bedankt JEC.
2013 & 365
N2 is vermoedelijk een matrixformule (dus CTRL+SHIFT+ENTER)

 

[henrie008]

Het werkte eerst niet, maar nu heb ik de formule in cel N2 aangepast naar de nederlandse formule (TEKST.SAMENVOEGEN) maar nu werkt het nog niet, er wordt maar 1 naam ingevuld

 

[jverkerk]

Waarom gebruik je power query niet.
Aanvullen of verwijderen, veranderen.
Daarna tabblad gegevens>>> gegevens vernieuwen en klaar.

 

[emields]

Met een simpele macro.(eerst opslaan als xlsm, en het nieuwe bestand openen)

 

[cow18]

tekst.samenvoegen werkt vanaf 2016, jouw versie 2013 zal het moeten doen met (en eventueel afsluiten met CTRL+SHIFT+ENTER)
=TEKST.SAMENV(ALS(tabel<>"";"|"&tabel;""))&"|"