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

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

Forumthread: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 21:09:11
JoshExcel
Hallo zusammen,

ich hoffe ihr könnt mir weiterhelfen!?
Ich versuche per VBA aus einer intelligenten/smarten Tabelle, welche 10 oder mehr Spalten hat, die ersten 4 Spalten in eine andere intelligenten/smarten Tabelle zukopieren.
Das zusätzliche Problem ist, dass nur die angezeigten Zeilen von der Tabelle kopiert werden sollen (wenn Filter gesetzte sind). Dies habe ich schon herausgefunden, dass man hierfür "xlCellTypeVisible" nutzen muss.

Aktuell sieht mein Code wie folgt aus : 



Option Explicit

Sub Kopieren()

Worksheets(1).ListObjects("TabelleKunden").ListColumns(2).DataBodyRange.SpecialCells(xlCellTypeVisible).Copy Destination:=Worksheets(2).ListObjects("TabelleAuswertung").ListColumns(1)

End Sub


Fehler = Laufzeitfehler 9

Könnt ihr mir bitte weiterhelfen mit einem funktionierenden Code?

Danke und bis bald
Josh
Anzeige
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 21:34:17
Onur
Dann poste eine Datei dazu.
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 21:35:55
JoshExcel
Die kann ich leider nicht posten, wegen Datenschutz.
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 22:00:01
Onur
Ich brauch nicht deine Daten, schreib einfach Micky Maus rein !
Ich schrieb "EINE Datei" und nicht "deine Datei".
Anzeige
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 22:32:49
JoshExcel
Habe eine Datei genommen, welche frei erhältlich war zum testen.
Es ist ein Filter gesetzt. nur die gefilterten Daten sollen kopiert werden in die 2. Tabelle auf dem 2. Sheet und auch nur die ersten 4 Spalten.

https://www.herber.de/bbs/user/168847.xlsm
Anzeige
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
19.04.2024 00:46:41
ralf_b
falls du die Listobjects= intelligenten Tabellen nutzen willst. 
Sub Makro2()

    Dim rng

    Set rng = Sheets("Tabelle1").Range("TabelleKunden[[Auftragsdatum]:[Artikelgruppe]]")

    Set rng = rng.SpecialCells(xlCellTypeVisible)

    With Sheets("Tabelle2").ListObjects(2)

        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete

        rng.Copy .Range(2, 1)

    End With

End Sub
Anzeige
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
19.04.2024 09:51:22
JoshExcel
Eure Codes funktionieren in der Beispieldatei einwandfrei.
Ich muss die Variante von @ralf_b verwenden. Grund ist, dass die intelligenten Tabellen nicht immer an der selben Stelle sind und ich somit nicht feste Zellen verwenden kann in dem vba-Code.

Ich habe den Code in meine original Exceldatei übertragen. Wenn ich den Code ausführe, dann bekomme ich aber immer einen Fehler :
"Laufzeitfehler 1004:
Anwendungs- oder objektdefinierter Fehler"

Vermutlich liegt es daran, dass in der original Excel die Tabellenüberschriften keine "einfachen" sind, welche nur aus einem Wort bestehen, sondern aus mehreren Wörtern mit Textumbruch.
Sorry, aber das hatte ich nicht bedacht, bei der Auswahl einer Beispieldatei. Hier noch einmal die Beispieldatei mit den angepassten Überschriften: https://www.herber.de/bbs/user/168851.xlsm

Ich hatte es jetzt schon mit unterschiedlichen Varianten versucht, die sich nach meinem Verständnis ergeben haben - Aber leider ohne Erfolg. (die 2 auskommentierten Zeilen sind mein Versuch gewesen) 


Option Explicit

Sub Kopieren()

    Dim rng

    Set rng = Sheets("Tabelle1").Range("TabelleKunden[[Auftragsdatum/Eingang]:[Artikelgruppe/Group]]")

    'Set rng = Sheets("Tabelle1").Range("TabelleKunden[[1]:[4]]")

    'Set rng = Sheets("Tabelle1").Range("TabelleKunden[1:4]")

    Set rng = rng.SpecialCells(xlCellTypeVisible)

    With Sheets("Tabelle2").ListObjects("TabelleAuswertung")

        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete

        rng.Copy .Range(2, 1)

    End With



End Sub



Private Sub CommandButton1_Click()

Call Kopieren

End Sub


Könntet ihr mir bitte weiterhelfen?

Gruß
Josh
Anzeige
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
19.04.2024 10:20:26
ralf_b 


   With Sheets("Tabelle1").ListObjects("TabelleKunden")

         Set rng = .DataBodyRange.Resize(.ListRows.Count, 4)

    End With
AW: 4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
19.04.2024 10:40:45
JoshExcel
Vielen Dank. Es funktioniert.
Ohne Dich hätte ich es nicht hinbekommen!

Forumthreads zu verwandten Themen

Tabellenblätter in neue Arbeitsmappe kopieren
Christian

Hallo!
ich möchte gerne per makro aus einer datei mit ca. 70 tabellenblättern 11 Blätter auswählen und in eine neue Mappe kopieren, am besten sollten auch gleich noch die verküpfungen (in der neuen mappe) gelöscht werden.
Die zu kopierenden Blätter sind nicht hintereinander, also quer ü...
10.09.2008 16:37:00
Thread-ID: 1008845
6 Beiträge
alle Tabellenblätter in anderes File kopieren
Doro

