ich suche nach einer excel Funktion "Text in Zeilen". Diese sollte wie "Text in Spalten" funktionieren, die Werte jedoch auf Zeilen verteilen.
Dies hätte den Vorteil, dass ich nicht auf 256 spalten limitiert wäre.
Vielen Dank!
Peter
Sub Inzeilen()
Dim C As Range
Dim Bereich As Range
Dim Ws2 As Worksheet
Dim Awf As WorksheetFunction
Dim X As Long, Y As Long, A As Long, B As Long
Set Bereich = Selection
Set Ws2 = Worksheets("Tabelle2")
Set Awf = Application.WorksheetFunction
X = 1: A = 1: B = 1
For Each C In Bereich
For Y = 1 To Len(C & " ")
Select Case Mid(C & " ", Y, 1)
Case ",", ";", ":", " "
Ws2.Cells(A, B) = Awf.Substitute(Awf.Substitute(Awf.Substitute(Awf.Substitute(Mid(C, X, Y - X), ",", ""), ";", ""), ":", ""), " ", "")
X = Y: A = A + 1
End Select
Next Y
B = B + 1: A = 1: X = 1
Next C
End Sub
Um Text in Zeilen umzuwandeln und die Werte auf Zeilen zu verteilen, kannst du die folgende Methode anwenden. Diese Anleitung setzt die Nutzung von Excel mit VBA voraus.
Öffne Excel und erstelle ein neues Arbeitsblatt oder verwende ein bestehendes.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Kopiere den folgenden VBA-Code in das Modul:
Sub Inzeilen()
Dim C As Range
Dim Bereich As Range
Dim Ws2 As Worksheet
Dim Awf As WorksheetFunction
Dim X As Long, Y As Long, A As Long, B As Long
Set Bereich = Selection
Set Ws2 = Worksheets("Tabelle2") ' Ändere den Namen entsprechend
Set Awf = Application.WorksheetFunction
X = 1: A = 1: B = 1
For Each C In Bereich
For Y = 1 To Len(C & " ")
Select Case Mid(C & " ", Y, 1)
Case ",", ";", ":", " "
Ws2.Cells(A, B) = Awf.Substitute(Awf.Substitute(Awf.Substitute(Awf.Substitute(Mid(C, X, Y - X), ",", ""), ";", ""), ":", ""), " ", "")
X = Y: A = A + 1
End Select
Next Y
B = B + 1: A = 1: X = 1
Next C
End Sub
Schließe den VBA-Editor und gehe zurück zu Excel.
Markiere die Zellen, die du in Zeilen umwandeln möchtest.
Starte das Makro über „Entwicklertools“ > „Makros“ > „Inzeilen“.
Die Ergebnisse werden in "Tabelle2" angezeigt. Achte darauf, den Tabellennamen im Code entsprechend anzupassen.
Fehler: Das Makro läuft nicht.
Fehler: Die Daten erscheinen nicht korrekt.
Fehler: Excel zeigt eine Fehlermeldung bei der Ausführung.
Wenn du keine VBA-Lösung verwenden möchtest, kannst du auch die Text in Spalten-Funktion nutzen und anschließend die Daten transponieren:
Angenommen, du hast in Zelle A1 den Text „Apfel, Birne; Banane: Orange“. Nach der Ausführung des VBA-Codes oder der Text-in-Spalten-Funktion wird jeder Obstname in einer eigenen Zeile erscheinen.
Wenn du verschiedene Trennzeichen hast, wie z.B. Komma, Semikolon oder Leerzeichen, wird der VBA-Code automatisch alle diese Trennzeichen berücksichtigen und die Werte in Zeilen aufteilen.
1. Frage: Kann ich das Makro auch ohne VBA verwenden?
Antwort: Ja, du kannst die „Text in Spalten“-Funktion verwenden, aber du musst die Daten manuell transponieren.
2. Frage: Was, wenn ich unterschiedliche Trennzeichen habe?
Antwort: Der bereitgestellte VBA-Code berücksichtigt verschiedene Trennzeichen wie Komma, Semikolon, Doppelpunkt und Leerzeichen.
3. Frage: Funktioniert das auch in älteren Excel-Versionen?
Antwort: Ja, die VBA-Lösung sollte in den meisten Excel-Versionen funktionieren, allerdings kann die Benutzeroberfläche variieren.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen