ZEllinhalt aufspalten

Moin,

wie kann ich mitels eines Makros den Zellinhalt auftrennen, wenn z.B als Trennmerkmal entweder _ oder - oder % oder irgend ein anderes Zeichen einzelne Teile des ZEllinhaltes trennt.

z.B. in Spalte A steht soll getrennt werden in Spalte B bis …
Spalte B Spalte C Spalte D
xyz - dfre- fgt xyz dfre fgt
ab - thr ab thr

Gruß
Slam

Hallo,

wieso unbedingt Makro? Geht auch mit „Text in Spalten“ recht gut.

MfG

hallo,
oder ein anderes Zeichen trennt, das koennte schwierig werden. Wingdings hat sooo viele Zeichen.
Gruss Helmut

wie kann ich mitels eines Makros den Zellinhalt auftrennen,
wenn z.B als Trennmerkmal entweder _ oder - oder % oder irgend
ein anderes Zeichen einzelne Teile des ZEllinhaltes trennt.

Hallo Slam,

Option Explicit

Sub Auftrennen()
Dim arrZei, Z As Integer
arrZei = Array("-", "\_", "%") ' ggfs. erweitern/anpassen
With Worksheets("Tabelle1")
 For Z = 0 To UBound(arrZei)
 .Columns(1).Replace What:=arrZei(Z), Replacement:=" ", LookAt:=xlPart, \_
 SearchOrder:=xlByRows, MatchCase:=False
 Next Z
 .Columns(1).TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, \_
 ConsecutiveDelimiter:=True, Space:=True
End With
End Sub

Gruß
Reinhard