Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Tabellenblatt automatisch nach Zelle mit Formel benennen

12 views
Skip to first unread message

Christin Süß

unread,
Jan 20, 2022, 4:39:13 AM1/20/22
to
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.

Ich habe dazu diesen Code benutzt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name = Target Then
MsgBox "Dieser Name existiert bereits"
Exit Sub
End If
Next
ActiveSheet.Name = Target
End Sub

Wie lautet der Code, wenn die Zielzelle eine Formel enthält?

Vielen Dank schon mal

Jörg Eisenträger

unread,
Jan 20, 2022, 11:04:53 AM1/20/22
to
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

0 new messages