Avatar billede tdh1309 Juniormester
21. juli 2015 - 00:45 Der er 3 kommentarer og
1 løsning

Sheetname - reference fra felt?

Hej

Jeg vil gerne navngive mine sheets, ud fra et feltnavn på et worksheet.

Eks. worksheetname = "sheet1; A1".

Kan man det, og især hvordan?

Hilsen

Thomas
21. juli 2015 - 08:49 #1
Excel har ikke en automatisk funktion til at overføre en celles indhold til arknavn.

Den lette er en makro, der skal afvikles manuelt:

Sub myTabName()
    ActiveSheet.Name = ActiveSheet.Range("A1")
End Sub
21. juli 2015 - 08:57 #2
Den lidt mere avancerede er denne, der tager højde for at A1 ikke indeholder mere end de tilladte 31 tegn.
Desuden sker der intet hvis A1 er tom.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Set Target = Range("A1")
    If Target = "" Then Exit Sub
    On Error GoTo Badname
    ActiveSheet.Name = Left(Target, 31)
    Exit Sub
Badname:
    MsgBox "Please revise the entry in A1." & Chr(13) _
    & "It appears to contain one or more " & Chr(13) _
    & "illegal characters." & Chr(13)
    Range("A1").Activate
End Sub

Indsættes på arkets kodeblad.
24. juli 2015 - 11:05 #3
Glemte du spørgsmålet?
Avatar billede tdh1309 Juniormester
28. juli 2015 - 15:21 #4
Hej

Undskyld den sene feedback - der har været ferie travlt på arbejdet.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester