VBA, hente en verdi fra et annet regneark

Denne kode henter værdien fra celle A1 i Ark1 i filen ID.XLS, der er gemt i C:\Dokumenter og indsætter denne værdi i celle B2 i Ark2 i den mappe, hvor koden ligger.

Sub HentFraAndenMappe()
    Workbooks.Open "c:\dokumenter\id.xls"
    ThisWorkbook.Sheets("ark2").Range("b2").Value _
        = ActiveWorkbook.Sheets("ark1").Range("a1").Value
    ActiveWorkbook.Close
End Sub

jeg har makroen i regnearkfil, skal hente verdien fra en annen regnearkfil. Denne verdien skal være navnet på en arkfane i et tredje regneark.
:-)

Mener du, at den værdi du skal hente, skal være den tekst, der står i den trejde arkfane?

Så prøv denne. Den skriver navnet fra trejde arkfane i id.xls i b2 i ark2 i den aktive mappe (altså den mappe hvor makroen er).

Sub HentFraAndenMappe()
    Workbooks.Open "c:\dokumenter\id.xls"
    ThisWorkbook.Sheets("ark2").Range("b2").Value _
        = ActiveWorkbook.Sheets(3).Name
    ActiveWorkbook.Close
End Sub

Hvis du ikke er det, du mener, kan du så ikke prøve at forklare det igen?

Den skal hente verdien fra en tredje exelfil. Jeg tror ikke det går å benytte ThisWorkbook....uttrykket.

Filen med makroer inneholder bare makroer, ingen data.
De andre filene inneholder ingen makroer eller VBA-kode

Lad mig spørge om jeg har forstået det rigtigt? Du har en makro i en fil, som skal hente navnet på et faneblad i en anden fil (hvilket faneblad?) og gemme det i en celle i en tredje fil (hvilket ark, hvilken celle)?

Denne makro (som kan ligge hvor som helst) henter navnet på de første faneblad i Excel filen a.xls og skriver dette navn i celle A1 i Ark1 i filen b.xls.

Sub HentFraAndenMappe()
    Workbooks.Open "c:\dokumenter\a.xls"
    strname = ActiveWorkbook.Sheets(1).Name
    ActiveWorkbook.Close
    Workbooks.Open "c:\dokumenter\b.xls"
    ActiveWorkbook.Sheets(1).Range("a1").Value = strname
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub


Jeg håber at det er dette du ønsker.

JKRONS, beklager at jeg har formulert meg så uklart. Men formålet er å gi fanebladet et navn. Navnet blir hentet i en Celle i en annen regnearkfil. Jeg tror det må bli det motsatte av ditt siste svar. Verdien som blir hentet i er en dato. Jeg ønsker at fanebladet skal ha dato av formatet. "mmm.yyyy" 
Håper du har litt tålmodighet med meg :-)

Prøv med

Sub navngivark()
    Dim strname As String
    Workbooks.Open "c:\dokumenter\a.xls"
    strname = ActiveWorkbook.Sheets(1).Range("b1").Value
    ActiveWorkbook.Close
    strname = Format(strname, "mmm.yyyy")
    Debug.Print strname
    Workbooks.Open "c:\dokumenter\b.xls"
    ActiveWorkbook.Sheets(1).Name = strname
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

Fjern debug.print linien

Hei jkrons:-)
Nå fungerte det helt utmerket
Takker så mye for din tålmodighet.
Øyvind

Hej Øyvind - Velbekomme! Tak for point.