Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus mehreren Zellen anhand eines Kriteriums verketten

Forumthread: Text aus mehreren Zellen anhand eines Kriteriums verketten

Text aus mehreren Zellen anhand eines Kriteriums verketten
21.08.2024 16:54:46
Leo17
Hallo zusammen,

ich habe in Zeile 1 x viele Attribute und in Spalte A y viele Objekte (beginnend in A2).

Nicht jedes Objekt hat für jedes Attribut einen Wert. Ist zu einem Objekt kein Wert vorhanden, steht in der entsprechenden Zelle 0.

Ich möchte nun für jedes Objekt eine verkettete Zelle mit allen vorhandenen Werten zugeordnet zu deb jeweiligen Attribute, getrennt durch einen Umbruch (ZEICHEN(10)).

Von der Logik her so etwas:

=WENN(B2>0;A2&“: „&B2;““)

jedoch für den gesamten Bereich bis Ax bzw. Bx verkettet und mit Zeilenumbruch zwischen den ausgeworfenen Werten.

Vielen Dank schon mal!

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus mehreren Zellen anhand eines Kriteriums verketten
21.08.2024 17:11:42
BoskoBiati2
Hi,

Deine Version hat TEXTVERKETTEN. Vielleicht nützt Dir das.

Gruß

Edgar
AW: Text aus mehreren Zellen anhand eines Kriteriums verketten
21.08.2024 22:42:33
Yal
Hallo Leo,

ich dachte zuerst: klar, Power Query. Aber in dem Fall doch schneller mit VBA.

Auf dem Reiter der Tabelle rechtsklicken, "Code anzeigen" wählen. In der VB-Codepane folgende Code copy-pasten: 
Sub zusammenfassen()

Dim Z As Long 'Z wie Zeile

Dim S As Long 'S wie Spalte

Dim Msg As String

Dim Msg2 As String

    

    For Z = 2 To Range("A99999").End(xlUp).Row

        Msg = Msg & vbLf & Cells(Z, 1) & ": "

        For S = 2 To Range("XFD1").End(xlToLeft).Column

            If Cells(Z, S).Value > "0" Then Msg2 = Msg2 & ", " & Cells(Z, S).Value

        Next

        Msg = Msg & Mid(Msg2, 3)

    Next

    Range("A99999").End(xlUp).Offset(2).Value = Mid(Msg, 3)

End Sub

Den Cursor drauf positionieren und F5 drücken.

VG
Yal
Anzeige
AW: Text aus mehreren Zellen anhand eines Kriteriums verketten
22.08.2024 09:47:02
Leo17
Danke für die Antworten und den Vorschlag, Yal!

Leider ergibt der Code bei mir ein ziemliches Durcheinander.

Hier nochmal zum besseren Verständnis die Ausgangssituation:

Att1 Att2 Att3 Att4 Att5 …
Apfel 37 0 Haus 0 …

Nun brauche ich eine Formel, die mir am Ende der Tabelle bzw. auf einem neuen Blatt folgendes in einer Zelle ausspuckt:

Att1: Apfel
Att2: 37
Att4: Haus

Schon mal ein Danke für die Mühen!
Anzeige
AW: Text aus mehreren Zellen anhand eines Kriteriums verketten
22.08.2024 14:54:34
Yal
Hallo Leo,

packe bitte sowohl Datenbestand als auch gewünschte Ergebnisse in einer Datei. Da sollte ein Bisschen mehr als nur 3 Fälle sein, aber auch nicht 20. Siehe Schaltfläche "Beispieldatei hochladen" (anschliessende Pfad kopieren, zweimal "zurück" klicken und Pfad in der Nachricht einfügen).
Sonst besteht das Risiko, dass wir zu lang aneinander vorbei reden.

VG
Yal
Anzeige
;

Forumthreads zu verwandten Themen

Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Anzeige
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Text in Fußzeile aus Zelle ziehen
Sandra

Hallo zusammen!
Ich brauche mal wieder Eure Hilfe.
Meine Exceltabelle (ein Protokoll) soll im linken Teil der Fußzeile einen Text bekommen, der automatisch aus einer Zelle gezogen wird. So das sich die Fußzeile immer aktualisiert, wenn die Zelle geändert wird. Mit einer Formel geht es j...
29.01.2009 11:29:24
Thread-ID: 1044904
23 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Hallo und Guten Abend.... habe mal wieder ein Problem...
Ich will gerne aus einer Anzahl von zellen (ca 100 Zeilen) .. wo bestimmte Sätze drin stehen diese Zufällig in einer Bestimmten zelle anzeigen lassen ....
Vielleicht hat ja jemand schon sowas gemacht ?
thx schon einmal
G...
15.02.2009 20:14:00
Thread-ID: 1050974
7 Beiträge
Text aus mehreren Zellen in eine Zelle schreiben.
Wolle

