Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1400to1404
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Mehrfachkopieren von Tabellen in neue Kartei

VBA: Mehrfachkopieren von Tabellen in neue Kartei
05.01.2015 14:37:16
Tabellen
Hallo liebes Forum,
Ich habe von VBA quasi null Ahnung, bin aber dabei mich ein wenig reinzuarbeiten.
Für folgendes Problem suche ich eine Lösung:
Es gibt eine Wertetabelle in der Kartei "Tabelle1" in den Zellen A1:D3000.
Durch einen Makro (Application.Run "Makro") gebe ich wechselseitig Bedingungen vor, welche die Werte in dieser Tabelle ändern .
Ich möchte nun jede Änderung dieser Tabelle (also nach jeder Makroverwendung) in Kartei "Tabelle2" ablegen (eine Kopie herstellen).
Dies soll aller 7 Spalten geschehen. Also die erste Kopie der Berechnung in Tabelle2!A1:D3000, die nächste Kopie dann ab Spalte G1:J3000 usw.
Kann mir jemand einen Rat geben, wie der VBA-Code hierzu ausschauen könnte?
Danke vorab und beste Grüße
Joerschi

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Mehrfachkopieren von Tabellen in neue Kartei
05.01.2015 14:45:05
Tabellen
Hallo,
Sheets("Tabelle1").Range("A1:D3000").copy Sheets("Tabelle2").cells(1,columns.count).end(xltoleft).Offset(,2)
Gruß
Rudi

AW: VBA: Mehrfachkopieren von Tabellen in neue Kartei
05.01.2015 15:12:07
Tabellen
Vielen Dank Rudi,
Das Kopieren klappt (habe den Offset-Wert noch auf 0 gesetzt, um tatsächlich in Spalte A der Zielkartei zu beginnen).
Meine ergänzende Frage wäre: wie kann man es einstellen, dass jede neue Kopie dann aller 7 Spalten erfolgt? (also nachdem via Makro sich die Daten der Ausgangstabelle immer wieder geändert haben)
meine Idee wäre:
Sub Beispiel()
Z = 1
For i = Sheets("Tabelle1").Range("A1:D3000").Copy To Sheets("Tabelle2").Cells(10, Columns.Count) _
.End(xlToLeft).Offset(, 0)
Application.Run "Makro"
Z = Z + 1
Next i
End Sub

Aber irgendwie sieht das noch...unrund aus bzw. ist ein wenig Stochern im Dunkel :-(.
Viele Grüße
Joerschi

Anzeige
AW: VBA: Mehrfachkopieren von Tabellen in neue Kartei
05.01.2015 15:24:13
Tabellen
Hallo,
habe den Offset-Wert noch auf 0 gesetzt
das ist falsch. 
Sheets("Tabelle1").Range("A1:D3000").copy Sheets("Tabelle2").cells(1,columns.count).end(xltoleft).Offset(,iif(Sheets("tabelle2").Range("A1")="",0,2))
Gruß
Rudi

AW: VBA: Mehrfachkopieren von Tabellen in neue Kartei
05.01.2015 16:46:45
Tabellen
so richtig bekomme ich es noch nicht gebacken... :-(
Beim Testen in einer reinen TEstdatei funktioniert es - auch mit den Abständen.
Beim exakten Übertragen des Codes in die "Livedatei" mit den Echtdaten wird jede Kopie nur eine Spalte weitergerutscht (so dass sich alles überschneidet).
Hast Du eine Idee, woran dies liegen könnte?
Zudem werden Formeln in der Ausgangstabelle dann als #NV in der Kopie ausgegeben (mein Fehler - wusste nicht, dass man dies beachten muss: es sollten die Werte darin einfach nur übertragen werden, also Formel gibt es in der Kopie nicht mehr).
Viele Grüße
joerschi

Anzeige
Musterdatei mit Erklärung
06.01.2015 08:53:21
Joerschi
Wie schon im Parallelpost geschrieben klappt bei mir die Einbindung noch nicht so wie sie soll.
Ich denke, das Problem ist besser mit einer Musterdatei plus aktuellen Stand des VBA-Codes umrissen.
Unten noch einmal Erklärung, was passieren soll:
Userbild
Musterdatei: https://www.herber.de/bbs/user/94772.xlsm
(auf Grund der Dateigröße wurde die Mustertabelle auf 40 statt 3000 Zeilen begrenzt)
Was ist gegeben / Was soll passieren?
1. Es gibt eine aus Formeln und Zahlenwerten bestehende Wertetabelle von A1:D40 in Kartei "tabelle1", welche mehrfach in Kartei "tabelle2" kopiert werden soll (nur die errechneten Werte oder Strings - keine Formeln!). Und zwar dort immer aller 7 Spalten eine neue Kopie (1. Kopie beginnend Spalte A, zweite Kopie beginnend Spalte G usw).
2. Weiterhin legt man in Zelle H4 und I4 manuell fest, welche Zeilen (von - bis) der "Faktorentabelle" von H9:K37 ausgewertet werden sollen.
Die aktuelle zu bearbeitende Zeile ist in H5 definiert.
Abhängig von H5 werden nun in der Hilfstabelle H7:K8 nacheinander die Werte der "Faktorentabelle" hochgezogen und damit ändern sich automatisch alle Werte der Wertetabelle A1:D40 (welche lt. Punkt 1. kopiert werden sollen).
Aktueller VBA-Code: 
Sub Beispiel()
For i = Sheets("tabelle1").Cells(4, 8) To Sheets("tabelle1").Cells(4, 9)
Sheets("tabelle1").Cells(5, 8) = i
Sheets("Tabelle1").Range("A1:D40").Copy Sheets("Tabelle2").Cells(1, Columns.Count).End(xlToLeft) _
.Offset(, IIf(Sheets("tabelle2").Range("A1") = "", 0, 2))
Next i
End Sub

Probleme nach wie vor:
1. Die Kopien in "tabelle2" werden nicht aller 7 Spalten gesetzt, sondern fortfolgend ab Spalte A (dadurch überlöscht es jedesmal die vorangegangene Kopie).
2. Es werden nicht ausschließlich die Werte/Texte kopiert, sondern auch Formeln (dadurch Fehlerwert in der Kopie).
Könnt Ihr einen Tipp geben, wie man das beheben kann?
Danke vorab und beste Grüße!
Joerschi

Anzeige
AW: Musterdatei mit Erklärung
06.01.2015 10:22:42
Rudi
Hallo, 
Sub Beispiel()
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = .Cells(4, 8) To .Cells(4, 9)
.Cells(5, 8) = i
.Range("A1:D40").Copy
With Sheets("Tabelle2")
.Cells(2, Columns.Count).End(xlToLeft).Offset(-1, IIf(.Range("A1") = "", 0, 3)). _
PasteSpecial xlPasteValues
End With
Next i
End With
Application.CutCopyMode = False
Application.Goto Sheets("Tabelle2").Range("A1"), True
End Sub

Gruß
Rudi

Ergänzungsfrage & Danke
06.01.2015 11:02:34
Joerschi
Hallo Rudi,
herzlichen Dank für die Hilfe.
Ich probiere grad ein wenig mit den "Stellschrauben" und es funktioniert.
Allerdings verstehe ich noch nicht, woher im Code VBA "weiß", mit welchen Werten aus H8:K8 es in der Tabelle rechnen soll.
In der "Realtabelle" ist es so, dass zwischendurch ein Makro läuft , welcher die Zellen H8:K8 woanders hinkopiert und auf diese "woanders" greift dann tatsächlich die Wertetabelle zu.
Ich finde partout keine Stelle im Code, wo man dieses Application.Run "Kopiere" einfügen kann.
Kannst Du bitte nochmal aushelfen mit Rat?
Danke vorab und Liebe Grüße
joerschi

Anzeige
AW: Ergänzungsfrage & Danke
06.01.2015 11:13:12
Rudi
Hallo,
was weiß ich!
Ich kenne deinen Code nicht.
Ich bin Zauberer und kein Hellseher ;-)
Application.Run brauchst du nur, wenn du einen Code aus einer anderen Mappe aufrufen willst.
Gruß
Rudi

AW: Ergänzungsfrage & Danke
06.01.2015 11:24:47
Joerschi
Sorry für die blöde(n) blutigen Anfängerfrage(n), wusste ich nicht :-(
Versuche einfach nur, die Logik dahinter zu begreifen.
Das meine ich:
Userbild
Musterdatei überarbeitet: https://www.herber.de/bbs/user/94775.xlsm
Via eines Makros werden die Zellen H8:K8 auf die Zellen G10:G13 nacheinander kopiert (mit Str+C & Str+V innerhalb des Makros).
Auf diese Zellen G10:G13 greift dann die Wertetabelle tatsächlich zu.
Den Zwischenschritt mit dem Makro wollte ich noch reinbauen.
Meine Code-Idee war folgende: 
Sub Beispiel3()
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = .Cells(4, 8) To .Cells(4, 9)
.Cells(5, 8) = i
.Range("A1:D40").Copy
Application.Run "KopiereFilter"
With Sheets("Tabelle2")
.Cells(2, Columns.Count).End(xlToLeft).Offset(-1, IIf(.Range("a1") = "", 0, 3)). _
PasteSpecial xlPasteValues
End With
Next i
End With
Application.CutCopyMode = False
Application.Goto Sheets("Tabelle2").Range("A1"), True
End Sub
Scheinbar keine schlaue Idee, funktioniert nämlich nicht :-(
Liebe Grüße
joerschi

Anzeige
AW: Ergänzungsfrage & Danke
06.01.2015 11:53:54
Rudi
Hallo,
was soll denn die Kopiererei? Warum beziehst du dich nicht direkt auf H8:K8? 
Sub Beispiel3()
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = .Cells(4, 8) To .Cells(4, 9)
.Cells(5, 8) = i
KopiereFilter
.Range("A1:D40").Copy
With Sheets("Tabelle2")
.Cells(2, Columns.Count).End(xlToLeft) _
.Offset(-1, IIf(.Range("a1") = "", 0, 3)).PasteSpecial xlPasteValues
End With
Next i
End With
Application.CutCopyMode = False
Application.Goto Sheets("Tabelle2").Range("A1"), True
End Sub
Sub KopiereFilter()
With Sheets("Tabelle1")
.Range("H8:K8").Copy
.Range("G10").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End With
End Sub

Gruß
Rudi

Anzeige
AW: Ergänzungsfrage & Danke
06.01.2015 13:10:11
Joerschi
Hi Rudi,
vielen Dank.
Habe noch ein paar Sachen angepasst, aber klappt nun.
Das Kopieren war notwendig, weil die Zielzelle eigentlich dafür vorgesehen sind, auch mal manuell Werte einzutragen, woran sich die Wertetabelle orientiert.
Die Formellösung sichert hingegen ab, dass ich eine ganze Tabelle auswerten kann.
Für alle, welche mal ein ähnliches Problem haben:
Achtung - die Zelle A1 der WErtetabelle darf scheinbar keine Leerzelle sein, da sonst der Kopiervorgang in der Zieltabelle nicht mit dem Abstand zwischen den Spalten klappt. Ich habe letztlich ein Leerzeichen eingefügt, dann klappts.
Nochmal Danke @ Rudi, den Zauberer :-)
Viele Grüße
Joerschi
Anzeige

301 Forumthreads zu ähnlichen Themen

Eingabemaske für Tabelle via VBA ?
kiwi279

Hi Ihr,
habe eine größere Adressdatenbank als Excel-Datei.
Der Inhalt sind normale Adressen, zu denen in jeder Spalte separat bestimmte Informationen (Nachname, Vorname, Email, Geburtstag, Beruf etc.) abgelegt sind.
Da die Datensätze immer wieder ergänzt und aktualisiert werden, ist...
13.08.2008 21:10:00
Thread-ID: 1001661
17 Beiträge
Anzeige
Steuerelement Listbox1 in tabelle wird in VBA n
Mike

Hallo
Ich habe in einer Tabelle aus der Symbolleiste Steuerelemente ein Listenfeld in eine Tabelle eingefügt. Der Objektname lautet "Listbox1".
Über ein Makro will ich nun diese Listbox füllen.
Listbox1.additem "Text"
wenn ich das Makro ausführen wird die Listbox1 jedoc nicht ge...
28.11.2008 11:59:00
Thread-ID: 1028645
3 Beiträge
Änderungen in Tabellen via VBA vornehmen
Wolfgang

Hallo,
in einer Mappe befinden sich 3 Tabellenblätter; Gesamt, Grunddaten und Altdaten - In Gesamt werden unterschiedlich viele Daten, die aber alle immer das Format zu Tabelle Grund- und Altdaten haben, eingespielt. Im beiliegenden Code, wenn ich ihn richtig interpretiere, werden Veränderu...
06.12.2008 15:50:24
Thread-ID: 1030699
7 Beiträge
Anzeige
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 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
Auslesen_Tabellenblattname_eintragen-siehe VBA
Fabio

Hallo zusammen,
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben...
06.04.2009 11:13:51
Thread-ID: 1067062
4 Beiträge
Strings vergleichen in 2 verschiedenen Tabellen
Mario

Hallo zusammen,
ich versuch mal mein Problem zu beschreiben:
Tabelle 1 ist ein Schichtplan, der die Namen der MA, eingeteilt in verschiedene Gänge, mit dem Zusatz "Gang" enthält, z.B. Mayer Hans 12.
Tabelle 2 ist ein Anwesenheitsplan, der die Namen incl. Personalnummer hat, z.B. May...
26.07.2009 14:32:41
Thread-ID: 1091022
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
7
2
6
8
15
3
2
3
7
6
1
2
4
1
9
2
4
3
3
4
1
2
2
6