Indsætte filnavn automatisk i fanenavn

Du kan fx lægge disse linjer ind i den Workbook_Open makro eller et andet sted, afhængigt af, hvornår arket skal have navn.


    Dim Ark1Navn As String
    Ark1Navn = ActiveWorkbook.Name
    ActiveWorkbook.Sheets(1).Name = Ark1Navn

Jeg ville nok benytte ThisWorkbook, og en enkelt linje skulle kunne klare det:

ThisWorkbook.Sheets(1).Name = ThisWorkbook.Name

Hej Dan Elgaard og Jkrons :)

Tak for jeres hurtige svar her i Påsken.

Jeg har så lige et spørgsmål til de herrer.
Hvor skal jeg indsætte ovenstående for at få dette til at spille optimalt ?

---------
'************ Ivan Agerbo Nielsen ************
'*************************************************************
Const LukNedEfter As String = "00:03:00" '********************
Const GemFørst As Boolean = True        '********************
'*************************************************************
Public Tid As Date
Sub Start_Føler()
    Tid = Time
    On Error Resume Next
    Application.OnTime Tid + TimeValue(LukNedEfter), "LukNed"
    On Error GoTo 0
End Sub
Sub Stop_Føler()
    On Error Resume Next
    Application.OnTime Tid + TimeValue(LukNedEfter), "LukNed", , False
    On Error GoTo 0
End Sub
Sub Føler()
    On Error Resume Next
    If ThisWorkbook.ReadOnly = True Then Exit Sub
    Call Stop_Føler
    Call Start_Føler
End Sub
Private Sub LukNed()
    If ThisWorkbook.ReadOnly = True Then Exit Sub
    ThisWorkbook.Close (GemFørst)
End Sub

Du skal indsætte det i 'Workbook_Open' eventen:

http://www.EXCELGAARD.dk/Bib/Makroer/Indsaet/

Private Sub Workbook_Open()
      ThisWorkbook.Sheets(1).Name = ThisWorkbook.Name
End Sub

Hej Dan

Jeg får en fejl når jeg indsætter det.....
Kan man vedhæfte filen her eller må jeg sende den til dig ?

'************ Ivan Agerbo Nielsen ************
'*************************************************************
Private Sub Workbook_Open()
Føler
End Sub
Private Sub Workbook_Open()
      ThisWorkbook.Sheets(1).Name = ThisWorkbook.Name
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Føler
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Stop_Føler
End Sub

Ja, selvfølgelig får du fejl - du har jo 'Workbook_Open' mere end en gang!

Prøv med:

Private Sub Workbook_Open()
      Føler
      ThisWorkbook.Sheets(1).Name = ThisWorkbook.Name
End Sub

Men, ellers, ja, du må gerne sende filen til mig :-)

Hej Dan
Hvordan kan jeg sende filen til dig ?

mvh
Ivan Agerbo

'************ Ivan Agerbo Nielsen ************
'*************************************************************

Private Sub Workbook_Open()
      ThisWorkbook.Sheets(1).Name = ThisWorkbook.Name
Føler
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Føler
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Stop_Føler
End Sub

Jeg ser, at du fandt ud af det :-)

For en anden go' gang skyld, så kan man sende mig ting her:
http://www.EXCELGAARD.dk/Bib/FAQ/Kontakt/

#10
Din mail adresse er ikke nem at finde ;-)
Så jeg læste: Retningslinjer for kontakt til EXCELGAARD igennem.
Hold da op.... ;-)

Tak til jer alle for hurtig respons :-)

God påske til jer alle

Velbekomme.

Er der en speciel grund til at det er fane navnet der skal have "Fil navnet" ?

#13
Hej Store-Morten

Det er til et tidsregistreringskema jeg har konstrueret til vore undervisere.
De har hver deres fil som de registrerer deres tid i, og så er det lettere at kunne følge hver enkelt UV i masterfilen...
Det har så også den fordel at den enkelte UV'er hurtigt kan finde sit eget skema/fil..

Jeg ville dog også gerne kunne opsummere hver enkelt fil fra mappen i samme ark på masterfilen, men det må komme i et senere opslag.
(således at jeg/lederen kan se hvis der bliver tilføjet en ny fil i mappen)

Foreløbig tak for dit svar, det var lige det jeg skulle bruge her og nu.

#11: Mail adressen står da aller-øverst på det link :-)