VBA - Split

[Colleen]

Hallo,

habe eine Excel-Arbeitsmappe mit VBA die die Funktion Split enthält. Unter
2000 funktioniert das einwandfrei. 97 kennt aber den Befehl Split nicht. Habe
versucht den Verweis "Visual Basic for Applications" herauszunehmen bzw. zu
ändern, es kommt jedoch immer die Meldung, das er nicht entfernt werden kann,
da er gerade verwendet wird. Welche Möglichkeiten gibt es diesen Befehl auch
unter 97 zu verwenden.

Grüßli
Colleen

[Frank Kabel]

Hi
da ist diesen Befehl unter Excel 97 nicht gibt, brauchst Du eine eigene
Funktion. Eine wäre z.B.: die folgende (auf der Seite von Ron de Bruin zu
finden):
'--------------------------------------------------------------------
Public Function Split97(ByVal sExpr As String, _
Optional sDelim As String = " ", _
Optional lLimit As Long = -1) As Variant

Dim aTemp() As String
Dim lCount As Long
Dim lLimitCnt As Long
Dim sExprTemp As String
Dim lDelimFnd As Long

lCount = 0
lLimitCnt = lLimit
sExprTemp = sExpr
lDelimFnd = InStr(1, sExprTemp, sDelim)

Do While CBool(lLimitCnt - 1) And lDelimFnd > 0
ReDim Preserve aTemp(0 To lCount)
aTemp(lCount) = Left(sExprTemp, lDelimFnd - 1)
sExprTemp = Right(sExprTemp, Len(sExprTemp) - (Len(aTemp(lCount)) +
1) _
- (Len(sDelim) - 1))
lCount = lCount + 1
lLimitCnt = lLimitCnt - 1
lDelimFnd = InStr(1, sExprTemp, sDelim)
Loop

ReDim Preserve aTemp(0 To lCount)
aTemp(lCount) = sExprTemp

Split97 = aTemp

End Function