ich habe verschiedene Spalten, die ich gerne zu einem String zusammenfügen möchte.
Getrennt nach Komma. es ist quasi die umgekehrte Funktion zu "Text in Spalten".
Wie geht das?
Grüße,
Daniel
Sub zusammen()
Dim b As String
b = ""
For a = 1 To 256
b = b & Sheets("Tabelle1").Cells(a, 1).Text
Next a
For a = 1 To 256
b = b & Sheets("Tabelle1").Cells(a, 2).Text
Next a
For a = 1 To 256
b = b & Sheets("Tabelle1").Cells(a, 3).Text
Next a
For a = 1 To 256
b = b & Sheets("Tabelle1").Cells(a, 4).Text
Next a
Sheets("Tabelle1").Cells(1, 5) = b
End Sub
gruß selli
Sub zusammen()
Dim b As String
b = ""
For a = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
b = b & Sheets("Tabelle1").Cells(a, 1).Text
Next a
Sheets("Tabelle1").Cells(1, 2) = b
End Sub
gruß selli
Um Text in Spalten in Excel rückgängig zu machen oder um die Funktion "Text in Spalten" umzukehren, kannst Du die folgenden Schritte befolgen:
Text in Spalten verwenden: Zunächst solltest Du sicherstellen, dass der Text in den gewünschten Spalten korrekt aufgeteilt ist. Dies kannst Du über die Funktion "Text in Spalten" im Menü "Daten" erledigen.
Verketten der Spalten: Um die Spalten wieder zu einem String zu verbinden, kannst Du die folgende Formel verwenden:
=A1 & "," & B1 & "," & C1
Diese Formel fügt den Text aus den Zellen A1, B1 und C1 zusammen, getrennt durch Kommas.
Für mehrere Zellen: Wenn Du mehr als 900 Zellen hast, empfiehlt es sich, ein Makro zu verwenden. Hier ein Beispiel:
Sub zusammen()
Dim b As String
b = ""
For a = 1 To 256
b = b & Sheets("Tabelle1").Cells(a, 1).Text & ","
Next a
Sheets("Tabelle1").Cells(1, 2) = Left(b, Len(b) - 1) ' Letztes Komma entfernen
End Sub
Dieses Makro fügt alle Texte aus der Spalte A zusammen und schreibt das Ergebnis in Zelle B1.
Fehler: Fehlende Kommas zwischen den Zellen
Lösung: Stelle sicher, dass Du die Kommas in der Verketten-Formel korrekt einfügst. Wenn Du ein Makro verwendest, achte darauf, dass Du das letzte Komma entfernst.
Fehler: Zelle kann nicht alle Zeichen aufnehmen
Lösung: Überprüfe die maximale Anzahl an Zeichen, die Excel in einer Zelle speichern kann. Bei Bedarf kannst Du den Text in mehrere Zellen aufteilen.
Wenn Du die Excel-Funktion "Text in Spalten" deaktivieren oder umkehren möchtest, gibt es auch andere Wege:
CSV-Export: Exportiere die Daten als CSV-Datei. Dies kann hilfreich sein, um die Daten in einem anderen Format zu speichern, ohne die Spalten in Excel umkehren zu müssen.
Textumwandlung mit Formeln: Du kannst auch Excel-Formeln verwenden, um den Text in Spalten rückwärts zu verketten, z.B.:
=TEXTJOIN(",", TRUE, A1:C1)
Diese Formel fügt alle Werte aus den Zellen A1 bis C1 zusammen und trennt sie mit einem Komma.
Beispiel für das Zusammenfügen von Text: Angenommen, Du hast in den Zellen A1, B1 und C1 die Werte "Apfel", "Banane" und "Kirsche". Die Formel =A1 & "," & B1 & "," & C1 gibt "Apfel,Banane,Kirsche" zurück.
Makro für große Datenmengen: Verwende das oben genannte Makro, um alle Einträge in Spalte A in einer Zelle zu konsolidieren. Dies ist besonders nützlich, wenn Du viele Daten hast und die Funktion "Text in Spalten" nicht erneut verwenden möchtest.
Verwende die Funktion "TEXTVERKETTEN" (Excel 365): Wenn Du die aktuelle Excel-Version hast, nutze die TEXTVERKETTEN-Funktion, um mehrere Zellen einfacher und flexibler zusammenzuführen.
Optimierung des Makros: Achte darauf, die Schleife im Makro so zu gestalten, dass sie nur die tatsächlich genutzten Zellen durchläuft. Das spart Zeit und Ressourcen.
1. Wie kann ich die Funktion "Text in Spalten" rückgängig machen?
Es gibt keine direkte "Rückgängig"-Funktion für "Text in Spalten". Du kannst jedoch die Daten erneut in einer Zelle zusammenführen, wie im Tutorial beschrieben.
2. Kann ich die Spalten in Text rückwärts umkehren?
Ja, Du kannst die Texte durch die Verwendung von Formeln oder Makros in der gewünschten Reihenfolge zusammenführen. Nutze die REVERSE-Funktion, um dies zu erreichen, wenn Du diese in einem Script implementierst.
3. Wie viele Zeichen kann eine Zelle in Excel maximal halten?
Eine Zelle kann bis zu 32.767 Zeichen speichern, aber nur 1.024 werden in der Zelle angezeigt. Achte darauf, dies bei der Zusammenführung von Text zu berücksichtigen.