26.07.2016, 13:58
Hallo,
ich möchte mit folgendem Code bei Änderung einer Zelle den Namen der intelligenten Tabelle in diesem Tabellenblatt ändern.
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.
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
Wie kann ich zuvor den aktuellen Namen der intelligenten Tabelle auslesen und als Variable definieren?
In diesem Tabellenblatt gibt es nur eine intelligente Tabelle.