Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA - Überschriften von Tabelle in andere Tabelle übertragen

Forumthread: VBA - Überschriften von Tabelle in andere Tabelle übertragen

VBA - Überschriften von Tabelle in andere Tabelle übertragen
20.04.2024 19:12:41
JoshExcel
Hallo zusammen,

ich stehe mal wieder vor einem kleinen oder besser gesagt vor 2 kleinen VBA Problemen in Excel.

Problem 1 :
Ich habe 2 intelligente Tabellen : "TabelleSammlung" und "TabelleGrundwerte".
In der TabelleSammlung sollen die Überschriften der TabelleGrundwerte ab der 3. Spalte automatisch aufgelistet werden.
Wenn man eine zusätzliche Spalte an TabelleGrundwerte dran macht (zum Beispiel "Test 4") soll dieser automatisch in der TabelleSammlung hinzugefügt werden.
Ist dies überhaupt möglich per VBA und wenn ja wie? Meine VBA-Kenntnisse sagen mir nur, dass dies in dem Change-Event stattfinden muss.

Problem 2 :
Wie kann ich mir die einzelnen Zelleninhalte der TabelleSammlung in einer MsgBox getrennt durch ein Semikolen ( ";" ) auflisten/anzeigen lassen?
In diesem Beispiel wäre der Text in der MsgBox "Test1; Test 2; Test3".

Es wäre super, wenn ihr mir helfen könnt mit dem VBA-Code!?!

Gruß
Josh

Beispieldatei :
https://www.herber.de/bbs/user/168882.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Überschriften von Tabelle in andere Tabelle übertragen
20.04.2024 20:57:01
JoshExcel
Danke für die schnelle Antwort, aber es funktioniert auch per PQ nicht - habe es mit deiner Datei probiert und leider wird die nächste Spalte die dran gemacht wird, nicht aufgelistet.
PQ würde mir aber auch so nicht helfen, da ich sowieso es dann weiter mit VBA verarbeiten werden.

Würde mich sehr freuen, wenn ihr meine 2 Probleme lösen könntet per VBA.
Anzeige
AW: VBA - Überschriften von Tabelle in andere Tabelle übertragen
20.04.2024 21:22:43
Eifeljoi 5
Hallo

Was funktioniert nicht?
Wenn es nicht klappt hast du es nicht getestet.
Bei mir klappt es zu 100%
Erweitere deine Tabelle nach rechts, einfach nur ziehen dann erscheint bei mir automatisch "Test 5" und abschließend PQ aktualisieren.
AW: VBA - Überschriften von Tabelle in andere Tabelle übertragen
21.04.2024 11:23:10
ralf_b
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, ListObjects("TabelleGrundwerte").HeaderRowRange) Is Nothing Then
Dim arr
With ListObjects("TabelleGrundwerte").HeaderRowRange
arr = Application.Transpose(.Resize(1, .Count - 2).Offset(, 2))
End With
Application.EnableEvents = False
ListObjects("TabelleSammlung").ListColumns(1).DataBodyRange.Cells(1).Resize(UBound(arr)) = arr
Application.EnableEvents = True
End If
End Sub
Anzeige
AW: VBA - Überschriften von Tabelle in andere Tabelle übertragen
21.04.2024 20:23:29
JoshExcel
Vielen Dank für die Hilfe @ralf_b . So funktioniert es, wie ich es mir vorstelle.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige