Daten aus anderer Excel-Datei einfügen

Hallo!
Mein urspünglicher Post ist schon ziemlich weit unten, leider hat mir bisher niemand geholfen. Ich will mein Post verbessern und es nochmal probieren etwas Unterstützung zu bekommen! Freu mich über jede Hilfe!
Es sollen Daten aus einer Excel-Tabelle in eine bestehende Tabelle eingefügt werden. Die bestehende Tabelle also mit den neuen Daten aktualisiert werden. Die Daten sollen nicht überschrieben werden. Die Spaltennamen sind verschieden, auch die Reihenfolge. Es bedarf also einer Zuordnung.
Ich möchte nun ein Makro erstellen, welches diesen Job aus der bestehenden Excelmappe erledigt, da die manuelle Bearbeitung auf Dauer total nervig ist.
Über eine Websuche habe ich bereits einen Vorschlag gefunden. Leider werden die Daten nicht in die erste leere Zeile eingefügt, ich verstehe auch nicht, wie ich eine Spaltenzuordnung vornehmen kann.
Die Spaltenbezeichnungen und die Reihenfolge meiner Tabellen sind jeweils verschieden.
Das Makro soll folgende Schritte erledigen:
1. Suchen der ersten freien Zeile in der bestehenden Tabelle "Bestand" (damit keine bestehenden Daten überschrieben werden)
2. Falls notwendig, Öffnen der Excelmappe Neue Daten unter Ordner ../..
3. Kopieren & einfügen der Daten anhand entsprechender Spaltenamen
4. Ggf. schließen der Excel-Tabelle "Neue Daten"
Es wäre toll, wenn mir jemand helfen könnte und mir dabei Erläuterungen geben kann, damit ich die Spaltennamen und Excel-Dateinamen selbst modifzieren kann. Und ich eben auch mal groß werden will:)
Vielen Dank im Voraus!
Beispieldateien habe ich hier eingefügt:
https://www.herber.de/bbs/user/86522.xlsx
https://www.herber.de/bbs/user/86523.xlsx
Eine Zuordnung wäre:
Tabelle1

	A	B	C	D	E	F
1		A	B	C	D	E
2	1		ID	Frei	Termin	Antwort bis
3	2	Daten anfügen aus Spalte	Vorgang		Datum	Frist

Tabellendarstellung in Foren Version 8.6 by Beverly's Excel-Inn

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() 'Deklaration der Vairablen Dim i As Integer Dim b As Integer 'die Schleife startet in der ersten Zeile i = 1 ' die Zweite Spalte wird durchlaufen b = 2 'Schleife bis Zeile = 1000 For i = 1 To 1000 i = i + 1 'Test ob Zelle befüllt ist If Cells(i, b).Value = "" Then Exit For Next 'hier was er dann machen soll End Sub

Hallo Franz!
Danke für Deine Antwort und Klarstellung hinsichtlich weiterer Nachfragen ist echt klasse vpn Dir!
Das tolle an Deiner Lösung ist die Flexibilität, die ich gerne behalten möchte. Wie geschrieben handelt es sich um mehrere Vorgänge und somit mehrere Vorlagen mit abweichenden Spaltennamen.
Da ist das Tabellenblatt Steuerung ideal!
Ich möchte deshalb gerne im Steuerungsblatt die Formeln hinterlegen, damit ich diese ggf. anpassen kann. Trifft eine Zuordnung zu, so sollte die Formel auf die neuen und einzufügenden Daten angewendet werden.
Alternativ kann ich auch diese an der richtigen Stelle im VBA-Code einfügen. Das müsstest Du mir kurz erläutern, so weit bin ich mit meinem VBA-Buch und Verständnis noch nicht. Wie finde ich die richtige Stelle im Code für die Formel bei der jeweiligen Spaltenüberschriftssteuerung?
Ich habe die Beispieldatei so angepasst, dass Du hoffentlich meine Makroschritte nachvollziehen kannst. Neben den Datenformaten bin ich noch auf Probleme wie Zellenformatierung, leere Zeilen und das Löschen der Zeile Gesamt gestoßen.
Der Betrag wird in Hochkomma Zahle(n) Leerzeichen EUR ausgegeben. Also 1234,55 EUR. Um die reinen Zahlen zu bekommen, vermute ich eine Formel mit Suchen, Teil und Länge; verflixt, ich komme nicht drauf. Wie Du siehst, bleibt bei der aktuellen Formel das Hochkomma stehen.
Beim Daten anonymisieren ist das eine ursprüngliche Hochkomma in der Zellenanzeige selbst verschwunden. Oben in der Befehlszeile ist es noch da.
Nach all dem, finde ich Deine Variante 1 wohl besser?
Ich hoffe, es nicht zu viel:
Die Schritte für das Makro wären:
1. Kopieren der Daten anhand der Steuerungszuordnung (wie bisher)
2. Anwenden der Formeln nach der Zuordnung auf die neuen Daten
3. Var.1: Einfügen anhand Steuerung, Zellformatierung der ursprünglichen Zelle beim Einfügen bleibt; Var.2: Layout der Zellen wird entfernt, Daten werden eingefügt
4. Die Neuen Zellen werden rechts gebündelt
5. Entfernen des Gesamtbetrages: Wenn in Zeile das Wort Gesamt:, dann Zeile löschen
6. Entfernen von leeren Zeilen (siehe Zeile 16) in der Beispieldatei. Wenn Zeile leer, dann löschen
Ideal wäre noch die Übernahme des Datums aus Zelle A11 beispielsweise in eine Spalte Eingangsdatum. Bei der Formel habe ich das gleiche Problem, wie beim Betrag.
7. Datum aus A11 in Spalte Eingangsdatum in Format tt.mm.jjjj bei den neuen Daten.
8. Alternativ das aktuelle Tagesdatum
Lieber Franz, ich hoffe, Du kannst alle meine Herzenswünsche nachvollziehen können. Deine Unterstützung macht mir sehr viel Freude. Nochmals Dankeschön!
Uli!
Angepasste Beispieldatei
https://www.herber.de/bbs/user/86639.xlsx
Steuerung mit Fomeln
https://www.herber.de/bbs/user/86640.xls

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Excel-Datei einfügen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

341 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus anderer Excel-Datei einfügen

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

341 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread