Thomas Risi Softwareentwicklung

Join

Diese Tabellenfunktion verkettet den übergebenen Tabellenbereich zu einem einzigen String. Optional kann ein Trennzeichen angegeben werden.

Option Explicit Public Function Join(Source As Range, Optional Delimiter As String) As String Dim i&, myString$ On Error Goto errorhandler myString = vbNullString For i = 1 To Source.Count myString = myString & Source(i) & Delimiter Next Join = myString Exit Function errorhandler: MsgBox Err.Description, vbExclamation End Function

Bewerten Sie bitte dieses Programm.

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)