Ich möchte alle Tabellen-Namen (Standard Tabelle1, Tabelle2, ...) automatisch ändern mit dem Inhalt der Zelle B4 des jeweiligen Blattes.
Besten Dank im voraus für Eure Hilfe.
Gruss
Peter
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Fehler
If Target.Address = "$B$4" Then ActiveSheet.Name = "Peter_" & Target.Value
Exit Sub
Fehler:
MsgBox "Es gibt schon eine Tabelle mit diesem Namen"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen