programkode for faner

Private Sub Worksheet_change(ByVal Target As Range)

ActiveSheet.Name = Range("c1")

End Sub

Hov, der var jeg vist lidt hurtigt til at give point.

Jeg synes ikke helt det virker. Koden synes at virke hvis tallet i c1 er tastet. Men i mit tilfælde linkes der til c1 fra anden celle i andet ark, hvor cellenavnet fremgår. Hvad skal jeg gøre?

Forstår ikke helt.

Hvad står der i "c1", ligger der en formel??

I c1 hentes der et tastet tal fra en anden celle i anden fane. I dette tilfælde hedder fanden FORSIDE. Derfor hedder formlen =+FORSIDE!B2

fanen ikke fanden.. selvom fanden sandsynligvis har en finger med i spillet i forhold til den opgave jeg sidder med...

Jeg formoder ikke at alle ark skal hedde hvad der står i "FORSIDE!B2". Prøv derfor denne. Den vil opdater hvis du ændre referencen i "C1" ELLER hvis du ændre i indholdet i den celle "C1" referere til i andet ark, og du vender tilbage til arket hvor programkoden ligger.. giver det mening??

Private Sub Worksheet_Activate()

ActiveSheet.Name = Range("c1").Value

End Sub

Private Sub Worksheet_change(ByVal Target As Range)

ActiveSheet.Name = Range("c1").Value

End Sub

Var det noget i den retning du søgte??

Hej lerskov,

Hov, havde slet ikke set at du havde svaret.

Men jeg kan se at koden virker meget bedre, end de tidligere. Et problem er dog stadigt, at jeg ligesom skal klikke på fanen, før koden opdaterer fanenavnet. Kan dette undgås?

På forhånd tak!

Det kan sikkert godt løses, men hvor komplekst er dit regne ark?

Jeg har flere regneark, hvor jeg skal have løst dette problem. I regnearkene er der ca. 10-20 faner med tastede tal. Disse tal bliver linket til endnu en fane i samme regneark, som samler oplysningerne. Disse tal linker videre til et helt andet regneark. Fra dette andet regneark hentes en nummerering, tilbage til samlefanen i det oprindelige ark, som så linker tilbage til de mange ark, med de tastede oplysninger. Hver eneste fane får således en nummerering, hentet fra det "andet ark" og derefter hentet fra samlefanen. Udfordringen er således at få denne nummerering til at fremgå af fanenavnet.

Giver det mening?

Regnearkene er altså ikke deciderede komplekse, men der linkes lidt meget på kryds og tværs. Det oprindelige tastede tal fremgår altså lidt forskellige steder.

Håber du kan hjælpe :-)