Hallo Forum!
habe eben schonmal "versucht" zu posten, aber irgendwie ist mein Beitrag weg...
Ich möchte gerne das File DatenFile öffnen, alle Tabellenblätter markieren, und dann in das File AuswerteFile kopieren, und bekomme in der letzten Zeile einen Laufzeitfehler.
Kann da jemand...
26.01.2009 16:48:18
Thread-ID: 1043937
3 Beiträge
Daten von und in andere Arbeitsmappe kopieren
und

Hallo,
ich wollte unten angeführte Makros folgendermaßen abändern:
Die Makros sollten aus Arbeitsmappe 1, die die zu ersetzenden DAten enthält, ausgeführt werden, d.h. es sollte kein Makro in Arbeitsmappe2 verwendet werden. Die Makros müssten also die Arbeitsmappe 2 öffnen, - die Werte...
28.02.2009 17:59:02
Thread-ID: 1055113
5 Beiträge
Anzeige
Datenübernahme in andere Arbeitsmappe
Uwe

Guten Morgen,
In einer Jahrestabelle (Datum steht in Spalte C) werden Daten für verschiedene Mitarbeiter festgehalten. Diese Daten befinden sich z.B. für den 13.03.09 (Datum steht in C13) in den Zellen E13:AA13. Via VBA habe ich die Möglichkeit beim Öffnen der Datei zum aktuellen Datum zu "...
13.03.2009 08:28:55
Thread-ID: 1059736
2 Beiträge
Tabelleninhalt in eine andere Arbeitsmappe kopiere
Himmelsbach

Hallo zusammen,
Ich hoffe es kann mir jemand bei meinem Problem weiter helfen, denn ich habe keine Idee wie ich meine Aufgabe automatisieren kann, ansonsten werde ich wohl Stunden damit zubringen müssen Tausende Zellen zu kopieren.
Also zu meiner Aufgabenstellung, reduziert auf 3 Tabell...
10.06.2009 16:57:46
Thread-ID: 1080549
4 Beiträge
Zeilen in andere Arbeitsmappe lkopieren
jinx
Moin, Elmar,Du solltest den Bereich ansprechen, in den Du die Werte einfügen möchtest...Deine Schleife läuft bei mir bis ans Blattende - ich habe es mit folgendem Code getestet (hier werden die Zeilen im zweiten Blatt direkt untereinander geschrieben):

16.04.2002 20:42:49
Thread-ID: 113862
3 Beiträge
Anzeige
Tabellenblatt in andere Arbeitsmappe kopieren
Annette

Hallo,
langsam verzweifel ich:
Ich möchte mittels eines Makros das Tabellenblatt „123“ der Arbeitsmappe „ABC“ in die Arbeitsmappe „DEF“ (nicht geöffnet) kopieren.
Der Name des Tabellenblatts soll beibehalten werden. Falls jedoch das Blatt vorhanden ist, soll es ersetzt werden.
...
05.05.2010 19:44:02
Thread-ID: 1155669
2 Beiträge
Daten von eine in die andere Tabelle übertragen
eine

Gibt es hierzu eine Makro Lösung?
Ich habe zwei Sheets:
1. Disposition
2. NMPKurz
Ich möchte die Daten aus der Disposition in NMPKurz in einer anderen Anordnung übertragen.
Hierzu habe ich eine Beispielsdatei eingestellt.
https://www.herber.de/bbs/user/71160.xls
Da...
21.08.2010 14:20:27
Thread-ID: 1173501
8 Beiträge
Daten in Tabelle einer anderen Arbeitsmappe
Stefan

Hallo,
sorry, aber ich habe schon wieder ein Problem:
Nachfolgender Code wurde mir hier zur Verfügung gestellt und funktioniert auch. Nur hat sich jetzt an der Struktur der Zieltabelle etwas geändert. Private Sub CommandButton1_Click() Dim lRow As Long Dim sRow As Long Dim myWks As Str...
06.04.2011 22:11:52
Thread-ID: 1209357
14 Beiträge
Tabelle in anderer Instanz kopieren
Fettertiger

Hallo liebe Experten,
jetzt such ich schon eine geraume Zeit in Google - finde trotzdem nix!
Ich habe ein eigentlich ganz triviales Problem. Beim Export eines Reports aus SAP werden die Daten in die Datei Export.MHTML geschrieben. Dummerweise öffnet mir SAP dazu eine neue Instanz von Ex...
16.06.2011 10:22:00
Thread-ID: 1218472
2 Beiträge
Daten aus tabelle in andere übertragen makro
Jens

Hallo Leute,
nachdem ich mich jetzt seit tagen mit Macros rumärgere dachte ich, ich wende mich mal an die Profis.
Also ich habe folgendes Problem:
Ich habe dein Tabellenblatt das eigentlich als eingabeblatt fungiert. Ich bräuchte ein Makro dass z.B.
Die Zelle B10 von Tabellenbl...
02.08.2011 14:02:25
Thread-ID: 1224570
10 Beiträge
Daten in andere Arbeitsmappe
Thomas Vogt

Hallo zusammen,
ich hab folgendes Problem:Ich habe zwei Arbeitsmappen erstellt. Eine Arbeitsmappe verwende ich um ein Formular aufzurufen in das ich Zahlenwerte eintrage. Das andere dient zur Speicherung der eingegebenen Daten. Ich bin auf der Suche nach dem Befehl der es mir ermöglicht die...
10.07.2002 08:11:42
Thread-ID: 135222
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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