Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
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
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt aus mehreren Zellen untereinander Zusammen

Forumthread: Inhalt aus mehreren Zellen untereinander Zusammen

Inhalt aus mehreren Zellen untereinander Zusammen
26.06.2019 11:45:40
Nero
Hallo zusammen!
Ich möchte folgendes tun:
ich habe in Zelle A1 bis A10 bspw. A1 = "A", A2="B", A3= "C" usw. drinstehen. und ich möchte quasi in die Zelle A11 als Ergebnis ("A;B;C;D;E;F;G;H;I;J") stehen haben. Ich habe angefangen mit einer For Schleife die Zellen auszulesen also A1 bis A10 und kriege es auch hin dass danach die Schleife nicht weiterläuft, aber stehe ein bisschen auf dem Schlauch was das Füllen von A11 mit dem Inhalt angeht. Ich habe schonmal gesehen, dass das irgendwie mit "String" usw. funktioniert, aber ihr seid hier so super und hilfsbereit!!
Vielen Dank!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inhalt aus mehreren Zellen untereinander Zusammen
26.06.2019 11:52:40
Stef
Hallo Nero,
eine ganz primitive Lösung: 
Range("A11").Value = Range("A1").Value & ";" & Range("A2").Value &";" & Range("A3").Value & ";" & Range("A4").Value &";" & Range("A5").Value & ";" & Range("A6").Value &";" & Range("A7").Value & ";" & Range("A8").Value &";" & Range("A9").Value & ";" & Range("A10").Value
Es gibt hier im Forum aber sicher Leute, die einen "besser programmierten Code" haben.
mfg
Stefan
Anzeige
AW: Inhalt aus mehreren Zellen untereinander Zusammen
26.06.2019 11:58:59
hary
Moin
Hier,als Bsp., mit Pruefung ob Zelle belegt ist. 
Dim i As Long, strText As String
For i = 1 To 10
If Cells(i, 1)  "" Then
If strText = "" Then
strText = Cells(i, 1)
Else
strText = strText & ";" & Cells(i, 1)
End If
End If
Next
Cells(11, 1) = strText

Code kann noch gekuerzt werden.
gruss hary
Anzeige
AW: Inhalt aus mehreren Zellen untereinander Zusammen
26.06.2019 12:31:19
Nero
Super Danke! Habe ich hinbekommen. Jetzt eine andere Sache: Mein String ist in der Variable k zusammengefasst, jetzt möchte ich in diesem String in der Variable k alle Kommas durch Punkte ersetzen. Denn in dem String sind Dezimalzahlen enthalten und damit ich mit diesen in VBA arbeiten kann müssen die Kommas durch Punkte ersetzt werden. Weißt du hier mir vielleicht auch zu helfen?
Vielen Dank!
Lieben Gruß!
Anzeige
AW: Inhalt aus mehreren Zellen untereinander Zusammen
26.06.2019 12:38:01
Nero
Habs hinbekommen:
k = Replace(k, ",", ".")
Danke trotzdem!
Bestes Forum und beste Community EVER!
LG!
AW: bei Dir könnte es auch TEXTVERKETTEN geben owT
26.06.2019 12:22:42
neopa
Gruß Werner
.. , - ...
Arbeit sparen oder Wissen Wie
26.06.2019 12:45:52
Luc:-?
Wenn du dir Arbeit sparen willst, Nero,
geht das auch mit einer UDF-haltigen Fml: =VJoin(A1:A10;";") oder mit der neuen Xl-Fkt TEXTVERKETTEN. Sollen Leerzellen ausge­lassen wdn, dann so: =VJoin(A1:A10;";";-1)
Der UDF kann auch entnommen wdn, wie man so etwas pgmmieren kann (verschiedene Methoden).
Anderenfalls geht's auch so: 
Const adRelSpalte As String = "A1:A10"
Dim ergText As String
ergText = Join(WorksheetFunction.Transpose(Range(adRelBer)), ";")
Mit Weglassen evtl Leerzellen dann ergText so: 
With WorksheetFunction
ergText = Replace(.Trim(Join(.Transpose(Range(adRelBer)))), " ", ";")
End With
ArchivLink: BspDatei m.VJoin (Vs1.4) https://www.herber.de/bbs/user/99024.xlsm
Gruß, Luc :-?
„Der beste Beweis für intelligentes Leben im Universum ist, dass noch niemand versucht hat, Kontakt mit uns aufzunehmen.“ H.Lesch, 2018, Sonneberg
Deshalb Intelligenz steigern mit …
Anzeige
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Textteile in Zellen mit Liste vergleichen
susidimarca

