Excel-Tabellen umbenennen mit VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Diese Begriffe sollen in den Zeilen B3 bis I3 als eingefügt werden (nebeneinander über Inahlte einfügen: transponieren). Unter B3, C3, D3, E3 etc. befinden sich jeweils weitere Begriffe, die hier unbedeutend sind, aber die die Tabelle ausmachen. Also Beispielsweise die erstellte Tabelle in B3 sieht wie folgt aus:
B3 FBG (=Tabellenüberschrift aus G48)
B4 Schritt 1
B5 Schritt 2
B6 Schritt 3
So sieht jede Tabelle aus nur mit anderen Übreschriften - diese sollen wie folgt zugeordnet werden. Der Begriff auf G48 muss in B3, G49 in C3, G50 in D3 usw.
Das ist per Makro aus kein Problem. Aber die Tabelle in Spalte B hat momentan die Überschrift "FBG" (B3) und den Tabellennamen "FBG", beides stammt aus G48. Wenn jetzt in G48 "Optik" eingetragen wird, soll in B3 als Überschrift Optik eingetragen werden UND der Tabellennamen auch von FBG in "Optik" geändert werden und genau das stellt mein Problem dar..
wie kann ich die einzelnen Tabellen als Variablen ansprechen und ihr Tabellenname dann gemäß den Bezeichnungen in Spalte G ändern?

Mein Code:
Problem: er funktioniert nicht und zudem spricht er die Tabellen als FBG, Kabel etc. an und nicht als Variable..

Sub Go()
' Makro benennt Tabellenüberschriften in Info um gemäß der eingegebenen Arbeitspakete. Die  _
Tabellennamen werden ebenfalls entsprechend ergänzt.
'Liste mit Arbeitspaket-Namen kopieren
Range("G48:G55").Select
Selection.Copy
'Bezeichnungen nebeneinander einfügen (B3:I3):
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Application.CutCopyMode = False
ActiveCell.Select
'Variablen definieren:
Dim AP1 As String
AP1 = Range("G48").Value
Dim AP2 As String
AP2 = Range("G49").Value
Dim AP3 As String
AP3 = Range("G50").Value
Dim AP4 As String
AP4 = Range("G51").Value
Dim AP5 As String
AP5 = Range("G52").Value
Dim AP6 As String
AP6 = Range("G53").Value
Dim AP7 As String
AP7 = Range("G54").Value
Dim AP8 As String
AP8 = Range("G55").Value
'Überschriften und im 2. Schritt Tabellennamen:
Range("B3").Value = AP1
ActiveSheet.ListObjects("FBG").Name = AP1
Range("C3").Value = AP2
ActiveSheet.ListObjects("Firmware").Name = AP2
Range("D3").Value = AP3
ActiveSheet.ListObjects("Kabel").Name = AP3
Range("E3").Value = AP4
ActiveSheet.ListObjects("Mechanik").Name = AP4
Range("G3").Value = AP6
ActiveSheet.ListObjects("Filter").Name = AP6
Range("H3").Value = AP7
ActiveSheet.ListObjects("Verkleidung").Name = AP7
Range("I3").Value = AP8
ActiveSheet.ListObjects("Kaufteil").Name = AP8
Range("F3").Value = AP5
ActiveSheet.ListObjects("Optik").Name = AP5
End Sub

Beliebteste Forumthreads (12 Monate)

Excel-Tabellen umbenennen mit VBA

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread