Nummer på Ark

http://www.eksperten.dk/spm/779941

Function myArkNum(Ark as String)
    myArkNum = Sheets(Ark).Index
End Function

Hej jeppson

Tak for dit svar - skulle man så kunne trække den i cellen via =myArkNum()
Det giver nemlig fejl...

også tak til mugs ;)

Beklager det ikke var forklaret -her er lige nogle forskellige funktioner til hvert tilfælde :-)

Function myArkNumString(Ark As String) As Integer
' Giv nummeret ud fra arknavn
    myArkNumString = Sheets(Ark).Index
End Function

Function myArkNumActiveSheet() As Integer
' Giv nummeret på det aktive ark
    myArkNumActiveSheet = Application.ActiveSheet.Index

End Function

Function Arknavn(IndexNumber As Integer) As String
' Giv navnet på det aktive ark
    Arknavn = Sheets(IndexNumber).Name
End Function

Function ArknavnActiveSheet() As String
' Giv navnet på det arket med indexnummeret
    ArknavnActiveSheet = Application.ActiveSheet.Name
End Function


I Ark1 som er det 1. ark i et regneark giver de resultaterne:
                          Ark1
=myArkNumString("Ark1")      1
=myArkNumActiveSheet()    1
=arknavn(2)              Ark2
=ArknavnActiveSheet      Ark1

Hej jeppson

Det virker - men... :)
Jeg har f.eks. 3 Ark.
I Ark1 B1 har jeg tallet 10:
I Ark2 B1 har jeg =SUM(Ark1!B1;myArkNumActiveSheet())

Når jeg ændre 10-20 i Ark1 bliver B1 i Ark2 til 21 - Fordi Ark1 er aktivt når jeg ændre. Hvis jeg efterfølgende går ind i B1 i Ark2 kan jeg få den til at opdatere korrekt. det betyder at jeg skal ind i alle felter og så kunne jeg lige så godt selv skrive tallet ;)

Findes der ikke en funktion der bare hedder Sheet.Index, så den selv opdatere alle (måske 50) B1 felter?

Er det til at forstå hvad jeg mener?

Det har du da ret i - det havde jeg overset!

Så kan du da bare bruge denne :-)

Function Arknummer()
    Arknummer = Sheets(Cells.Parent.Name).Index
End Function

Jeg beklager - men det giver samme resultat :(

Så skulle den være der!

Function Arknummer()
    Arknummer = Sheets(Application.Caller.Parent.Name).Index
End Function


Fik hjælp fra:
http://support.microsoft.com/kb/213475

Har dog fjernet Application.Volatile, da den bevirkede at formlem skulle genberegnes hvis der blev skiftet væk fra regnearket!

Håber denne kan bruges!

Det er helt perfekt :) :) Takker mange gange!
Hvis du smider et svar, så er der glade point herfra :)

Nice :-)

Lav det lige som svar, så jeg kan give point ;)

Nice