Automatische Änderung des Tabellennamen

[m.a.t.t.i.]

Hey ihr,

hab leider schon wieder ein Problem. Ich möchte in der 1. Tabelle durch Eingabe in einige Zellen die Namen anderer Tabellenblätter ändern.

So soll Beispielsweise in Zelle D10 "Europa" Stehen.
In der entsprechenden Tabelle steht in A1 "Tabelle1!D10".

Und ich verwende den Code (in der Tabelle die sich ändern soll):

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
    On Error Resume Next
    Me.Name = Target.Value
  End If
End Sub

So wie ichs gerade mache klappt es nicht. Gebe ich den Namen aber direkt in der Tabelle ins Feld A1 ein funktioniert es.
Hoffe mein Problem verständlich erklärt zu haben  

Vielen Dank schon mal,

Matti

[MisterBurns]

Hallo Matti,

Formelberechnung löst kein Worksheet_Change-Ereignis aus. Verwende zB Worksheet_Calculate.
Oder alternativ Worksheet_Activate.

[m.a.t.t.i.]

Hey,

das scheint meine Kenntnisse dann doch deutlich zu übersteigen....
dann eben doch Manuell...

Trotzdem Danke

[schauan]

Hallöchen,

aus

Private Sub Worksheet_Change(ByVal Target As Range)

dann

Private Sub Worksheet_Calculate()

zu machen erfordert aber keine großen Kenntnisse Du musst dann natürlich noch die Sache mit dem Target ändern, den gibt's bei Calculate nicht.


Ich würde aber stattdessen mal schauen, warum der Wert neu berechnet wird. Bestimmt wegen einer Eingabe anderswo (oder mehrerer Eingaben) Eventuell kannst Du das Change-Ereignis dort ansetzen.