Blätter auto-umbennen
24.10.2004 18:14:47
Fenaj
ich möchte ein Registerblatt mit dem Namen aus Zelle A100 automatisch benennen. Ich bekomme es aber nicht hin, weil der Name aus Zelle A100
sich aus zwei verketetten Zellen ergibt und nicht aus reinem "Text" besteht. Wenn sich die Verkettung ändert, soll der Name entsprechend der neuen Verkettung angepasst werden. =VERKETTEN(C57;Blatt42!O11)
Zur Zeit siehts so aus
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Address, 1) = "$A$100" Then ActiveSheet.Name = Range("A100").Value
End Sub
bitte ändert mir den Code, dass er funktioniert.
Danke für die Hilfe,
F.