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

intelligente Tabelle / Makro kopiert an falsche Stelle

Forumthread: intelligente Tabelle / Makro kopiert an falsche Stelle

intelligente Tabelle / Makro kopiert an falsche Stelle
08.03.2025 21:16:36
Christian
Hallo,

ich bitte mal kurz um eure Hilfe.
Ich habe ein Blatt namens Ergebnis, welches zu Beginn meines Makros bis einschließlich Zeile 682 gefüllt ist.

Als es noch keine intelligente Tabelle war, hat der Code 

wsErgebnis.Range("A" & wsErgebnis.Cells(wsErgebnis.Rows.Count, "A").End(xlUp).Row + 1).Resize(letzteZeileMitTT, 1).Value = wsCodes.Range("D1:D" & letzteZeileMitTT).Value

    wsErgebnis.Range("D" & wsErgebnis.Cells(wsErgebnis.Rows.Count, "D").End(xlUp).Row + 1).Resize(letzteZeileMitTT, 1).Value = wsCodes.Range("F1:F" & letzteZeileMitTT).Value


beide Bereiche ab Zeile 683 eingefügt. Seit es aber eine intelligente Tabelle ist, erweitert sich diese mit dem Einfügen des ersten Bereichs und die beiden Bereiche werden in nachfolgenden Zeilen, anstatt wie vorher in denselben eingefügt. Hat da jemand eine Idee wie ich das ungehen könnte? Das mit der int. Tab. würd ich schon gerne beibehalten.

Danke
Christian
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
08.03.2025 21:33:55
Alwin Weisangler
Hallo,

so was macht man besser mit der Codierung via Listobjects(). Dann ist es egal wo sich dieses Listobjekt (intelligente Tabelle) auf dem Tabellenblatt befindet.
Aber ohne Beispieldatei kann man da nicht viel mehr weiterhelfen.

Gruß Uwe
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
08.03.2025 21:45:21
Christian
Hallo Uwe,

danke für den Tipp,
ich glaube ich weiß, was du meinst, ich probiere erstmal selber mein Glück und melde mich wenn ich nicht weiterkomme.

Danke
Christian
Anzeige
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
09.03.2025 19:06:57
Christian
Hallo Uwe,

hab es jetzt auf folgendem Weg gelöst, funktioniert, aber dauert auch recht lange... 

    Set loErgebnis = wsErgebnis.ListObjects("Tabelle6")

    arrD = wsCodes.Range("D1:D" & letzteZeileMitTT).Value

    arrF = wsCodes.Range("F1:F" & letzteZeileMitTT).Value



    For j = LBound(arrD, 1) To UBound(arrD, 1)

        With loErgebnis.ListRows.Add

            .Range(1, 1).Value = arrD(j, 1) ' Spalte A in Tabelle6

            .Range(1, 4).Value = arrF(j, 1) ' Spalte D in Tabelle6

        End With

    Next j
Anzeige
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
09.03.2025 21:09:55
Uduuh
Hallo,
Aber ohne Beispieldatei kann man da nicht viel mehr weiterhelfen.
Was ist daran so schwer zu verstehen?

Gruß aus'm Pott
Udo
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
09.03.2025 21:23:07
Christian
Hallo Uwe,

ich hatte das schon verstanden.
Mach nur mal aus einer 27,8 MB großen Datei eine die mal nur noch 300KB hat und trotzdem noch alles beinhaltet, was das Makro braucht.
Bin dabei, aber ich bin kein Profi wie du, für mich bedeutet das testen, testen und nochmal testen ob nicht doch was fehlt oder nicht funktioniert.
Bin jetzt zumindest mal froh, schonmal das eigentliche Problem gelöst zu haben, auch wenn meine Lösung etwas dauert.

Gruß
Christian
Anzeige
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
09.03.2025 21:35:08
Alwin Weisangler
Hallo Christian,

das ist doch logisch, wenn du jede Zelle einzeln da über eine Schleife reinschreibst. Die macht man On Block via .Resize.
Pseudocode: 


    Set loErgebnis = wsErgebnis.ListObjects("Tabelle6")

    arrD = wsCodes.Range("D1:D" & letzteZeileMitTT).Value

    arrF = wsCodes.Range("F1:F" & letzteZeileMitTT).Value



    With loErgebnis.ListRows.Add

        .Range(1, 1).Resize(UBound(arrD), 1) = arrD

        .Range(1, 4).Resize(UBound(arrF), 1) = arrD

    End With


Gruß Uwe
Anzeige
AW: intelligente Tabelle / Makro kopiert an falsche Stelle
09.03.2025 21:49:14
Christian
Hallo Uwe,

ich muss mir wohl nochmal genauer anschauen, wie das mit den ListObjects funktioniert.
Ich war froh, mit der Schleife zumindest eine funktionierende Lösung gefunden zu haben.

Zu deinem Code, für einen Pseudocode, der nicht getestet werden konnte, sehr gut.
Ok, ein Buchstabe war falsch, aber das habe ich schnell korrigiert.

Auf jeden Fall vielen Dank und noch einen schönen Sonntag.
Christian
Anzeige

Forumthreads zu verwandten Themen

Vorletzte Listobject-Zeile vor Einfügen neuer Zeile ändern
FranziskusV
Hallo,

Ich brauche mal wieder Hilfe.

Jetzt kommt der Kontext zu meinem Problem :
Über folgenden Code füge ich über eine Schaltfläche eine Blattzeile ein. Diese Blattzeile wird so eingefügt, dass damit auch automatisch eine Intelligente Tabelle (Listobject mit Name= "TbMonatli...
03.02.2024 16:57:26
Thread-ID: 1963378
2 Beiträge
Bedingte Formatierung bei Einfügen Zeile in ListObject
FranziskusV
Hallo,
Ich bin leider kein Held mit VBA, daher würde ich mich über Hilfe freuen.
Ich füge über folgenden Code in eine intelligente Tabelle eine weitere Zeile ein. Ich möchte gerne hierbei auch die bedingte Formatierung der darüber befindlichen Zeile übernehmen. Weiss jemand wie ich das anp...
30.01.2024 11:39:53
Thread-ID: 1962698
1 Beitrag
Anzeige
Relativer Zellbezug?
Jan

Hallo,
stellt Euch mal folgendes Szenario vor:
Ein VBA-Makro steuert Tabelle "Tabelle1" an und schreibt in die Spalten 1,2 und 3 jeder Zeile Daten. (Per Worksheets("Tabelle1").Cells(zeile,1)="..." etc)Nun soll in Tabelle 1 eine Spalte eingefügt werden (z.B. zwischen Spalte 1 und Spalte 2...
13.06.2002 16:37:42
Thread-ID: 128438
1 Beitrag
ListRows.Add stoppt unerklätrlicherweise nach erstem Wert
StefanEgg
Moin moin zusammen,

ich muss vorab klarstellen, dass ich im Bereich VBA eher ein schlichter Amatuer bin, der sich bereits an vielen Dingen ausprobiert hat und bis dato mit der Hilfe von Google, Youtube, oder aber auch diesem Forum hier immer irgendwie an sein Ziel gekommen ist (mal mehr und...
30.01.2024 09:30:55
Thread-ID: 1962683
9 Beiträge
Zeile kopieren + einfügen
Sabine
Hallo liebe hilfsbereite Mitmenschen,
ich bins wieder mit meinem VBA-Versuch, der mal wieder gescheitert ist mit Fehler 400. :-(
Folgendes ist das Ziel:
Das Makro soll schauen, bis wohin die Tabelle, welche mit einer DB verknüpft ist, geht. (Tabelle geht Spalte A bis J)
Erkennt er, d...
08.03.2022 17:34:04
Thread-ID: 1874362
5 Beiträge
Anzeige
Quelldaten filtern und in anderem Tabellenblatt einfügen
frank64
Gruß an alle.
Ich habe ein Problem mit meinem VBA Programm.
Grundlage: Ein Tabellenblatt mit all meine Musikstücken, Noten Beispiele etc. zusammengefasst in einer Intelligenten Tabelle mit 7 Spalten. Die Siebte Spalte hat ein Datumsformat. Insgesamt sind in dem Tabellenblatt "Alle" z.Z. 370...
01.04.2024 19:24:57
Thread-ID: 1971948
6 Beiträge
Übernahme der Werte aus grün gefärbten Zellen
Lara835
Hallo! :) Ich möchte folgende Funktion umsetzen:

Es gibt eine Master-Datei und eine Input-Datei. Die Master-Datei enthält mehr Spalten als die Input-Datei. Ich habe aus der Tabelle in der Master-Datei eine intelligente Tabelle gemacht und in der Input-Datei diese Datei abgerufen (via Daten...
12.05.2025 18:53:00
Thread-ID: 2012451
5 Beiträge
Mit VGA in Intelligente Tablle Überschrift finden
DerUschi
Nach dem das heute morgen schon so toll mit den Antworten von euch Profis geklappt hat, habe ich wieder eine neue Frage.

Ich nutze Diesen VGA Befehl, um mir ein Textfeld nach einer Zelle aus einer Tabelle zu benennen:
Me.Parameter01L.Caption = .DataBodyRange(Zeile, 2)

Wobei ich...
01.05.2024 16:07:28
Thread-ID: 1976197
11 Beiträge
Ebay erste Suchseite auslesen - @Hirtenanna
Zwenn

Hallo Hirtenanna,
ich hoffe Du schaust hier noch rein. Jetzt hat es ja doch etwas gedauert, bis ich meine Zusage umgesetzt habe.
Dafür bekommst Du aber eine Out-of-the-box-Lösung, weil ich die Gelegenheit, die Suchseite genau unter die Lupe zu nehmen einerseits für eigene Zwecke genutzt...
28.02.2019 16:53:58
Thread-ID: 1678466
8 Beiträge
dynamisches Diagramm mit unabhängigen Zeilen
Werner

Hallo miteinander,
ich versuche mich gerade an einer Diagrammauswertung per VBA, die von den Zeilen unabhängig ist.
Prinzipiell klappt das auch schon mal ganz gut.
Ich habe einmal eine Beispieldatei hochgeladen:
https://www.herber.de/bbs/user/74338.xls
Alle wichtigen Infos...
11.04.2011 16:41:06
Thread-ID: 1209881
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum