Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Funktionen

Split und Join

Autor: Peter Haserodt - Erstellt: --      - Letzte Revision: --
Split und Join stehen erst ab E2000 (VBA6) zur Verfügung!

Split und Join muss man zusammen nennen, da sie sich ergänzen.
Sie sind immer noch weitgehend unbekannte Funktionen obwohl sie bei Textverarbeitungen ungeheuer hilfreich sind.
Mit Split kann ich einen Text über einen Delimiter (Trenner) in ein Variantfeld aufsplitten.
Mit Join kann ich dann das Variantfeld wieder mit einem Delimiter zusammenfügen.

Das unten stehende Beispiel sollte mehr sagen als lange Erklärungen.
Bitte beachten Sie auch, dass diese Funktionen noch optionale Argumente haben.

Option Explicit
	
Public Sub SplitAndJoin()
	Dim sText As String, vX As Variant, i As Long
	sText = "Haus,Maus,Klaus,Staus"
	vX = Split(sText, ",")
	For i = 0 To UBound(vX)
		vX(i) = i + 1 & ". " & vX(i)
	Next i
	sText = Join(vX, ",")
	MsgBox sText
End Sub

Weitere Artikel der Gruppe: Funktionen Aus Excel VBA
Nach oben