Hvor mange ark?

Jeg mener at 256 er max., men jeg undersøger det lige ....

Ja, prøv at søge i hjælpen under "Limit" (engelsk version).

500 faneblade lyder af meget, det kunne godt gå hen og blive uoverskueligt
Er der ikke et alternativ ? Hvad er formålet med arket ?
(Hvis ikke det er for personligt et spørgsmål :-) )

XP Sheets Limit - "Limited by available memory" - jeg har ingen problemer med at indsætte over 1000 ark.

Mener også at der er begrænsninger på tidligere versioner.

Du har ret Flemming.
Fra Excel 2000 og opefter er det hukommelsen som er begrænsningen.
Jeg kører stadig Excel 97 :-)

Men jeg vil også give blackadder ret. 500 ark er meget.
Måske kunne man erstatte dem med en eller anden form for database.

Jeg vil tilslutte mig blackadders kommentar. Det bliver nemt uoverskueligt med så mange ark. Måske var det værd at overveje en database eller en anden opstilling af data, eventuelt med lidt flere kolonner....

arggh janvogt..... du tager ordene ud af min mund *S*

Ja flemmingdahl havde ret, takker for hjælpen.

Lige en sidste ting:-) Kan man sorterer ark fx. i alfabetisk rækkefølge? Eller skal man gøre det manuelt?

http://www.eksperten.dk/spm/287425 - SORTERING AF ARK

cddk>> Takker:-)

Hvis der er nogle der følger med her stadig? Hvordan kan man så lige sørge for at der er nogle ark, som ikke ryger med i sorteringen? Har nemlig et ark, som gerne altid skulle ligge først og et der skal ligge til sidst... Kunne selvfølgelig kalde dem A og Å ;o) Men hvis man nu ville have noget mere fancy?

Vær dog opmærksom på at i sortering kommer fx. Ark10 før Ark2
det samme sker hvis du stiller arknavne op i et ark og sorterer her
Bak's kode gør iøvrigt det samme - har prøvet :-)

Sub SortArk()
Dim sh()
ReDim sh(Sheets.Count)
Application.ScreenUpdating = False

For t = 2 To Sheets.Count - 1
  sh(t) = Sheets(t).Name
Next

For t = 2 To Sheets.Count - 1
  For tt = t To Sheets.Count - 1
    If sh(t) > sh(tt) Then x = sh(t): sh(t) = sh(tt): sh(tt) = x
  Next
Next

For t = 2 To Sheets.Count - 1
  Sheets(sh(t)).Move After:=Sheets(Sheets.Count - 1)
Next

Application.ScreenUpdating = True
End Sub