Zitat:

Public Function Split_String(Expression As String, Optional Delimiter As String = " ", Optional ByVal Limit As Long = -1, Optional ByVal Compare As VbCompareMethod = vbBinaryCompare) As Collection Dim nPos As Long Dim nStart As Long Dim nDelimiterLen As Long Dim nParts As Collection Dim nPartsCount As Long Dim nLimit As Long Set nParts = New Collection If Limit = 0 Then Set Split = nParts Exit Function End If nLimit = Limit - 1 nDelimiterLen = Len(Delimiter) nStart = 1 With nParts Do nPos = InStr(nStart, Expression, Delimiter, Compare) If nPos Then nParts.Add Mid$(Expression, nStart, nPos - nStart) nStart = nPos + nDelimiterLen Else nParts.Add Mid$(Expression, nStart) Exit Do End If Select Case nLimit Case Is < 0 Case Is <= .Count nParts.Add Mid$(Expression, nStart) Exit Do End Select Loop End With Set Split = nParts End Function

Zitat:

Dim sColWidth As Collection ' ACHTUNG: kein array, sondern eine collection ... Set sColWidth = Split_String(fmt,"|") ' hier das set beachten