Re: VBA: Aufslitten von Tabellenspalten

Solaiman Ghaus schrieb:
Hallo Klaus,

Klaus "Perry" Pago schrieb:
Hallo Solaiman,
[ .. ]


good work!

danke für die Blumen ;-) Deinen Code finde ich auch nicht schlecht - also, die Blumen gehen zurück ;-)

Die Variable i müsste noch definiert werden und der Original-Text sollte evtl erhalten bleiben.


Bei der Definition von i würde ich nicht so genau nehmen - hast aber prinzipiell Recht;-)

Ob Original-Text erhalten bleiben sollte, ist Verwendungszweck gebunden. Da Günther dies ausdrücklich nicht gewünscht hat, habe ich es auch ausgelassen.

[...]
Inhalt von Zelle C1: Das ist ein Test

Zielsetzung:
============

Inhalt von Zelle C1: Das
Inhalt von Zelle D1: ist
Inhalt von Zelle E1: ein
Inhalt von Zelle F1: Test

[...]

Gruß
Klaus


Gruß
Solaiman
Hallo zusammen,

falls noch andere Trennzeichen verwendet werden können, hier noch ein anderer Ansatz:

'_______________________________________________
Function splitText(myText As String) As String()
'split text with any seperator
'05-2006
'E.Bimczok

Dim myRegExp As Object
Dim myResults As Object
Dim myResult As Object
Dim temp As String
Dim tempArr() As String
Dim k As Long
k = 1

Set myRegExp = CreateObject("VbScript.RegExp")

myRegExp.Pattern = "(\w+)"
myRegExp.Global = True

Set myResults = myRegExp.Execute(myText)

ReDim tempArr(1 To myResults.Count)

For Each myResult In myResults
temp = myResult.submatches(0)
tempArr(k) = temp
k = k + 1
Next myResult

splitText = tempArr
End Function
'_______________________________________________

Sub test()

Dim a() As String
a = splitText("das - ist : ein ; test")
Stop 'lokalfenster a

End Sub
'_______________________________________________


Gruß
Eike
.

Relevant Pages