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.
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
Hier eine kleine Beispieldatei.
Hierbei wäre mein Ziel, den gesamten Lagerbestand in einer Liste zusammenzufassen.
Danke an WillWissen für den Hinweis
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
Hallo Tom,
Zitat: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.
(09.10.2018, 12:23)TomSawyer schrieb: [ -> ]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 |
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.
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..?
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!