Aktiver regneark

Er projektmappen hvis navn står i ActiveWorkbook.Sheets("Stam").Range("A1") åben ?

Jeps!

ok så skal du have fat i projektmappenavn og arknavn
for at selektere dette fx sådan :

Workbooks("anden.xls").Activate
Sheets("Ark?").Range("A1").Select

Jeg forstår ikke helt hvad du mener. Jeg kender ikke navnet på den "Workbooks" der skal aktiveres.
Vil du være lidt mere beskrivende!

jeg går ud fra at projektmappenavn også står i A1 ?
for det skal du jo bruge for at aktivere denne
kom evt. med et eks på indhold af A1

man kan dog også anvende indeks nummer så vidt jeg husker
har det første indlæste nr 1 og så fremdeles

Vil du ikke prøve og skrive koden i makroen, så jeg kan se hvad du mener, altså det der kommer efter

Workbooks("anden.xls").Activate
Sheets("Ark?").Range("A1").Select

Jeg kan også beskrive det på en anden måde: Alle de steder, hvor der står Windows("Stamdata.xls").Activate skal ændres til at det er den fil der står på arket Stam i celle A1, der aktiveres:

Sub OpdaterFilSti()
Dim strFileName As String

Application.ScreenUpdating = False
'Skriver stinavn
  Sheets("Udgang").Range("A1") = ActiveWorkbook.FullName

'Kopi af stinavn fra A1
  Sheets("Udgang").Range("A1").Copy

'Åbner Stamdata
  Workbooks.Open Filename:="C:\Documents and Settings\Henrik Søndergaard\Skrivebord\Stamdata.xls"

Windows("Stamdata.xls").Activate
'Indsætter Stinavn ind i A1
  Sheets("Stam").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Windows("Udgangspunkt.xls").Activate

Application.CutCopyMode = False

'Call CopyToOtherWorkbook
Windows("Stamdata.xls").Activate
Application.ScreenUpdating = True
Application.Run ("Stamdata.xls!CopyToOtherWorkbook")

'Lukker Stamdata.xls
ActiveWindow.Close

'Aktiverer Udgangspunkt
Windows("Udgangspunkt.xls").Activate

End Sub

Ups, der er ikke Windows("Stamdata.xls").Activate der skal ændres, men Windows("Udgangspunkt.xls").Activate

denne aktiverer projektmappe med navn som står i A1

Workbooks(Workbooks("Stamdata.xls").Sheets("Stam").Range("A1").Value).Activate

problemet er blot at det ikke kun er projektmappenavn som står i A1
men også stien, så hvis du ikke skal bruge stien, kan du ændre
Sheets("Udgang").Range("A1") = ActiveWorkbook.FullName
til
Sheets("Udgang").Range("A1") = ActiveWorkbook.Name
som kun returnerer filnavn.xls

skal du bruge stien så må vi anvende en anden metode

Det ser ud som om jeg har fået det til at virke ved at sætte "Name" ind i B1 og så bruge den.

Jeg tjekker lige i morgen og vender tilbage!

Det virker Excelent - Vil du smide et svar!

svar