Register automatisch aus Zelle benennen
01.10.2021 16:16:30
SyLi
ich habe eine Mappe mit rund 200 Tabellenblättern.
In die Zelle A1 wird über die Formel
='Datenblatt'!F2
der Name des Tabellenblattes gezogen.. also aus einer externen Tabelle im gleichen Ordner.
Mein Wunsch ist nun, dass der Tabellenname aus A1 gesetzt wird.
Ich habe dies mit diesem VBA-Script versucht:
Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
'Quelle: Message-ID:
If Target.Address(0, 0) = "A1" And Target.Value "" Then
If Not SheetExists(Target.Value) Then
Sh.Name = Target.Value
Else
Application.Undo
End If
End If
End Sub
Public Function SheetExists(strName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(strName) Is Nothing
End Function
Es ist auch egal, ob ich die externe Tabelle offen habe oder nicht :(
Wo liegt der Felhler?
Vielen Dank für Eure Mühe
gruß
SyLi
