Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten Einfügen Listobject

Forumthread: Daten Einfügen Listobject

Daten Einfügen Listobject
26.05.2024 17:22:46
Stefe
Hallo liebe Excel Gemeinde,

bräuchte eure hilfe bei einem Makro (Tbl_zusammenführen) das aus allen Blättern außer BL3 und Übersicht das jeweilige listobject (es gibt immer nur eins auf jedem Blatt)
im Blatt Übersicht in einem leeren Listobject zusammenführt (untereinander geschrieben) wird.

Wenn das Makro ausgeführt wird soll zunächst im Blatt Übersicht der Datenbereich des Listobjects gelöscht werden.
Anschließend soll wieder Befüllt werden.

Mein Code Funktioniert zwar aber nur sehr umständlich mit If anweisungen.
Wie könnte man es besser umsetzen?


Bsp.Datei:
https://www.herber.de/bbs/user/169720.xlsm

mfg Stefe
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten Einfügen Listobject
26.05.2024 19:44:43
ralf_b 
Sub Tbl_zusammenführen()



    Dim Sh As Worksheet, lstObjAlle As ListObject, lstRow As ListRow, arrtmp

   

    Set lstObjAlle = Worksheets("Übersicht").ListObjects(1)

    If lstObjAlle Is Nothing Then Exit Sub

    

    If Not lstObjAlle.DataBodyRange Is Nothing Then lstObjAlle.DataBodyRange.Delete

    Application.ScreenUpdating = False

    Application.Calculation = xlCalculationManual

    

    For Each Sh In Worksheets

       

        Select Case Sh.Name

            

            Case "Übersicht", "BL3" ' Auslassen

            

            Case Else

                If Not Sh.ListObjects(1).DataBodyRange Is Nothing Then

                   With lstObjAlle.ListRows.Add

                     arrtmp = Sh.ListObjects(1).DataBodyRange

                    .Range(1).Resize(UBound(arrtmp), UBound(arrtmp, 2)) = arrtmp

                   End With

                End If

               

        End Select

    

    Next Sh

    

    Application.Calculation = xlCalculationAutomatic

    Application.ScreenUpdating = True



End Sub
Anzeige
AW: Daten Einfügen Listobject
27.05.2024 13:30:30
Stefe
Danke ralf_b, Funktioniert.
Was bedeutet eigentlich die 2 bei Arrtmp?

MfG Stefe
AW: Daten Einfügen Listobject
27.05.2024 14:33:50
ralf_b
das ist die andere dimension. einmal Zeilen zählen, dann Spalten zählen.
AW: Wäre dann...
27.05.2024 13:32:26
Stefe
Danke Case, ist auch ne gute Lösung.

MfG Stefe
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige