Tabellenname übernehmen
30.12.2002 13:24:06
Barbara Kanditsch
Wie kann ich einen Tabellenblattnamen sofort in eine Zelle übernehmen, wenn ich ihn unten bei den kleinen rausstehenden Kärtchen eintippe?
Den umgekehrten Weg habe ich, bzw. nette Leute hier im Forum schon gefunden:
Private Sub worksheet_Change(ByVal target As Excel.Range)
Dim s As String
If target.AddressLocal = "$C$1" Then
s = Range("$C$1").Value
ActiveSheet.Name = s
ActiveSheet.PageSetup.RightHeader = Range("$C$1").Value
End If
End Sub
Man soll einerseits den Namen in C1 eingeben können, der dann übernommen wird ins Tabellenblatt (wie das Beispiel hier), aber auch umgekehrt.
Danke im Voraus,
Barbara.
Anzeige