13.12.2015, 00:02
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:
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