=FILTER(

[stefan69]

Hallo beisammen,

möchte mit der FILTER Formel alle nicht leeren Zellen aus einer Tabell in einer eigenen Spalte untereinander auflisten.

Siehe Bsp Tabelle

Alle nicht leeren Zellen aus C2:F21 in I untereinander

Jemand ne Idee?

LG Stefan


  Filter_untereinander.xlsx (Größe: 9,42 KB / Downloads: 4)

[RPP63]

Moin!
Nix FILTER()
ZUSPALTE()!

	C	D	E	F	G	H	I	J	K
1	1	2	3	4			=Filter(		Wunschergebnis
2	a		e					a	a
3	b	d		1				b	b
4	c		f	2				c	c
5								d	d
6								e	e
7								f	f
8								1	1
9								2	2

Zelle	Formel
J2	=ZUSPALTE(C2:F4;1;1)

Gruß Ralf

[stefan69]

Hallo Ralf,

hab das mal auf eine andere Tabelle übertragen. Bekomme jedoch leere Zellen in der Auflistung.
Wie kann ich die auskommentieren.

LG Stefan

Tabelle anbei.

[RPP63]

Interessant!
Mach mal F5, Inhalte, Leerzellen, OK
Du siehst, dass alle Zellen im Bereich A1:W15 nicht leer sind:
   

Was da allerdings drinsteht, habe ich tatsächlich (noch) nicht herausgefunden …

---

Hmmmh!
Es ist F5, Inhalte, Konstanten, Text
Aber was genau, weiß ich immer noch nicht!
=LÄNGE(A2) ergibt 0
=UNICODE(A2) #WERT!
Selbst mittels VBA gelingt es mir nicht, den Inhalt auszulesen!

Wer springt mir (und Stefan) zur Seite?

[stefan69]

... Tatsche, .... hat mir echt weitergeholfen. Danke.

LG Stefan

---

... aber das die Zellen nicht leer sein sollen, verstehe ich auch nicht.
Habe mal in der Matrix die Verweise mit SÄUBERN und GLÄTTEN versehen. Bringt aber auch nix.

...hmmm?

[LCohen]

Ich vermute irgendein Import- oder Webabfrage-Problem.

[shift-del]

Wer springt mir (und Stefan) zur Seite?

Das ist der berühmte "zero length text string".

Entweder kopiert aus dem Web oder die Werte-Kopie eines Formel-Blank.

[RPP63]

Danke, Du hast Recht, Detlef!

Code:

?ActiveCell=vbNullString
Wahr

Man könnte ein "Wegwerfmakro" darüber laufen lassen, denn Strg+h hat mir nicht weiter geholfen.

Code:

Sub Nullstring_weg()
Dim Zelle As Range
Application.ScreenUpdating = False
For Each Zelle In ActiveSheet.UsedRange
  On Error Resume Next
  If Not Zelle.HasFormula Then
    If Zelle.Value = vbNullString Then Zelle.ClearContents
  End If
  On Error GoTo 0
Next
End Sub

Ergebnis:

	Z
1
2	PET_kohlerost_lk7_einzeln_1920x1920.jpg
3	PET_kohlerost_lk7_loki2_01_1920x1920.jpg
4	PET_kohlerost_lk7_loki2_02_1920x1920.jpg
5

Zelle	Formel
Z2	=ZUSPALTE($A2:W28;1;WAHR)

Gruß Ralf

[stefan69]

... ok, auch von meiner Seite ein Danke.
Mit dem Macro geht das, aber kann mir jemand sagen wie man sich das nie nicht leeren / leren Zellen einfängt oder wie man das vermeidet.

LG Stefan.

[stefan69]

Hallo Ralf,

obgleich im Macro steht

Code:

If Not Zelle.HasFormula Then
    If Zelle.Value = vbNullString Then Zelle.ClearContents

funktioniert das nicht mehr alsbald ich eine Formel in der Matrix habe. Wieder Leere Zellen in der Auflistung.

Neue Bsp Tabelle anbei.

Die Formel holt sich hinterlegete Bild-Links und extrahier den Bildname. (alles nach letztem "/")
=WENNFEHLER(GLÄTTEN(RECHTS(WECHSELN(INDEX(DATA!$A$1:$Z$33;VERGLEICH(Ausgabe!$A6;DATA!$A:$A;0);VERGLEICH(Ausgabe!D$1;DATA!$1:$1;0));"/";WIEDERHOLEN(" ";200));100));"")

LG Stefan