Zellinhalt mittels VBA trennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() ' test Makro Columns("B:B").Select Application.CutCopyMode = False Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range("A2:A11").Select Selection.Cut Range("B2").Select ActiveSheet.Paste End Sub

Sub test() Dim lloRow As Long, lstrSplit() As String For lloRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row lstrSplit = Split(Range("A" & lloRow).Value, " ") Range("A" & lloRow).Value = lstrSplit(0) Range("B" & lloRow).Value = lstrSplit(1) Next End Sub

Mike,
das wollte Dir Luc damit sagen, und die könnte bei Deinem Fall bereits ohne Formel oder Makro die gewünschte Lösung bringen. Die Anwendung der Funktion "Text in Spalten" kannst Du aber auch per Rekorder aufzeichnen.
Die Funktion findest Du im Menüband unter Daten -- Datentools - Text in Spalten. Wähle als Trennzeichen dann das Leerzeichen.
Die Funktion macht das:
Tabelle1

	A	B	C	D
1	Ausgangssituation		Nach Funktion Text in Spalten
2
3	Thomas,Müller GruppeA		Thomas,Müller	GruppeA
4	Jens,Meier GruppeB		Jens,Meier	GruppeB
5	Hans,Husten GruppeA		Hans,Husten	GruppeA
6	Petra,Probe GruppeC		Petra,Probe	GruppeC
7	Daniel,Düsentrieb GruppeD		Daniel,Düsentrieb	GruppeD
8	Max,Muster GruppeA		Max,Muster	GruppeA
9	Tom,Tester Gruppe D		Tom,Tester	GruppeD
10	Paula,Probe GruppeF		Paula,Probe	GruppeF
11	Elke,Experiment GruppeX		Elke,Experiment	GruppeX
12	Jemand,Anderer GruppeC		Jemand,Anderer	GruppeC

Lg
Michael

Sub Trennen() Dim Liste As Range Dim Ziel As Range Dim ws As Worksheet 'Auf dem aktiven Tabellenblatt Set ws = ActiveSheet With ws 'Daten von A2 bis zur letzten gefüllten Zelle in A aufteilen 'Daten werden beim Leerzeichen getrennt Set Liste = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row) Liste.TextToColumns Destination:=Liste(1), Space:=True End With End Sub

Mike!
Du hast ja nie Deinen konkreten Tabellenaufbau gezeigt - wer soll dann annehmen, dass in Spalte B schon Daten vorhanden sind. Und wie Luc richtig sagt: Du hast etliche Lösungshinweise bekommen, aber es ist nicht verboten sich dann auch noch selbst die "Hände etwas schmutzig" zu machen ;-)...
Zum "Problem" des Überschreibens von Spalte B: entweder Du fügst vorher eine Spalte ein und löst dann das Makro aus oder geändertes Makro:

Sub Trennen()
Dim Liste As Range
Dim Ziel As Range
Dim ws As Worksheet
'Auf dem aktiven Tabellenblatt
Set ws = ActiveSheet
With ws
'Zusätzliche Spalte
.Columns("B:B").Insert shift:=xlToRight
'Daten von A2 bis zur letzten gefüllten Zelle in A aufteilen
'Daten werden beim Leerzeichen getrennt
Set Liste = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
Liste.TextToColumns Destination:=Liste(1), Space:=True
End With
End Sub

LG
Michael

Range("F7:F9").Select Selection.TextToColumns Destination:=Range("F7"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _ :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellinhalt mittels VBA trennen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread