---
title: "Prob med loop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/122726-prob-med-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Boorg"
published: "2005-02-18T09:21:08.000Z"
updated: "2005-03-04T07:12:56.000Z"
replies: 8
views: 317
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/asp/122726-prob-med-loop"
---

# Prob med loop

## #1 — Boorg, 2005-02-18T09:21Z

Har en tabell som visar olika veckor, men är det ett fel och jag "tror" det är att i inte får vara så stor.

Den skall visa veckonummer från Vecka 1 2004 till vecka 1 2005 och får detta felmedelande:

```
Error Type:
Microsoft VBScript runtime (0x800A0009)
Subscript out of range: 'i'
```

Och här e koden:

```
MondayTemp = MinOfMonday
for i = 4 to Columns
	tabell(0,i) = MondayTemp
	tabell(1,i) = "<center>" & DatePart("ww",MondayTemp,2,2) & "</center>"
	MondayTemp = DateAdd("ww",1,MondayTemp)
next
```

Någon som kan?

Mvh Jesper

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

## #2 — Engine^, 2005-02-18T09:22Z

Helt riktigt att i inte får vara för stor.

Varför har du satt

```
For i = 4 To Columns
```

? Och vad är *Columns*?

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

## #3 — Boorg, 2005-02-18T09:25Z

> **Engine^ skrev:**
>
> Helt riktigt att i inte får vara för stor.
> 
> Varför har du satt
>
> ```
> For i = 4 To Columns
> ```
>
> ? Och vad är *Columns*?

i är 4 för att dom fyra colummerna innan är redan fyllda

Columns är hur många kolummer i tabellen jag har, Jag ahr Columns och Rows, Columns bestämms av hur många veckor där är inställt

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

## #4 — Engine^, 2005-02-18T09:37Z

Ok... då gissar jag på att du ska göra loopen så här

```
For i = 3 To Columns - 1
```

Eftersom första indexet i en array alltid är noll.

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

## #5 — Boorg, 2005-02-18T09:40Z

Nej den är redan inräknad

Finns det något knep så man kan göra den "hur stor som hellst" ?

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

## #6 — Engine^, 2005-02-18T12:33Z

ReDim() -  <http://www.devguru.com/Technologies/vbscript/quickref/redim.html>

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

## #7 — Boorg, 2005-02-18T14:54Z

> **Engine^ skrev:**
>
> ReDim() -  <http://www.devguru.com/Technologies/vbscript/quickref/redim.html>

Hmm okej.. förstog inte riktigt på artikeln hur man skulle andvända det...

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

## #8 — Engine^, 2005-02-18T16:50Z

Att du kan öka Arrayens storlek. Men det ska ju du väl inte behöva göra...

Är din Array dimensionerad till

```
dim tabell(1, 53)
```

så ska väl det räcka.

Med ReDim kan du göra såhär

```
const ROWS = 7

dim tabell

[blue]'annan kod som gör saker och ting[/blue]

redim tabell(ROWS, 4)

[blue]'annan kod som gör saker och ting och plötsligt behöver du fler fält[/blue]

redim preserve tabell(ROWS, 10)
```

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

## #9 — Boorg, 2005-03-04T07:12Z

Hmmm okej...
Men hur ska man få in den i denna koden då?

```
MondayTemp = MinOfMonday
for i = 4 to Columns
	tabell(0,i) = MondayTemp
	tabell(1,i) = "<center>" & DatePart("ww",MondayTemp,2,2) & "</center>"
	MondayTemp = DateAdd("ww",1,MondayTemp)
next
```

Det fattar jag nämmligen inte :/

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/122726-prob-med-loop