Thomas Risi Softwareentwicklung
Addins - Datenbanklösungen - Komponenten - RTDServer - WebServices
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
© 2001 -
by Thomas Risi