Hallo Forum,
möchte Texte aus mehreren Zellen in eine Zelle schreiben. Diese "Gesamtzelle" muss ich mit Strg+V nach Word kopieren können.
Ich denke mit Formeln ist da nichts zu machen, sondern mit VBA?
Könnt Ihr helfen.
Danke und Gruß
Wolle
https://www.herber.de/bbs/user...
31.03.2009 08:34:39
Thread-ID: 1065488
4 Beiträge
Tabelle als Text speichern, Dateiname aus Zelle
Jürgen

Hallo Excel-Profis,
ich möchte über ein Makro folgendes ausführen:
- das aktuelle Tabellenblatt soll im Textformat gespeichert werden
- das Dialogfeld "Speichern unter" soll am Bildschirm erscheinen
- der Dateiname soll aus der Zelle I1 in das Dialogfeld übernommen werden
Im...
08.04.2009 13:05:46
Thread-ID: 1067706
2 Beiträge
Formelfrage (Punkte in Zelleninhalt einfügen)?
Selma

Hallo zusammen,
ich habe in der Zelle A2 dies stehen: 1500120809
Als Ergebnis in Zelle B2 soll der Zelleninhalt der Zelle A2 mit Punkten dazwischen, wie folgt angezeigt werden:
... nach dem ersten Zahl ein Punkt einfügen
... nach dem vierten Zahl ein Punkt einfügen
... nach...
28.04.2009 16:52:21
Thread-ID: 1071675
4 Beiträge
Zufällig einen Text ausgeben aus best. Zellen
Eddie

Mahlzeit @ all
ich will gerne einen Verweis wieder in einer Tabelle aufteilen
also das habe ich bisher als Formel:
=VERWEIS(G10;{0;10;12;14};{"D";"C";"B";"A"})
in G10 würde zum Bsp. 11 stehen, dann würde C rauskommen.
Nun würde ich aber gerne diese Daten woanders ändern könn...
25.06.2009 13:50:05
Thread-ID: 1084334
4 Beiträge
Anzeige
Text aus Zelle in MsgBox einfügen.
Wolfgang

Hallo,
über eine Checkbox wird, sofern diese markiert wird, eine MsgBox angezeigt. Wie kann ich erreichen, dass aus einem Tabellenblatt "Steuerung" der Text aus Zelle E20 mit eingefügt werden kann?
MsgBox "Bitte folgende Hinweise beachten:"......... und dann der Text aus Zelle E20.
...
08.07.2009 21:08:52
Thread-ID: 1087280
5 Beiträge
Anzeige
Formelwert in anderer Formel verwenden.
Alex

Hey...
Ich stehe vor dem problem dass ich von einem anderen excel tabelle werte einlesen will.
soweit kein problem.
=[Arbeitsnachweiß.xls]Tabelle1!$B$5
so bekomme ich den wert.
ABER, ich möchte dass ich in diese formel statt den fixen namen "Arbeitsnachweiß.xls" wei beim pro...
12.08.2009 10:07:12
Thread-ID: 1095236
7 Beiträge
Textteil aus Zelle als Wenn Formel
Beni

Schönen Samstag Morgen
Trotz suche und Ansätzen im Archiv bekomme ich das nicht zum Laufen:
Zeile I4 enthält O:\Hugo\Geräte\"Hersteller"\Backöfen\ESC 100.pdf
In Zelle A4 sollte der "Hersteller" erscheinen, (z.B Miele, Electrolux)
Gescheitert bin ich mit dem Versuch:
=WENN(...
12.09.2009 07:04:58
Thread-ID: 1102152
3 Beiträge
Textbox aus Userform in aktive Zelle entladen
lisa

Hallo
Auf meiner UserForm habe ich einen Funktionsbutton mit folgender Funktion Private Sub CommandButton1_Click() Dim i As Integer Dim letztezeile As Integer letztezeile = (Worksheets("Tabelle2").Cells(Rows.Count, 4).End(xlUp).Row) + 1 If UserForm2.TextBox1.Text = "" Then MsgBox "bitte Lie...
01.10.2009 16:42:01
Thread-ID: 1106695
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige