Tabellenspaltenüberschriften per Makrop
24.11.2021 19:53:12
Robert
Ich brauche mal wieder Eure Hilfe. Ich möchte per Makro Tabellen erstellen und der jeweiligen Spalte einen entsprechenden Namen geben der in einer bestimmten Zelle steht und von dort übernommen werden soll.
Sub Umbeneneinzeln()
Dim strDatei As String, strTabelle As String, strRange As String
strDatei = Range("A26")
strTabelle = Range("A27")
strRange = Range("A28")
Range(strRange).Select
ActiveSheet.ListObjects.Add(xlSrcRange, Range(strRange), , xlYes).Name = _
"strTabelle"
ActiveSheet.ListObjects(Range("A26").Value).Name = Range("A27").Value
End Sub
Habe eine Beispieldatei erstellt. Hoffe Ihr könnt mir helfen.
LG Robert
https://www.herber.de/bbs/user/149377.xlsm