On Thu, 20 Jan 2022 01:39:12 -0800 (PST), Christin Süß
<
christin...@gmail.com> wrote:
>Hallo in die Runde,
>
>ich würde gern ein Tabellenblatt automatisch nach einem Zellenwert benennen. Das funktioniert auch solange die Zelle keine Formel enthält.
>
Hallo Christin,
bei mir hat es so funktioniert:
'Die Formel in A1 laute =B1+C1
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Abbruch, wenn Zelle A1 und alle in der Formel
'vorkommenden Zellen NICHT geändert wurden.
If Target.Address <> Range("$A$1").Address And _
Target.Address <> Range("$B$1").Address And _
Target.Address <> Range("$C$1").Address _
Then
Exit Sub
End If
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = CStr(Range("$A$1").Value) Then
MsgBox "Dieser Name existiert bereits"
Exit Sub
End If
Next
ActiveSheet.Name = CStr(Range("$A$1").Value)
End Sub
Gruß
Jörg
--
Diese E-Mail wurde von Avast Antivirus-Software auf Viren geprüft.
https://www.avast.com/antivirus