Intelligente Tabelle benennen

[herbert0803]

Hallo,

ich möchte mit folgendem Code bei Änderung einer Zelle den Namen der intelligenten Tabelle in diesem Tabellenblatt ändern.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$D$1" Then
ActiveSheet.ListObjects("Tabelle1").Name = "Test" & Range("D1").Value
End If
End Sub

Ich habe aber natürlich das Problem, wenn ich die Zelle D1 wieder ändere, hat sich auch der Tabellenname geändert und dann passt der Befehl "ActiveSheet.ListObjects("Tabelle1").Name" bei der nächsten Änderung nicht mehr.

Wie kann ich zuvor den aktuellen Namen der intelligenten Tabelle auslesen und als Variable definieren?

In diesem Tabellenblatt gibt es nur eine intelligente Tabelle.

[Ego]

Hallo Herbert,

eine simple Lösung wäre doch nach dem Umbenennen den neuen Namen zu speichern. Das ist dann auch unabhängig von irgendeiner Anzahl.

[herbert0803]

Hallo nochmal,

ich habe noch weiter gesucht und folgende Variante probiert.
Funktioniert soweit.

Code:

ActiveSheet.ListObjects(1).Name = "Test" & Range("D1").Value

Da ich nur eine intelligente Tabelle pro Tabellenblatt habe, habe ich statt dem Namen nur eine 1 gesetzt.

Stimmt meine Annahme bzw. welche Probleme könnte ich bekommen?

[herbert0803]

Hallo Herbert,

eine simple Lösung wäre doch nach dem Umbenennen den neuen Namen zu speichern. Das ist dann auch unabhängig von irgendeiner Anzahl.

Hallo Helmut,

unsere Beiträge haben sich überschnitten,

wie würde das aussehen, ich stehe da irgendwie auf der Leitung.

[Ego]

Hallo,

den neuen Namen zB in einer Zelle ablegen und vor dem Ändern den dann alten Namen aus dieser Zelle lesen.

[herbert0803]

Hallo helmut

ich hab es so versucht. Schaut zwar irgendwie komisch aus, aber funktioniert.

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Listname As String
Listname = Range("O1").Value
If Target.Address = "$D$1" Then
ActiveSheet.ListObjects(Listname).Name = "Test" & Range("D1").Value
Range("O1").Value = "Test" & Range("D1").Value
End If
End Sub