Re: VBA: Aufslitten von Tabellenspalten

Tech-Archive recommends: Repair Windows Errors & Optimize Windows Performance

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

  • Re: Zellformatierung vQ=B6llig_selbstherrlich_=2897=29?=
    ... indem Du das Format selbst exakt defninierst. ... >> Public Sub Sammeln(Name As String) ... >> Dim EingangAs String ... Eine Alternative ist auch der Makro-Recorder während Du eine Zelle als Text ...
    (microsoft.public.de.excel)
  • Re: zu Externem Bezug per VBA "springen"
    ... In der Zelle steht der Wert aus Juni'!$B$2. ... direkten Zugriff auf den Bezug erlaubt. ... Dim strBezug As String ...
    (microsoft.public.de.excel)
  • Re: Zeilen löschen
    ... Was veränder ich in deinem Code, wenn ich nur die oberste Zeile in der Zelle ... Gruß, Peter ... > Dim strText As String ...
    (microsoft.public.de.word.vba)
  • Re: =?ISO-8859-15?Q?Datenm=FCll_aus_DB-Extrakt_in_Excel_?= =?ISO-8859-15?Q?2007_
    ... Ist in irgendeiner Zelle der aktuellen Markierung irgend ein String aus den Zellen der Blacklist enthalten, soll dieser String ohne Rückfrage aus der Zelle gelöscht werden. ... Dim BlackList, I As Integer ... 'Durchlaufe alle markierten Zellen ...
    (microsoft.public.de.excel)
  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)