Daten Exportieren per VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub kopieren() Dim z As Integer Dim strPfad As String Dim strQuelle As String Dim strZiel As String strPfad = ActiveWorkbook.Path strQuelle = "quelle.xlsm" strZiel = "Ziel.xlsm" Application.DisplayAlerts = False Workbooks.Open Filename:=strPfad & "\" & strQuelle z = Range("A14").End(xlDown).Row Range(Cells(14, 1), Cells(z, 6)).Copy Workbooks.Open Filename:=strPfad & "\" & strZiel Cells(19, 2).PasteSpecial Workbooks(strZiel).Close savechanges:=True Workbooks(strQuelle).Close Application.DisplayAlerts = True End Sub

Sub kopieren() Dim z As Integer Dim strPfad As String Dim strQuelle As String Dim strZiel As String strPfad = ActiveWorkbook.Path strQuelle = "quelle.xlsm" strZiel = "Ziel.xlsm" Application.DisplayAlerts = False Workbooks.Open Filename:=strPfad & "\" & strQuelle z = Range("A14").End(xlDown).Row Range(Cells(14, 1), Cells(z, 6)).Copy Workbooks.Open Filename:=strPfad & "\" & strZiel Cells(19, 2).PasteSpecial Range(Cells(z + 6, 2), Cells(5000, 7)).ClearContents Workbooks(strZiel).Close savechanges:=True Workbooks(strQuelle).Close Application.DisplayAlerts = True End Sub

Hi,
deine Aussage "es ist leide rnoch nicht die perfekte Lösung" ist...
a) tippfehlerbelastet (es wäre cool, wenn du - vor - dem Absenden deiner Antworten genau diese noch mal auf Schreibfehler aller Art überprüfst und korrigierst
(das macht das Lesen, vor allem aber das Vertehen deiner Antworten einfacher; andere schaffen das doch auch - bei dir passiert das leider ziemlich oft)
b) auch ohne Tippfehler null hilfreich - denn - wieso ist der weitere Versuch von Edi nicht die perfekte Lösung?
Wir können nicht auf deinen Monitor gucken - auch wenn du das glauben magst - denn wenn wir drauf gucken könnten, nur dann wäre so eine Aussage wie oben hilfreich
Ich will dich nicht runterputzen, aber immer wieder alles so hinnehmen, wie so Einiges von dir geliefert wird, will ich auch nicht (mehr)
Wir wollen dir und allen Anderen ja helfen! Wir machen uns mal nur wenige, oft aber auch sehr viele Gedanken, damit wir euch hilfreiche Tipps/Lösungen bieten können. Da ist es nicht zu viel verlangt, wenn der Fragende (mwd) sich schon vor dem Fragen etwas Mühe gibt.
Ciao
Thorsten

Hi Sebastian
meinst du mit Hinweisfenster in Quelldatei beim Start das hier?
Userbild

Der Grund ist:
Quelldatei überprüft alle geöffneten Exceldateien und sucht...
...nach der Datei "ReportINI.xls"
...in dieser Datei muss das Tabellenblatt ""ReportINI"" enthalten sein
Wird Datei oder Tabellenblatt nicht gefunden, erscheint der obige Hinweis.
Damit dieser Hinweis nicht mehr erscheint, hab ich (musste ich) den Code im Workbook_Open-Ereignis von Quelldatei deaktiviert.
Ja, ich weiß, du hattest geschrieben, dass in Quelldatei nix geändert werden darf.
Ok, dann wirst du auch den obigen Hinweis nicht los.
Hmm...du hattest allerdings um 11:26:49 auf meine Frage nach Bsp-Datei geantwortet, dass du vom Firmen-PC nix hochladen kannst.
Fast genau 2 Stunden später, um 13:26:33, hast du dann auf einmal doch sowohl Quell- und Zieldatei hochgeladen...versteh ich nich...is mir aber auch egal
So, hier nun mein Vorschlag für dich:
https://www.herber.de/bbs/user/149090.zip
WICHTIG!!!
ZUERST die ZIP-Datei entpacken, UND ERST DANN die Zieldatei in Excel öffnen!!!!
Also...
Die ZIP-Datei enthält 2 Dateien:
quelle.xls
ziel.xlsm
Nachdem du beide Dateien im gleichen Verzeichnis gespeichert hast, öffne die Zieldatei und aktiviere die Makros, wenn du gefragt wirst
1. Du wirst per Dialog aufgefordert, die Quelldatei zu öffnen
(wenn du auf Abbrechen klickst, wird das Makro beendet, und es passiert nix weiter)
2. Nach Auswahl der Quelldatei...
...werden zuerst in Zieldatei in vielleicht noch vorhandenen Datenzeilen ab Zeile 19 die Inhalte gelöscht (auch in Spalte H, in der eine Rundungsformel steht)
...wird diese automatisiert die Quelldatei geöffnet
...in Quelldatei werden in den Spalten A:F ab Zeile 14 alle Datenzeilen kopiert
...in Zieldatei werden in den Spalten B:G ab Zeile 19 alle zuvor kopierten Datenzeilen eingefügt
...in Zieldatei in Zelle H19 wird automatisiert die Rundungsformel eingetragen
...in Zieldatei wird die Rundungsformel aus Zelle H19 in alle darunter liegenden Zeilen übertragen
...Quelldatei wird - ohne Speichern - wieder geschlossen
Zieldatei bleibt mit den neu eingefügten Datenzeilen aus Quelldatei übrig und wird nicht geschlossen
Beachte auch die Kommentare im Code.
Hilfts?
Eigtl kann von dir kein NEIN kommen, denn all deine "Wünsche" wurden beachtet.
Bin auf deine Antwort neugierig.
Ciao
Thorsten

Beliebteste Forumthreads (12 Monate)

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread