Inhalte verbundener Zellen teilen

Hallo Leute,
ich komme leider nicht weiter bei einem VBA Problem und brächte euren Rat :)
Spalten A bis C sind verbunden und deren Inhalte sollen unberücksichtigt bleiben, also stehen bleiben wie sie sind.
Nun habe ich in den Spalten E bis G nochmal verbundene Zellen mit Inhalt. Der Inhalt ist durch Leerzeichen getrennt, bspw: Apfel Birne Banane und soll nun auf 3 Spalten aufgeteilt werden.
Ich habe diesen Code herangezogen:
Option Explicit


Sub Undo()
Dim c As Range
For Each c In Intersect(Columns(5), ActiveSheet.UsedRange)
If c.MergeCells Then
With c.MergeArea
.UnMerge
.Value = c.Value
End With
End If
Next c
End Sub

Dieser teilt zwar die Inhalte auf die Spalten E bis G auf, aber jeweils den kompletten Inhalt auf jede Spalte. Ich würde aber gerne die Inhalte, die getrennt durch Leerzeichen sind, bspw. wie oben 3 oder 4 Texte oder Zahlen, so aufgeteilt haben, dass in jeder Spalte nur 1 Sache steht.
Wie muss ich da weiter vorgehen?
Danke vorab und liebe Grüße
Marcel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Undo2() Dim C As Range, X As Variant For Each C In Intersect(Columns(5), ActiveSheet.UsedRange) If C.MergeCells Then With C.MergeArea X = .Cells(1).Value .UnMerge C.Resize(1, UBound(Split(X, " ")) + 1) = Split(X, " ") End With End If Next C End Sub

Hallo Gerd
Ich habe ein ähnliches Problem wie Marcel. Nur enthalten bei mir die verbundenen Zellen auch Ziffern. Also z. B.:
E1 = aaa 1234 bbb
E2 = 1234 aaa 4567
Wenn ich Dein Makro anwende, werden diese Ziffern in den verschiedenen Zellen als Text ausgegeben. Wie kriegt man das mit Split hin, dass diese Ziffern in den neuen Zellen als Zahlen-Werte ausgegeben werden?
PS: Ich mache es bisher manuell: Ich deaktiviere die Zell-Verbindungen und wähle dann im Menü Daten "Text in Spalten" an. Dann werden die Ziffern als Zahlen-Werte ausgegeben. - Wenn ich statt diesen "Manipulationen" Dein Makro anwenden könnte, wäre das viel einfacher und komfortabler!
Vielen Dank für Deine Bemühungen
Niclaus

Sub Undo3() Dim C As Range, X As Variant For Each C In Intersect(Columns(5), ActiveSheet.UsedRange) If C.MergeCells Then With C.MergeArea X = .Cells(1).Value .UnMerge C.Resize(1, UBound(Split(X, " ")) + 1) = Split(X, " ") C.Resize(1, UBound(Split(X, " ")) + 1).Value = _ C.Resize(1, UBound(Split(X, " ")) + 1).Value End With End If Next C End Sub

Beliebteste Forumthreads (12 Monate)

Inhalte verbundener Zellen teilen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

89 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Inhalte verbundener Zellen teilen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

89 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread