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

VBA: Intelligente Tabelle kopieren

Forumthread: VBA: Intelligente Tabelle kopieren

VBA: Intelligente Tabelle kopieren
29.01.2021 12:23:54
Leo
Hallo,
ich habe leider folgendes Problem
Ich möchte die Spalte einer Intelligenten Tabelle mit seinem Namen ansprechen (keinem Index)
um es in ein anderes Tabellenblatt zu kopieren.
Wie mach ich das
Sheets("Auswahl").Range("A1:F15").Value = Sheets("MP2").ListObjects(1).DataBodyRange.Value
So kopier ich die ganze Tabelle rein.
Ich möchte jedoch nur die eine Spalte auf dem MP2 Blatt mit dem Namen Korrektur
in die Spalte D1-D15 in das Blatt Auswahl kopieren.
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Intelligente Tabelle kopieren
29.01.2021 12:33:30
ralf_b
Sheets("MP2").ListObjects(1).Listcolumns("xy").DataBodyRange.Value
AW: VBA: Intelligente Tabelle kopieren
29.01.2021 12:59:08
Leo
Hey,
weißt du eventuell auch
ob es so klappt
Sheets("Auswahl ").ListObjects("Tabelle5").ListColumns("Korrektur").DataBodyRange.Value = Sheets("MP2").ListObjects("Tabelle02").ListColumns("H280").DataBodyRange.Value
Ich bekomm immer eine Fehlermeldung : " Index außerhalb des definierten Bereichs"
Anzeige
AW: VBA: Intelligente Tabelle kopieren
29.01.2021 13:08:00
ralf_b
1. https://www.thespreadsheetguru.com/blog/2014/6/20/the-vba-guide-to-listobject-excel-tables
2. der Fehler deutet auf einen Unterschied der Datenbereiche hin. oder so ähnlich.
lass das Value weg und schaue ob du das Range oder cells objekt in der Listcolumn oder der databodyrange zur Verfügung gestellt bekommst. Punkt hinter object. Intellisense gibt dir an was du zur Verfügung hast.
Aber ich probiere da auch nur rum.
gruß
rb
Anzeige
AW: VBA: Intelligente Tabelle kopieren
29.01.2021 14:45:48
Leo
Hey bin und bleibe Leo:)
Also Danke erstmal
aber ich komm nicht weiter deshalb mein anderer Post.
Ich hab viele Varianten versucht jedoch bekomme ich fast immer die selbe Fehlermeldung.
Muss ein Makro fertigstellen bis Montag und brauche dringend Hilfe.
Ps.: Dachte Mädchen werden eventuell eher geholfen
Anzeige
Sheets("Auswahl ")
29.01.2021 14:44:21
RPP63
Oben hieß das Blatt noch Sheets("Auswahl") und nicht Sheets("Auswahl ")
;

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Anzeige
per VBA in bestimmte Tabellennamen kopieren
Nibio

Liebe Profis,
ich bin in der Lage per VBA Zellen aus aktive Tabelle in alle Tabellenblätter zu kopieren. Aber ich kann nicht, in Tabellenblätter zu kopieren die mit "Stat" als Tabellenname beginnen, z.B "Stat112, 2Stat125" usw.. Könnte mir vielleicht jemand helfen?
Z.B, kopiere bereich...
29.01.2013 02:09:43
Thread-ID: 1296439
9 Beiträge
Mit VBA Werte aus Tabellen auf übersicht kopieren
BlueJay

Guten Morgen zusammen,
habe da mal wieder eine Frage - villeicht hat ja einer von euch eine solche Lösung schon mal bearbeitet und hat noch einen Code rumliegen den ich mir schnell anpassen könnte?
Und zwar möchte ich gerne auf einer Übesichtstabelle (erste Tabelle) in der Arbeitsmappe,...
26.03.2013 09:03:33
Thread-ID: 1306002
7 Beiträge
VBA-Code Tabelle kopieren, ...
Martin

Hallo VBA-Profis,
ich möchte ein Makro mit folgenden Bedingungen erstellen: 'BESCHREIBUNG: '1. Prüfung, ob Werte in Spieler!D2:D15 stehen. ' a. wenn ja: GoTo 2. ' b. wenn nein: MessageBox: "Keine Spieler ausgewählt!"; Zelle Spieler!D2 markieren; GoTo _ Ende '2. Prüfung, ob Tabellenb...
17.04.2013 09:11:00
Thread-ID: 1309137
10 Beiträge
VBA: Durch Buttonklick Werte von Tabellen kopieren
Tabellen

Hallo zusammen,
meine Datei nähert sich immer mehr dem Ziel, doch nun fehlt mir noch ein finaler Schritt. Nachdem bereits der Zellinhalt aus einer vorhandenen Tabelle problemlos in eine andere kopiert wird (durch Buttonklick), soll nun der Zellinhalt einer weiteren Tabelle kopiert werden. I...
16.07.2013 19:08:55
Thread-ID: 1322807
3 Beiträge
Anzeige
VBA Tabellenblatt erkennen und kopieren
Tanja
Hallo Zusammen,
für mich das erste Mal in einem Forum zu schreiben, normal lese ich immer nur und ich tue mein Bestes mein Problem richtig zu erklären ;-)
Ich habe eine Datei, deren erstes Tabellenblatt aus mehreren Hundert Zeilen besteht. Jede Zeile gehört zu einem bestimmten Teilkonzern v...
06.10.2014 18:12:30
Thread-ID: 1385152
6 Beiträge
VBA Seite in Tabelle ansprechen
Müller

Hallo.
Ich habe ein Skript, welches mir meine Daten in Datenpaare trennt und dann per pagesetup an die Seitengröße anpasst.
Nun habe ich das Problem, dass die Daten teilweise so getrennt werden, dass ein Teil auf Seite 1 steht und der andere Teil in der ersten Zeile der Seite 2.
Gib...
09.04.2015 13:00:40
Thread-ID: 1419902
3 Beiträge
VBA neues Tabellenblatt per Button kopieren.
Matthias

Hallo Profis.
Ich habe da ein großes Problem.
Ich habe eine Tabelle mit Daten drin die jeden Tag per Button mit einen Makro kopiert werden soll. Das Problem dabei ist, das nur ausgewählte Zeilen kopiert werden sollen.
Die Tabelle sieht so aus:
https://www.herber.de/bbs/user/9752...
07.05.2015 16:55:19
Thread-ID: 1425270
5 Beiträge
Anzeige
VBA neues Tabellenblatt per Button kopieren.
Matthias
Hallo Profis.
Ich habe da ein großes Problem.
Ich habe eine Tabelle mit Daten drin die jeden Tag per Button mit einen Makro kopiert werden soll. Das Problem dabei ist, das nur ausgewählte Zeilen kopiert werden sollen.
Die Tabelle sieht so aus:
https://www.herber.de/bbs/user/97520.xl...
07.05.2015 16:55:19
Thread-ID: 1425271
2 Beiträge
Anzeige
VBA tabellenblätter temporär kopieren und zusammen
mscalimero

Hallo zusammen,
bin kein Experte in VBA aber konnte bis jetzt immer meine "Projekte" mit Codes aus dem Internet umsetzen. Scheitere aber jetzt an folgender Umsetzung.
Hintergrund: In einer Excel Arbeitsmappe habe ich für die Produktion Makrobutton`s mit Druckaufträgen von Kontrollkarten...
28.12.2015 10:09:17
Thread-ID: 1466170
4 Beiträge
VBA Tabelle kopieren von Zeile bis Zeile
Zeile

Hallo.
Ich bin absoluter Neuling auf dem Gebiet Makros und VBA.
Ich möchte gerne mittels Makro Werte aus Tabelle1 in Tabelle2 kopieren.
Es sollen alle Spalten einer Zeile übernommen werden. In Tabelle1 beginnen die Werte in Zeile 2 und diese sollen auch in die zweite Zeile in Tabell...
11.01.2016 11:34:17
Thread-ID: 1468130
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

VBA für das Kopieren von Daten aus einer intelligenten Tabelle

Schritt-für-Schritt-Anleitung

Um eine Spalte aus einer intelligenten Tabelle in ein anderes Blatt zu kopieren, kannst du die folgenden Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" > Einfügen > Modul.

  3. Gib den folgenden Code ein:

    Sub KopiereIntelligenteTabelle()
   Dim wsQuell As Worksheet
   Dim wsZiel As Worksheet
   Dim spalte As ListColumn

   Set wsQuell = Sheets("MP2")
   Set wsZiel = Sheets("Auswahl")

   ' Ansprechen der intelligenten Tabelle
   Set spalte = wsQuell.ListObjects("Tabelle02").ListColumns("Korrektur")

   ' Kopieren der Daten in die Zielspalte
   wsZiel.Range("D1").Resize(spalte.DataBodyRange.Rows.Count, 1).Value = spalte.DataBodyRange.Value
End Sub

  4. Führe das Makro aus: Drücke F5 oder klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehlermeldung: "Index außerhalb des definierten Bereichs"
    Diese Fehlermeldung tritt häufig auf, wenn der Name der Tabelle oder der Spalte nicht korrekt ist. Stelle sicher, dass du die richtigen Namen verwendest.

  • Whitespace im Blattnamen
    Achte darauf, dass der Blattname genau übereinstimmt, auch Leerzeichen können Probleme verursachen. Beispielsweise sollte Sheets("Auswahl") nicht Sheets("Auswahl ") sein.

  • Fehler bei der Verwendung von .Value
    Wenn du .Value verwendest, kann der Code manchmal nicht das richtige Objekt ansprechen. Versuche, .Range oder .Cells zu verwenden, um auf die Daten zuzugreifen.

Alternative Methoden

Eine alternative Methode zum Kopieren aus einer intelligenten Tabelle könnte die Verwendung von Copy und PasteSpecial sein. Hier ein Beispiel:

Sub KopiereMitPasteSpecial()
    Dim wsQuell As Worksheet
    Dim wsZiel As Worksheet

    Set wsQuell = Sheets("MP2")
    Set wsZiel = Sheets("Auswahl")

    ' Kopiere die Spalte
    wsQuell.ListObjects("Tabelle02").ListColumns("Korrektur").DataBodyRange.Copy
    wsZiel.Range("D1").PasteSpecial Paste:=xlPasteValues
End Sub

Praktische Beispiele

  • Kopieren einer Spalte mit VBA:
    Du kannst den Code anpassen, um verschiedene Spalten zu kopieren, indem du einfach den Namen der Spalte in ListColumns("Spaltenname") änderst.

  • Dynamisches Kopieren:
    Um die Spalte dynamisch zu kopieren, könntest du eine InputBox verwenden, um den Spaltennamen zur Laufzeit abzufragen.

Sub DynamischesKopieren()
    Dim wsQuell As Worksheet
    Dim wsZiel As Worksheet
    Dim spaltenname As String
    Dim spalte As ListColumn

    Set wsQuell = Sheets("MP2")
    Set wsZiel = Sheets("Auswahl")

    spaltenname = InputBox("Bitte gib den Namen der Spalte ein:")
    Set spalte = wsQuell.ListObjects("Tabelle02").ListColumns(spaltenname)

    wsZiel.Range("D1").Resize(spalte.DataBodyRange.Rows.Count, 1).Value = spalte.DataBodyRange.Value
End Sub

Tipps für Profis

  • Verwende databodyrange: Nutze die DataBodyRange, um nur die Daten ohne Überschriften zu kopieren. Dies ist besonders nützlich, wenn du nur die Werte benötigst.

  • Fehlersuche mit Intellisense: Wenn du mit VBA arbeitest, nutze Intellisense, um sicherzustellen, dass du die richtigen Methoden und Eigenschaften verwendest. Dies hilft, häufige Fehler zu vermeiden.

  • Dokumentation: Halte dich an die offizielle Microsoft-Dokumentation für ListObjects und ListColumns, um die Funktionen besser zu verstehen.

FAQ: Häufige Fragen

1. Wie spreche ich eine intelligente Tabelle in VBA an?
Du kannst eine intelligente Tabelle mit Sheets("DeinBlatt").ListObjects("DeinTabellenname") ansprechen.

2. Was ist der Unterschied zwischen .Value und .DataBodyRange?
.Value gibt dir die Werte der Zellen zurück, während .DataBodyRange den Bereich der Daten in der Tabelle darstellt.

Beliebteste Forumthreads (12 Monate)

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