Excel2003 und 97 (Befehl "Split")

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian,
die Funktion Split() gibt es ebenso wie einige andere (Join(), Replace(), InStrRev()) erst seit Excel 2000, respektive VBA6.
Hier ein Workaround, der Split() als selbstgeschriebene Funktion nachbildet.
Du kannst den Code 1:1 übernehmen. Durch die Einschränkung für die bedingte Compilierung wird die Funktion ab Excel2000 aufwärts nicht kompiliert und es kommt daher auch zu keinen Namenskonflikten.
Bitte beachten, dass unter Excel97 keine String-Arrays() zugewiesen werden können, ggf. mußt du da deinen eigenen Code etwas anpassen.
Gruß
Axel

#If VBA6 = 0 Then
Public Function Split( _
   ByVal Expression As String, _
   Optional ByVal Delimiter As Variant = " ", _
   Optional ByVal Limit As Long = -1, _
   Optional ByVal Compare As Integer = vbBinaryCompare _
   ) As Variant

   ' die eigentlich korrekte Deklaration des letzten Elementes Compare vom
   ' Typ vbCompareMethod (bereits unter Excel 97 bekannt) führt
   ' zu einem Fehler "Automatisierungstyp in Visual Basic nicht unterstützt"
   ' Deswegen wird Compare hier als integer-Typ deklariert

   ' Das in der Originalversion verwendete optionale Argument Compare
   ' zur Festlegung der Vergleichsmethode wird hier nicht verwendet

   Const C_DIMSIZE As Long = 128

   Dim astr() As String  ' Array, dass zurückgegeben wird
   Dim lngLimit As Long
   Dim i As Integer, intLastPos As Integer, intPos As Integer

   If (Len(Delimiter) = 0) Then

      ' gemäß Konvention:
      ' Wenn delimiter eine Zeichenfolge der Länge Null ist, wird ein aus einem
      ' Element bestehendes Datenfeld, das die gesamte Zeichenfolge von expression
      ' enthält, zurückgegeben.

      ReDim astr(0)
      astr(0) = Expression

   Else

      ' max. Anzahl setzen
      ' da der Funktionsparameter Limit hier geändert wird, und
      ' die Syntax der Originalfunktion (ByRef statt ByVal) beibehalten bleiben
      ' soll, wird hier eine lokale Variable verwendet
      ' -1 da der erste Index des Array = 0 und nicht 1 ist
      Select Case Limit
         Case -1
            ' -1 ist der Default-Wert und bedeutet alle Teilstrings sollen
            ' zurückgegeben werden
            lngLimit = 99999

         Case Is < 1:
            ' falsches Limit angegeben
            ' die Behandlung der Übergabe des Wertes 0 in der Originalfunktion,
            ' nämlich ein Array der Dimension(-1) zurückzugeben, kann hier nicht
            ' simuliert werden
            Err.Raise 5

         Case Else
            lngLimit = Limit - 1
            ' Limit -1 da der erste Index des Array = 0 und nicht 1 ist
      End Select

      Do
         ' Position des Trennzeichens/-Strings finden
         ' dabei Start der Suche nach letztem gefundenen Trenner beginnen
         intPos = InStr(intPos + 1, Expression, Delimiter)

         ' Trennzeichen-/String gefunden und Limit noch nicht erreicht
         If (intPos > 0 And i < lngLimit) Then

            ' Array (neu) dimensionieren
            If (i Mod C_DIMSIZE = 0) Then ReDim Preserve astr(i + C_DIMSIZE)

            ' Teilbereich zuweisen
            astr(i) = Mid(Expression, intLastPos + IIf(i = 0, 1, Len(Delimiter)), _
                          intPos - intLastPos - IIf(i = 0, 1, Len(Delimiter)))

            ' Position merken
            intLastPos = intPos

         ' keine (weiteren) Trennzeichen-/Strings enthalten
         ' oder aber das Limit erreicht
         Else
            ' Array gg. neu dimensionieren
            If (i Mod C_DIMSIZE = 0) Then ReDim Preserve astr(i + C_DIMSIZE)

            ' dann den Rest zuweisen
            astr(i) = Right(Expression, Len(Expression) - intLastPos - _
                           (Len(Delimiter) - 1))

            ' Array auf korrekte Größe dimensionieren
            ReDim Preserve astr(i)

         End If

         i = i + 1

      ' Schleife solange laufen lassen wie Trenner gefunden werden
      ' und das Limit noch nicht überschritten ist
      Loop While (intPos And i <= lngLimit)
   End If

   ' Array zurückgeben
   Split = astr
End Function
#End If

Code eingefügt mit Syntaxhighlighter 2.5

Beliebteste Forumthreads (12 Monate)

Excel2003 und 97 (Befehl "Split")

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel2003 und 97 (Befehl "Split")

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread