VBA mehrere Daten kopieren, eintragen und speichern

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Eva-Maria von Nederland,

nur mal so schnell, ob ich Dein Anliegen überhaupt richtig verstanden habe:

:prog_start
abzuarbeitende_zeile=2
:loop_anfang
nehme Daten aus der abzuarbeitende_zeile aus komplett_blanko und trage diese Daten ein in der testmappe.xls in das Tabellenblatt SAZR
[Testmappe.xlsx]SAZR!$D$6='[komplett blanko.xlsx]komplett'!$B2&", "&'[komplett blanko.xlsx]komplett'!$C2
[Testmappe.xlsx]SAZR!$D$9='[komplett blanko.xlsx]komplett'!$V2
... (solange bis alle Daten aus dieser Zeile eingetragen sind)
"speichere" die Datei Testmappe.xlsx unter dem Namen [Testmappe.xlsx]SAZR!$D$6&date&"_"&time (falls zwei Personen denselben Namen haben)
abzuarbeitende_zeile=abzuarbeitende_zeile+1
if INDIREKT("'[komplett blanko.xlsx]komplett'!$B"&abzuarbeitende_zeile)="" then // sprich der Name in der als nächstes neu abzuarbeitende_zeile ist leer
exit loop
endif
loop_ende

Das mit dem Leeren der Zieldatei erübrigt sich doch, da alle Zellen beim erneuten Loop-Durchlauf mit neuen (bzw. wenn die leer sind, dann eben mit "null") Daten überschrieben werden - oder?

Hab ich das richtig verstanden? Wenn ja, wäre das mein Lösungsansatz ;-)

VG
Stefan

Hallo Eva,

wenn Du direkt nach
[Testmappe.xlsx]SAZR!$D$6='[komplett blanko.xlsx]komplett'!$B2&", "&'[komplett blanko.xlsx]komplett'!$C2
[Testmappe.xlsx]SAZR!$D$9='[komplett blanko.xlsx]komplett'!$V2

also ohne
... (solange bis alle Daten aus dieser Zeile eingetragen sind)

speicherst, sind eben nur Nachname Komma Vorname und gültig_ab (das in Deiner [komplett blanko.xlsx] ja Beginn heisst) eingetragen
und dann wird gespeichert und in der nächsten Zeile der [komplett blanko.xlsx] weitergemacht, solange bis der Name in der nächsten Zeile leer ist.

D.h. Vorschlag Spalte V aus [komplett blanko.xlsx] umbenennen in gueltig_ab, dann verwechselt man sie nicht mit Beginn (was Arbeitsbeginn wäre).

Und hast Du schon Erfahrung mit intelligenten Tabellen?
Wäre mal ein Gedanke. Erstelle eine intelligente Tabelle aus komplett blanko.xlsx (z.B. mit dem Namen "Tab_Daten"), dann wäre der Code besser lesbar, weil man sofort sieht, was gemeint ist (weiter wäre der Datenbestand automatisch erhöht, wenn Du eine Zeile anfügst, ...):
[Testmappe.xlsx]SAZR!$D$6='[komplett blanko.xlsx]komplett'!$B2&", "&'[komplett blanko.xlsx]komplett'!$C2
[Testmappe.xlsx]SAZR!$D$9='[komplett blanko.xlsx]komplett'!$V2
hiesse dann
[Testmappe.xlsx]SAZR!$D$6=Tab_Daten[@[Nachname]]&", "&Tab_Daten[@[Vorname]]
[Testmappe.xlsx]SAZR!$D$9=Tab_Daten[@[gueltig_ab]]

VG
Stefan

Beliebteste Forumthreads (12 Monate)

VBA mehrere Daten kopieren, eintragen und speichern

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA mehrere Daten kopieren, eintragen und speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread