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