Office: (Office 2019) Register automatisch aus Zelle benennen

Hallo,

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:

Code:

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 

Tatsächlich funktioniert dies genau einmal.. ändere ich etwas in der externen Tabelle 'Datenblatt', wird diese Änderung nicht übernommen.

Es ist auch egal, ob ich die externe Tabelle offen habe oder nicht

Ich glaub, das Problem liegt daran, dass A1 dynamisch von einem anderen Tabellenblatt gezogen wird, richtig?

Wie müsste das VBA aussehen, damit das klappt?

Vielen Dank für Eure Mühe

Gruß

 

Beachte auch Regeln 2 Zu Crossposting.
Ich bin raus in beiden Foren, da ich Crossposting ablehne.

 

Das siehst du richtig - um auf die Änderung eines Formelergebnisses zu reagieren benötigst du das Calculate-Ereignis.

---

 

@Hajo_Zi
Crossposting entsteht oft dann, wenn man an Stell A keine Hilfe bekommt.. leider hat man dann keine Wahl, als es woanders zu versuchen... versetz Dich in Deinen Gegenüber, der nicht über Dein Wissen verfügt und Hilfe benötigt.

@Beverly
Leider bin ich ein absoluter VBA-Noob.. ich versuche die Hintergründe zu verstehen, aber es fällt mir nicht wirklich leicht, zu erkennen, was was bedeutet.

Auf der anderen Seite muss ich das Problem lösen

Ganz ehrlich und direkt... kannst Du mir ein solches Script schreiben und mir beschreiben, wohin das kommt?

Gruß und Dank

 

Hi,

ich kann das nicht testen weil mir deine Mappe nicht vorliegt, aber versuche es einfach mal damit:

Code:

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Application.Calculate
End Sub

---

 

Hi Beverly,

ich habe das in die Tabelle geschrieben (VBA).. klappt so nicht.. bestimmt versteh ich das nicht

Anbei mal ein verkürztes Muster.. Du hast Recht... ohne ist esschwieriger ;)

Daaanke :)

 

Hi,

der Code gehört ins Codemodul DieseArbeitsmappe.

---

 

Hi,
hatte ich auch versucht.. siehe Anhang
Das Register wird nicht umbenannt...
Oder wo hab ich den Denkfehler?

 

Hi,

ich habe deine Problem falsch verstanden - ich dachte du meinst, dass nur die Änderung des Formelergebnisses nicht richtig funktioniert.
Ich empfehle dir jedoch generell eine andere Vorgehensweise: benutze das Change-Ereignis deiner Mappe "- BasisDatenblatt -", denn sonst kannst du den Blattnamen nicht zurücksetzen auf den Ausgangsnamen, falls er bereits existiert.

---