Excel - skrive sheetname i en celle

Næsten ......

Brug denne kode:

MsgBox \"The name of the active sheet is \" & ActiveSheet.Name

Prøv at lave denne makro

Sub Makroarknavn()


For a = 1 To Worksheets.Count
Worksheets(a).Range(\"a4\").Value = Worksheets(a).Name

Next
End Sub

Denne makro kan gøre det:

Sub SkrivArknavn()
  Range(\"a4\").Value = ActiveSheet.Name
End Sub

Eller hvis den skal indsættes i celle A4:

[a4] = ActiveSheet.name

Nå for hunde, der var vi vist da aktive allesammen.

Det må også kunne lade sig gøre uden brug af makro, altså med en simpel Excel formel.
Så skal vi have fat i CELLE-kommandoen.

janvogt - når jeg skriver =activeSheet.name skriver den blot Type Mismatch (det skal lige siges at det er en engelsk version af Excel jeg har)

Jeg er ikke helt stiv i det her. Hvad præcist skal jeg gøre. Skal jeg ind i visual basic? Hvordan får jeg den til at skrive resultatet på celle a4?

CELLE henter hele stien, så den bliver lidt kryptisk:

=MID(CELL(\"filename\";A5);FIND(\"]\";CELL(\"filename\";A5))+1;LEN(CELL(\"filename\";A5))-FIND(\"]\";CELL(\"filename\";A5)))

Hej

=CELLE(\"filnavn\";A1)

duer ikke helt, men....

admss

Ja, det er i Visual Basic, det foregår. Et lille tip: Hvis du opretter makroen i det kodeark, der hedder \"ThisWorkbook\" og kalder den for \"Workbook_Open\", så vil makroen automatisk køre, når du åbner Excel-filen.

Alt med ActiveSheet har noget med Visual Basic at gøre.

Men ovenstående formel kan indsættes direkte i celle.

På dansk er:
MID = MIDT
LEN = LÆNGDE
FIND = FIND
\"filename\" = \"filnavn\"

Der hvor der står A5 skal bare være et eller andet sted i arket.

Jeg kan sende den til dig .....

Jeg ved ikke om vi er kommet lidt væk fra sporet..

Jeg har et faneblad - det faneblad hedder fx uge41.

I min celle, fx a5 vil jeg gerne kunne skrive hvad dette faneblad hedder. Jeg kan ikke bruge en =activesheet.name - for den skriver blot TYPE MISMATCH..

Hvad gør jeg så?

janvogt:

På dansk

=MIDT(CELLE(\"filnavn\";A5);FIND(\"]\";CELLE(\"filnavn\";A5))+1;LÆNGDE(CELLE(\"filnavn\";A5))-FIND(\"]\";CELLE(\"filnavn\";A5)))

Godt at lære lidt!

mvh/admss

>> admss
Min version af CELLE-formlen skulle være anvendelig.

Selvfølgelig!

Jeg oversatte den bare til dansk så den ikke gav fejl i mit excel-program.

admss

janvogt - hvis du vil sende den til

thomas.skipper@unilever.com

så vil jeg kigge på den.

Men tak for alle.. sikke en hurtig respons fra alle!! Jeg har sikkert en millard andre spørgsmål omkring Excel!

>>> admss
Jeg nåede ikke at se din oversættelse inden jeg skrev mit kommentar ;-)

Jeg har forresten engang lavet et eksempelark, som viser hvordan man kan vride og dreje CELLE-formlen i forbindelse med fil-stien.

Interesserede kan sende mig en mail.

Nu har jeg fundet ud af det... jeg gik i design mode, valgte min celle, og tog view code, derefter skrev jeg følgende:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range(\"c1\").Value = ActiveSheet.Name
End Sub

ok - den skulle være på C1 og ikke på a4 - whatever :o)

Men tak til alle.. jeg giver jeg ligelige point.

En anden mulighed er at oprette din egen lille function:
I et modul oprette du følgende function:

Function WriteShtName() As String
    WriteShtName = ActiveSheet.Name
End Function

Efterfølgende kan du så fremkalde arkets navn ved at skrive =WRITESHTNAME() i den celle, hvor du vil have navnet til at stå....

Hov. jeg har ikke fået givet jer point!! I fortjener alle sammen point, fordi I alle har svaret med noget konstruktivt.. Jeg HAR fundet ud af det, takket være janvogt... så han fortjener flest point...