Tabellen per Makro umbenennen

Hallo liebes Exelforum!
Habe wieder mal ein Problem, bei welchen ich eventuell Eure Hilfe benötigen würde.
Ich habe 140 kleine Tabellen, die brauche um eine dynamische Dropdownliste zu betreiben. Es müssen aber die Tabellen als Tabellennamen genau den Namen haben, die der jeweilige Vertreter hat. Also Kopf = Tabellename statt Tabelle 1, Tabelle 2 usw..
Mit dem Makrorecorder habe ich jetzt folgendes aufgezeichnet


Range("G2:G13").Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$G$2:$G$13"), , xlYes).Name = _
"Tabelle1"
Range("Tabelle1[[#All],[DB]]").Select
ActiveSheet.ListObjects("DB").Name = "DB"
Range("H21").Select

Nun würde ich gerne den Range Bereich in H17 eingeben, den Tabellennamen in H18, den neuen neuen Tagellennamen in H19. Ich habe schon mit


Dim strDatei As String, strTabelle As String, strRange As String

herum experimentiert. Aber leider ohne Erfolg.
Es ist mir auch wichtig, da damit dann andere auch umgehen sollen, welche nicht in Makros rum gurken sollten.
Für Eure Hilfe wäre ich sehr dankbar.
LG Robert

Hallo Karin!
Ich habe jetzt folgendes >Makro zusammengebastelt. Das Formatiert mir zwar die Vorhanden Auflistung als Tabelle aber die Umbennenung geht nicht.


Sub Umbenennen()
Dim strDatei As String, strTabelle As String, strRange As String
strDatei = Range("H17")
strTabelle = Range("H18")
strRange = Range("H19")
Range(strRange).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range(strRange), , xlYes).Name = _
"strTabelle"
Range("strTabelle[[#All],[strDatei]]").Select
ActiveSheet.ListObjects("strDatei").Name = "strDatei"
Range("H21").Select
End Sub

str Datei in diesem Falle der neue Tabellenname, str.Tabelle Tabelle alt im Tabellentool also Tabelle 1 oder 2 usw. und strRange = Tabellenbereich als zB. L3:L9. Der Sinn der Übung ist, das aus der Tabelle 1 die Edeka, aus Tabelle 2 Bepo ussw. wird. Hoffe Du verstehst es wie ich es meinen. Und kannst mir noch mal helfen.


ActiveSheet.ListObjects.Add(xlSrcRange, Range(strRange), , xlYes).Name = _
"strTabelle"

an dieser stelle erfolgt die Fehlermeldung, eine Tabelle kann keine andere überlappen.
Danke für Deine Mühe.
LG Robert

Forumthread: Tabellen per Makro umbenennen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial