Split Funktion trennt nicht korrekt

Liebes Forum,
ich versuche mehrere Zahlen die mit Leerzeichen getrennt sind, in jeweils verschiedene Zellen zu schreiben. Dabei bin ich auf die Split Funktion gestoßen. Das Problem, sie trennt nicht jedes Element sondern steckt teilweise Wertepaare in den gleichen Array Platz. Was kann ich dagegen tun?
Meine Zahlen sehen so aus:
TextMitte : "3570270.82115698 5652122.92686322 3546673.58077346 5852202.82221356
3516662.4658915 5752162.52313186"
Sie sind also mit einem Leerzeichen getrennt, weshalb ich bei der Split Funktion keinen Delimiter angegeben hab. Nach anwenden der Funktion ergibt sich folgender Array:
arr(0) : "3570270.82115698"
arr(1) : "5652122.92686322 3546673.58077346"
arr(2) : "5852202.82221356 3516662.4658915"
arr(3) : "5752162.52313186"
Hier mein Code:

Sub Trennen()
Dim TextMitte as String
TextMitte = "3570270.82115698 5652122.92686322 3546673.58077346 5852202.82221356
3516662.4658915 5752162.52313186"
Dim arr() As String
arr = Split(TextMitte)
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
grade letzten Samstag habe ich ebenfalls mit Strings rumgedoktort, die ich aus Internetseiten einlese. Es ging primär darum, mehrfache Zeilenumbrüche zu erkennen und gegen einen einfachen auszutauschen. Also reine Textkosmetik.
Auch ich ging von reinen Excel-Zeilenumbrüchen aus [chr(10), also Line Feed]. Deshalb scheiterte mein Vorhaben zunächst. Ich habe die Strings dann einfach in ein leeres Word Dokument kopiert und auf dieses "fette q" geklickt, um die nicht druckbaren Zeichen anzuzeigen. Das war eine echte Offenbarung. Denn ich konnte sehen, dass neben den einfachen Zeilenumbrüchen [chr(10)], die durch diesen kleinen schwarzen Pfeil symbolisiert werden, auch chr(13) (Carriage Return) Zeilenumbrüche vorhanden waren, die durch dieses "fette q" am Zeilenende symbolisiert werden.
Mit den entsprechenden Parametern für Replace, wie Daniel sie schon nannte, kam ich dann sehr schnell ans Ziel. Vor allem auch, weil auch noch Tabs und Leerzeichen vor Zeilenumbrüchen angezeigt wurden. Aber hier gehts ja "nur" um Zeilenumbrüche, soweit ich es nachvollziehen kann.
Viele Grüße,
Zwenn

TextMitte = "....." for i = 1 to Len(TextMitte) if Mid(TextMitte, i, 1) like "[0-9 .]" then TextMitteNeu = TextMitteNeu & Mid(TextMitte, i, 1) else TextMitteNeu = TextMitteNeu & " " end if Next arr = Split(Worksheetfunction.Trim(TextMitteNeu), " ")

Beliebteste Forumthreads (12 Monate)

Split Funktion trennt nicht korrekt

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread