Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kopieren von mehreren Zeilen in einer Zeile zusamm

Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 13:07:26
mehreren
Hallo Leute,
ich könnte eure Hilfe gebrauchen.
Wenn ich in der Tabelle Beschlusseingabe in Spalte C und von Zeile C09 : C14 eine Text schreibe, soll nach dem Speichern in der Tabelle Beschlüsse in Spalte H der gesamte Text gespeichert werden.
Gruss Mario
https://www.herber.de/bbs/user/114013.xls
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 14:23:36
mehreren
Hallo Mario,
es geht ohne Select.
Tabelle3.Cells(Rows.Count, 8).End(xlUp).Offset(1, 0) = _
Join(Application.Transpose(Range("C9:C14")), vbLf)
Gruß Gerd
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 16:28:48
mehreren
Hallo Gerd,
leider funktioniert das nicht, oder ich mache was falsch. Es wäre schön wenn du dieses in meiner Mappe einfügen kannst.
Gruss Mario
Anzeige
AW: Wie hast du dies engebaut? o.r.T.
04.06.2017 16:40:09
Gerd
Gruß Gerd
AW: Wie hast du dies engebaut? o.r.T.
04.06.2017 16:44:33
Mario
Hallo Gerd,
ich habe es in Tabelle3 eingebaut
Gruss Mario
AW: Wie hast du dies engebaut? o.r.T.
04.06.2017 16:59:34
Gerd
Hmmm,
schreiben vor Range("C9:C14") Tabelle1.
Gruß Gerd
Anzeige
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 15:11:00
mehreren
Hallo Mario,
ich hab den Bereich C9:C14 im Blatt "Beschlusseingabe" zu einer Verbundzelle gemacht. Zudem habe ich im Code eine Prüfung eingebaut, ob auch alle Felder befüllt sind, wenn nicht, dann wird eine Meldung ausgegeben und es werden keine Daten ins Blatt "Beschlüsse" übertragen. Das passiert erst, wenn im Blatt "Beschlusseingabe" alle Felder befüllt sind.
https://www.herber.de/bbs/user/114019.xlsm
Gruß Werner
Anzeige
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 16:26:35
mehreren
Hallo Werner, danke für die Prüfung der Felder. Mit den Verbundenen Zellen kannte ich schon, aber ich brauche es mit Einzelzellen Zellen da ich den Text von World kopiere.
Gruss Mario
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 16:46:49
mehreren
Hallo Mario,
dann mit Join, wie von Gerd vorgeschlagen.
https://www.herber.de/bbs/user/114023.xlsm
Gruß Werner
Anzeige
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 16:52:49
mehreren
Hallo Werder und Gerd,
vielen Dank genau so sollte es werden Danke
Gruss Mario
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 17:22:29
mehreren
Hallo Mario,
hier noch mal mit einer kleinen Änderung. Bei der Vorgängerversion macht er dir sonst im Zielblatt Zeilenumbrüche rein, wenn im Eingabeblatt unter Bschlüsse z.B. nur eine Zeile befüllt ist.
https://www.herber.de/bbs/user/114024.xlsm
Gruß Werner
Anzeige
AW: Kopieren von mehreren Zeilen in einer Zeile zusamm
04.06.2017 17:44:20
mehreren
Hallo Werner,
das ist super Vielen Dank
Gruss Mario
Gerne u.Danke für die Rückmeldung. o.w.T.
04.06.2017 21:38:34
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehrere Zeilen in einer Zeile kombinieren in Excel


Schritt-für-Schritt-Anleitung

Um mehrere Zeilen in eine Zeile zu kopieren, kannst Du den folgenden VBA-Code verwenden. Dieser Code speichert den Text aus den Zeilen C9 bis C14 der Tabelle "Beschlusseingabe" in einer einzigen Zelle in der Tabelle "Beschlüsse":

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub KopiereMehrereZeilenInEineZeile()
       Dim wsEingabe As Worksheet
       Dim wsZiel As Worksheet
       Set wsEingabe = ThisWorkbook.Sheets("Beschlusseingabe")
       Set wsZiel = ThisWorkbook.Sheets("Beschlüsse")
    
       Dim letzteZeile As Long
       letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, 8).End(xlUp).Row + 1
    
       wsZiel.Cells(letzteZeile, 8).Value = Join(Application.Transpose(wsEingabe.Range("C9:C14")), vbLf)
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus, um den Text aus den Zeilen zu kombinieren.


Häufige Fehler und Lösungen

  • Problem: Der Code funktioniert nicht.

    • Lösung: Stelle sicher, dass die Arbeitsblätter korrekt benannt sind und der Bereich "C9:C14" existiert. Überprüfe auch, ob Du die richtigen Berechtigungen hast, um Makros auszuführen.
  • Problem: Es erscheinen unerwünschte Zeilenumbrüche im Zielblatt.

    • Lösung: Vergewissere Dich, dass alle Zellen im Bereich "C9:C14" befüllt sind, bevor Du das Makro ausführst.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch die TEXTVERKETTEN-Funktion (in Excel 365 verfügbar) verwenden:

  1. In der Zielzelle (z. B. H1) gib ein:

    =TEXTVERKETTEN(CHAR(10), WAHR, C9:C14)
  2. Diese Formel kombiniert die Inhalte aus den Zellen C9 bis C14 in eine Zelle.


Praktische Beispiele

Angenommen, Du hast folgende Daten in den Zellen C9 bis C14 in der Tabelle "Beschlusseingabe":

  • C9: Text 1
  • C10: Text 2
  • C11: Text 3

Nach Ausführung des Makros oder der Verwendung der TEXTVERKETTEN-Funktion, wird in der entsprechenden Zelle in der Tabelle "Beschlüsse" folgendes Ergebnis erscheinen:

Text 1
Text 2
Text 3

Tipps für Profis

  • Verwendung von Bereichsnamen: Du kannst den Bereich C9:C14 als benannten Bereich definieren, um den Code leichter zu lesen und flexibler zu gestalten.
  • Fehlerbehandlung im VBA: Ergänze Deinen VBA-Code mit Fehlerbehandlung, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Was mache ich, wenn ich eine andere Excel-Version verwende?
Die grundlegenden Schritte bleiben gleich, jedoch können einige Funktionen oder Befehle leicht variieren.

2. Kann ich auch mehrere Zeilen in eine Zelle kopieren?
Ja, der vorgestellte VBA-Code und die TEXTVERKETTEN-Funktion ermöglichen es, mehrere Zeilen in eine Zelle zu kopieren.

3. Wie kann ich die Zeilenumbrüche steuern?
Im VBA-Code wird vbLf verwendet, um Zeilenumbrüche zu erzeugen. Du kannst dies anpassen, indem Du ein anderes Trennzeichen wählst.

Beliebteste Forumthreads (12 Monate)

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