ich trage in einer Tabelle, in 5 Zellen Namen ein und möchte, dass diese Namen in den Tabellen 5:9 als Blattname ausgegeben werden.
Wer kann mir hierzu einen Tipp geben?
Danke für eure Mühe und schönen Sonntag.
Gruß
Niko
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$A$2" _
Or Target.Address = "$A$3" Or Target.Address = "$A$4" _
Or Target.Address = "$A$5" Then
Worksheets(Target.Row + 4).Name = Target
End If
End Sub