---
title: "Array i Excel"
type: "forum-thread"
url: "https://www.webforum.nu/amne/kontorsprogram/47523-array-i-excel"
topic: "Kontorsprogram"
topic_url: "https://www.webforum.nu/amne/kontorsprogram"
author: "Broskan"
published: "2002-07-09T06:07:32.000Z"
updated: "2002-07-09T12:55:01.000Z"
replies: 3
views: 270
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/kontorsprogram/47523-array-i-excel"
---

# Array i Excel

## #1 — Broskan, 2002-07-09T06:07Z

Jag undrar varför det här inte funkar i Excel97 men i Excel2000. Jag vill dela upp en sträng till en array separerad med ":". Är det  så att Split inte fungerar i äldre versioner.

```

strTmp = "123:124:125:126"
arrTmp = Split(strTmp, ":")
MsgBox UBound(arrTmp)
```

Det blir error på Split funktionen. Hur skall man lösa det?

//Broskan

Permalänk: https://www.webforum.nu/p/47523

## #2 — XL-Dennis, 2002-07-09T07:04Z

Broskan,

Split-funktionen introducerades i version 2000.

Följande funktion kan vara dig behjälplig:

```
Function Split97(sString As String, _
  Optional sDelim As String = " ", _
  Optional ByVal Limit As Long = -1, _
  Optional Compare As Long = vbBinaryCompare) As Variant

  Dim vOut As Variant
  Dim StrLen As Long
  Dim DelimLen As Long
  Dim Lim As Long
  Dim N As Long
  Dim p1 As Long
  Dim p2 As Long

  StrLen = Len(sString)
  DelimLen = Len(sDelim)
  ReDim vOut(0 To 0)

  If StrLen = 0 Or Limit = 0 Then

  ElseIf DelimLen = 0 Then
    vOut(0) = sString

  Else
    Limit = Limit - 1 
    N = -1
    p1 = 1

    Do While p1 <= StrLen
      p2 = InStr(p1, sString, sDelim, Compare)
      If p2 = 0 Then p2 = StrLen + 1

      N = N + 1
      If N > 0 Then ReDim Preserve vOut(0 To N)

      If N = Limit Then
        vOut(N) = Mid$(sString, p1)
        Exit Do
      Else
        vOut(N) = Mid$(sString, p1, p2 - p1)
      End If

      p1 = p2 + DelimLen  
    Loop
  End If
  Split97 = vOut
End Function
```

...och John Walkenbachs lösningsförslag visas här:
<http://www.j-walk.com/ss/excel/tips/tip32.htm>

Permalänk: https://www.webforum.nu/p/715494

## #3 — Broskan, 2002-07-09T09:56Z

Super Dennis!

Det var just vad som behövdes. Nu fungerar det galant.
Har du det tipset på din sida annars kanske det kunde vara nåt att lägga in.

//Broskan

Permalänk: https://www.webforum.nu/p/715607

## #4 — XL-Dennis, 2002-07-09T12:55Z

Broskan,

Det liksom mycket annat kommer successivt att läggas ut :)

F n är det StarCalc 6.0 för Windows som är "het" för mig.

Permalänk: https://www.webforum.nu/p/715714

---

Tråden på webben: https://www.webforum.nu/amne/kontorsprogram/47523-array-i-excel