Thomas Risi Softwareentwicklung
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
|
Copyright © 2001 - by Thomas Risi