Arknavn som variabel

Du kan placere værdien du taster i cellen i en variabel og bruge denne som arknavn.
Fx:

Sub test()
Dim ArkNavn  As String
Dim Resultat As Long

Sheets("Ark4").Activate
ArkNavn = Cells(1, 1).Text

Sheets(ArkNavn).Activate

    Resultat = Cells(1, 1).Value + Cells(2, 1).Value
    MsgBox Resultat

End Sub

Jeg vil foreslå du enten kører makroen manuelt, anvender en knap eller et menupunkt for at aktivere den.

her er en brugerdefineret funktion:

Public Function Ad(FraArk As String, VærdiCelle As Range)
Ad = Sheets(FraArk).Range(VærdiCelle.Address).Value
End Function

Nå, med et mere sigende navn

Public Function FraFremmedArk(FraArk As String, VærdiCelle As Range)
FraFremmedArk = Sheets(FraArk).Range(VærdiCelle.Address).Value
End Function


FraArk er cellen med arknavnet.
VærdiCelle = en celleadresse

Jeg er ikke nogen ørn til alle disse koder.
Min fil indeholder 31 ark med møde- gåtider for samtlige medarbejdere pr. dag.
Jeg ville så gerne lave et ekstra ark, hvor brugere hentede data fra den dato vedkommende ønskede at se. I dette ark skulle der så foretages nogle beregninger på den pågælende dag.
Jeg forstiller mig f.eks., at brugere i celle A1  skiver arknavnet, og i de beregninger der så laves i pågælende ark, indsættes nogle formler hvor dataene i det angivne ark hentes.
Formlen kunne f.eks. se således ud "=+'21'!j13" hvis dataene skulle hentes fra ark 21
Det jeg ville var, at skrive 21 i celle A1 og så referere til den celle istedet for det pågælde ark. Men det virker ikke.
Håber I forstår hvad jeg mener.

her er en demo af min funktion.
http://kabbak.frac.dk/EXCEL/DataFraAndreArk.xls

Brug funktionen "indirekte". Så har du fx en celle (x27) hvor i det arknummer du er interesseret i står efter alle dine beregninger. Når du så skal hente noget i celle n37 i ark x27 skriver du;

=indirekte(x27 & "!n37")

Indirektefunktionen kan også sættes ind i andre formler.

Søgte efter en funktion til at referere til en celle fra VBA, og så dette spørgsmål, hvor denne løsning burde hjælpe.
=INDIRECT("'" & A1 & "'!j13") på dansk: =INDIREKTE("'" & A1 & "'!j13")

Tober> Er det ikke lgie det jeg forslog ofr ½ år siden?
8718> Hvad med at få lukket?