Hallo,
ich habe derzeit ein kniffeliges Excelproblem.
ich möchte gerne den Text in Zellen
hjgshgjdf Kriterium2 kjhfkjhfksdjhf
dskj Kriterium1 ajdhasjdhakjdhakdhajkdhajkdakj
daudzauizdaiudzaidzaisdz Kriterium3 kajhdasks
mit den Kriterium eine anderen Tabelle vergleichen...
21.08.2008 10:05:00
Thread-ID: 1003378
6 Beiträge
Anzeige
Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Anzeige
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
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
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
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
Anzeige
Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Inhalte aus mehreren Zellen untereinander zusammenführen

Schritt-für-Schritt-Anleitung

Um Inhalte aus mehreren Zellen in einer Zelle untereinander zu schreiben, kannst du die folgenden Schritte ausführen:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt.

  2. Gib Werte in die Zellen A1 bis A10 ein (z.B. "A", "B", "C" usw.).

  3. Nutze VBA für die Zusammenführung der Zellen. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  4. Füge folgenden Code ein:

    Dim i As Long, strText As String
For i = 1 To 10
   If Cells(i, 1) <> "" Then
       If strText = "" Then
           strText = Cells(i, 1)
       Else
           strText = strText & ";" & Cells(i, 1)
       End If
   End If
Next
Cells(11, 1) = strText

  5. Schließe den VBA-Editor und führe das Skript aus. In Zelle A11 sollten nun die Werte aus den Zellen A1 bis A10 erscheinen, getrennt durch ein Semikolon.

Häufige Fehler und Lösungen

  • Fehler: Zelle bleibt leer oder zeigt Fehler an
    Lösung: Stelle sicher, dass die Zellen A1 bis A10 tatsächlich Werte enthalten und dass der VBA-Code korrekt eingegeben wurde.

  • Fehler: Trennzeichen ist nicht richtig
    Lösung: Ändere das Trennzeichen im Code von ";" zu einem anderen Zeichen, falls gewünscht (z.B. "," für ein Komma).

Alternative Methoden

Es gibt verschiedene Wege, um Excel Werte aus mehreren Zellen in eine Zelle untereinander zu schreiben:

  1. TEXTVERKETTEN-Funktion (ab Excel 2016):

    • Nutze die Formel: 
      =TEXTVERKETTEN(";", WAHR, A1:A10)

  2. Benutzerdefinierte Funktion (UDF):

    • Erstelle eine UDF, die die Zellen zusammenführt: 
      Function VJoin(rng As Range, Optional delimiter As String = ";") As String
 Dim arr() As Variant
 arr = Application.Transpose(rng.Value)
 VJoin = Join(arr, delimiter)
End Function

Praktische Beispiele

Hier sind einige Beispiele, wie du Inhalte aus mehreren Zellen zusammenführen kannst:

  • Zusammenführen von zwei Zellen:

    =A1 & ";" & A2

  • Werte aus mehreren Zellen in einer Zelle zusammenfassen: Mit =TEXTVERKETTEN(";", WAHR, A1:A10) kannst du einfach alle Werte in einer Zelle auflisten.

  • Inhalt mehrerer Zellen in eine Zelle kopieren: Mit der Funktion =VERKETTEN(A1; A2) kannst du auch Inhalte aus zwei Zellen zusammenführen.

Tipps für Profis

  • Verwende VBA, um leere Zellen zu ignorieren: Wenn du nur nicht-leere Zellen zusammenführen möchtest, integriere eine Prüfung in deinen Code.

  • Experimentiere mit verschiedenen Trennzeichen: Nutze anstelle von Semikolons auch andere Trennzeichen wie Kommas oder Leerzeichen, je nach Bedarf.

  • Speichere häufig genutzte Funktionen in einem persönlichen Makroarbeitsbuch für den schnellen Zugriff.

FAQ: Häufige Fragen

1. Wie kann ich in einer Excel-Zelle untereinander schreiben?
Nutze die VBA-Methode oder die TEXTVERKETTEN-Funktion, um Inhalte untereinander darzustellen.

2. Kann ich auch leere Zellen ignorieren?
Ja, durch entsprechende Prüfungen im VBA-Code kannst du leere Zellen auslassen, bevor du den Text zusammenführst.

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