Arknavn fra celle uden brug af makro?

Hej Chief

Uden brug af makro ... Det aner jeg ikke ???

Men hvad med denne her:

I VBA under ThisWorkbook har jeg følgende kode i Workbook_SheetChange hændelsen:


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim n As String

'n = navnet på det aktuelle faneblad
n = Sh.Name

'Hvis celle a1 IKKE er tom sættes fanebladets navn = celle a1´s værdi ... ellers skal fanebladet bare beholde sit oprindelige navn.
If Range("a1").Value <> "" Then
    Sh.Name = Range("a1").Value
Else
    Sh.Name = n

End If
End Sub

Med venlig hilsen, Nicolai

Det er vigtigt at det er uden at bruge makro da der er virusforskrækkelse i firmaet og man tør ikke køre makro.
M.v.h. chiefbigchief

Hej Chief

Det er helt i orden ...

Jeg tænker bare:
Der kommer vel ikke virus udefra, hvis du selv indtaster ovenstående kode i jeres Excelark, som ikke kommer uden for firmates 4 vægge.

Anyway, Godt nytår.

Nicolai Fogt

Automatisk !!! nej ikke uden makro

Beklager den sene respons jeg har haft problemer med mit netværk men er oppe igen som i kan se.

excelent: Øv det er der så ikke noget at gøre ved med mindre det kan lade sig gøre den anden vej altså navngive arket og overføre det til en celle.

M.v.h. chiefbigchief

Med =CELL("filename";A1) kan du få stien inklusive arknavnet. Og så kan du jo bare klippe den første del af. Det kan f. eks gøres med
=MID(CELL("filename";A1);FIND("]";CELL("filename";A1);1)+1;99)
Hvis arknavnet ikke er langt kan 99 reduceres kraftigt.

#6 jens48
Jamen det virker da fint på den måde, så må montørerne bare vende sig til at skrive opgavenummeret i arknavnet hvilket måske også er bedre når det kommer til stykket.
hvis du lægger et svar skal du få dine point.

M.v.h. chiefbigchief

Det glæder mig at det kunne bruges