Auflisten aller Inhalte einer Tabelle als Liste

[TomSawyer]

Hallo :19:
Ich komme bei einer scheinbar einfachen Aufgabe einfach nicht weiter und bräuchte etwas Hilfe von den Excel Experten.
Ich möchte aus einer Tabelle aus mehreren Zeilen und Spalten einfach alle darin enthaltenen Einträge als Liste untereinander in einer einzigen Spalte darstellen.
Es geht nicht einmal darum Duplikate oder sonstiges zu vermeiden oder nach irgendwelchen Kriterien zu filtern, sondern einfach nur alle Einträge aufzulisten.
Die einzige Sache ist, dass die Tabelle auch leere Zellen enthält, welche dann in der Liste nicht vorkommen sollten.
Leider habe ich bisher keine Lösung gefunden und hoffe irgendjemand kann mir hier weiter helfen.

[WillWissen]

Hi Tom,

zeig mal bitte anhand einer kleinen Beispieldatei, wie es bei dir aktuell aussieht und wie du es haben möchtest. Bitte keine Bildchen!!! https://www.clever-excel-forum.de/thread-326.html

[Kuwer]

Hallo,

z.B. so:

Sub Test()

  Dim lngC As Long, lngR As Long, lngS As Long

  Dim varD As Variant, varS As Variant

  varS = Range("C1:E4").Value 'oder z.B. auch Selection.Value

  ReDim varD(1 To UBound(varS, 1) * UBound(varS, 2), 1 To 1)

  For lngR = 1 To UBound(varS, 1)

    For lngC = 1 To UBound(varS, 2)

      If Len(varS(lngR, lngC)) Then

        lngS = lngS + 1

        varD(lngS, 1) = varS(lngR, lngC)

      End If

    Next lngC

  Next lngR

  Range("A1").Resize(UBound(varD, 1)).Value = varD

End Sub

Gruß Uwe

[TomSawyer]

Hier eine kleine Beispieldatei.
Hierbei wäre mein Ziel, den gesamten Lagerbestand in einer Liste zusammenzufassen.
Danke an WillWissen für den Hinweis 

[TomSawyer]

Leider muss ich die Funktion auch in Google Sheets umsetzen und dort gibt es ja keinen VBA Editor.
Aber trotzdem vielen Dank für die Antwort

[WillWissen]

Hallo Tom,

Leider muss ich die Funktion auch in Google Sheets umsetzen und dort gibt es ja keinen VBA Editor.

es gibt nicht nur keinen VBA-Editor; GoogleSheets ist vor allem kein Excel. Deshalb dürfte es nach meinem bescheidenen Wissen kaum möglich sein, mit einfachen Mitteln dein Vorhaben umzusetzen.
Ich würde die Spalten händische kopieren und untereinander einfügen. Danach filterst du die leeren Zellen aus.

[Jockel]

Hier eine kleine Beispieldatei.
Hierbei wäre mein Ziel, den gesamten Lagerbestand in einer Liste zusammenzufassen...

Hallo, leider sieht man nicht, wie das Ergebnis aussehen soll. Eine Überschrift..? Welche? Eine Spalte mit allen Eintragungen - so hatte ich das verstanden..:

Arbeitsblatt mit dem Namen 'Tabelle1'
	H
2	Lager
3	Äpfel
4	Karotten
5	Birnen
6	Lachs
7	Bananen
8	Paprika

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[TomSawyer]

Danke für eure Antworten!
Genau, das Ergebnis sollte dann so aussehen wie Jockel es darstellt.
Aber wenn das nicht mit den Standardfunktionen möglich ist, dann muss ich mich wohl geschlagen geben.

[Jockel]

Hallo, ich habe das mit Power Query gemacht, aber das kommt bei dir ja (auch) nicht in Frage. Ich hatte irgendwo mal eine eine Formellösung erstellt nach dem Vorbild 
hier --> 
excelformeln.de

Aber ob das, was für dich ist..?

[TomSawyer]

Das Internet hat mir letztendlich doch eine geniale Lösung beschert. Man muss den gesamten Inhalt der Tabelle zu einem Text zusammenzufügen und dann wieder als Liste auseinander nehmen.
Das geht mit dieser Funktion:

=TRANSPOSE( SPLIT( TEXTJOIN( "|" , TRUE , range ), "|") )

Danke an alle die mir geholfen haben!