[Excel] Split-Funktion für Excel 97

[Kuwer]

Hallo alle mit einer Excelversion älter als Excel 2000,

wenn Ihr folgenden Code in ein allgemeines VBA-Modul der jeweiligen Exceldatei oder (dann nur für Euren Rechner) der PERSONL.XLS einfügt, laufen auch Makros, welche die erst seit VBA6 (also ab E2000) verfügbare VBA-Funktion Split enthalten:

Public Function Split(strText As String, Optional strDelimiter As String = " ") As Variant
 'simuliert die ab E2000 verfügbare Funktion Split für E97
 'Kuwer 20151212
 Dim iTemp As Long, varTemp As Variant
 iTemp = (Len(strText) - Len(Application.WorksheetFunction.Substitute(strText, strDelimiter, ""))) / Len(strDelimiter)
 ReDim varTemp(iTemp)
 If iTemp = 0 Then
   varTemp(0) = strText
 Else
   For iTemp = 0 To UBound(varTemp) - 1
     varTemp(iTemp) = Mid(strText, 1, InStr(1, strText, strDelimiter) - 1)
     strText = Mid(strText, Len(varTemp(iTemp)) + Len(strDelimiter) + 1)
   Next iTemp
   varTemp(iTemp) = strText
 End If
 Split = varTemp
End Function

Gruß Uwe