ZEllinhalt aufspalten

Computer: Software & Programmierung Office Software
1

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

2

Hallo,

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

MfG

3

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

4

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