Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1944to1948
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Text aus Datenbereich auslesen
28.08.2023 13:27:26
Blop
Hallo zusammen,

ich benötige Unterstützung bei folgendem Thema.

Spalte A1:E1 ist ein Datenbereich.
In den nachfolgenden Zellen steht Text (siehe Klammern): B1 (Tür), D1 (Ofen) und E2 (Geländer)
Ich benötige eine Formel, die den Datenbereich A1:E1 durchsucht und wenn ein Text vorhanden ist, diesen am Ende in einer Zelle zusammenführt. In diesem Format:
Tür | Ofen | Geländer

Ist das in einer Formel machbar?

Vielen Dank schon vorab.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus Datenbereich auslesen
28.08.2023 13:34:03
UweD
Hallo

so?

Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDE
1 Tür Ofen 
2    Geländer
3     
4     
5     
6Tür|Ofen|Geländer    

ZelleFormel
A6=TEXTVERKETTEN("|";;A1:E2)




LG UweD
Anzeige
Text aus Datenbereich auslesen
28.08.2023 13:53:42
daniel
HI
in Excel 2016 gibt es da keine elegante Formel.
da musst du jede Zelle anfassen und verketten:

=Teil(Wenn(A1="";"";"|"&A1)&Wenn(B1="";"";"|"&B1)&Wenn(C1="";"","|"&C1)&Wenn(D1="";"";"|"&D1)&Wenn(E1="";"";"|"&E1);";9999)


oder

=Wechseln(Wechseln(A1&"|"&B1&"|"&C1&"|"&D1&"|"&E1;"||";"|");"||";"|")


Gruß Daniel
Text aus Datenbereich auslesen
28.08.2023 13:38:45
Blop
Hallo Uwe,

danke für Dein super schnelles Feedback. Das sieht elegant aus. Mein Excel scheint diese Formel noch nicht zu kennen. Kann das sein, dass diese Formel in Excel 2016 noch nicht vorhanden ist?
Anzeige
Text aus Datenbereich auslesen
28.08.2023 13:45:11
Rudi Maintaire
Hallo,
gibt's erst ab 2019.

Gruß
Rudi
Text aus Datenbereich per UDF
28.08.2023 13:52:05
Rudi Maintaire
Hallo,
in ein Modul:
Function txtverketten(strTrenn As String, rngText As Range) As String

Dim rngT As Range
For Each rngT In rngText
If rngT > "" Then txtverketten = txtverketten & strTrenn & rngT
Next rngT
If Len(txtverketten) Then txtverketten = Mid(txtverketten, 2)
End Function


In der Tabelle dann z.B. =txtverketten("|";A1:C10)

Gruß
Rudi
Text aus Datenbereich per UDF
28.08.2023 14:03:48
Blop
Hallo Rudi,

danke für die Funktion. Ich habe sie in ein neues Modul eingefügt. => ALT+F11, dann Modul einfügen, Code einfügen, speichern.

In Excel bekomme ich nun leider noch den Fehler #Name?

An welcher Stelle könnte ich noch etwas falsch gemacht haben?
Anzeige
Text aus Datenbereich per UDF
28.08.2023 14:11:03
Rudi Maintaire
Hallo,
die Funktion muss sich in einem Modul der selben Mappe befinden, in der du sie anwendest.

Gruß
Rudi
Text aus Datenbereich per UDF
28.08.2023 15:49:23
Blop
Wie immer sitzt die Schwachstelle am Rechner :)). Die Datei habe ich nun als .xlsm gespeichert und nun klappt es.

Vielen Dank! Das hat mir sehr geholfen :).

291 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige