Print side | Luk vindue

Navn på ark

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=1012
Udskrevet den: 17.Maj.2024 kl. 09:57


Emne: Navn på ark
Besked fra: CBaun
Emne: Navn på ark
Posteringsdato: 04.Jan.2013 kl. 10:30
Jeg har arbejdet på et regneark, som bruges i skoleregi.
I hvert ark har jeg lavet det sådan, at der øverst kommer navne på den pågælende elev. Dette henstes fra en oversigt, hvor man kan kopiere navne ind fra et andet program.
Jeg ville gerne at navnet på arket, også blev navnet på eleven, uden at jeg skal til at skrive det selv. At det bare kopiere værdien af en bestemt celle i arket.
Har nogen en løsning på det?


Svar:
Besked fra: excelent
Posteringsdato: 04.Jan.2013 kl. 10:54
Indsæt kode i ThisWorkbook modulet
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Sh.Range("A1")) Is Nothing Then Exit Sub
If Sh.Range("A1").Value <> "" Then ActiveSheet.Name = Sh.Range("A1").Value
End Sub
 
Hvis den ikke trikker på dette, så skal du anvende en kode i et alm. modul, hvor til du tildeler en genvejs-tast som du så kører koden med...sig til hvis....


-------------
Jeg anvender Excel 2016 DK. Hvad anvender DU ? HUSK TILBAGEMELDING !!!


Print side | Luk vindue