Neue Datei per Klick mit Datenübernahme

[Planlos2015]

Hallo zusammen,

ich stehe vor einer Herausforderung: Ich muss etwa 150 personalisierte Excel-Dateien erstellen, die Informationen wie Namen, Auszahlungshöhe, Prozentsätze usw. enthalten. Es gibt bereits eine Musterdatei (für die 150 Dateien), die Formeln für bestimmte Einschränkungen und Zellschutz für bestimmte Bereiche enthält.

Ich habe eine "Masterdatei", in der alle Daten in einer Tabelle organisiert sind. Ich frage mich, ob es möglich ist, eine Schaltfläche oder einen Button in der letzten Spalte einzufügen, mit dem eine neue Datei basierend auf der Musterdatei erstellt wird, die die jeweiligen Daten enthält. Es wäre ideal, wenn ich auch den Speicherort und den Namen der erstellten Datei festlegen könnte.

Normalerweise finde ich in Foren schnell eine Anleitung, aber diesmal hatte ich leider kein Glück (oder nicht die richtigen Suchbegriffe).

Vielen Dank im Voraus für eure Hilfe! 

Viele Grüße
Lisa

[schauan]

Hallo Lisa,

im Prinzip könnte man so vorgehen:

- Liste erstellen mit den Namen und zugehörigen Speicherorten der Dateien
- Makro erstellen, welches in einer Schleife die Liste abarbeitet

Code:

Sub Kopieren()
Dim strQuelle, strZiel$, iCnt%
'Quelldatei festlegen
strQuelle = "C:\Test\Quelldatei.xlsx"
'Zeilenzähler Startzeile festlegen
iCnt = 1
'Pfad und Name erste Zieldatei aus Liste uebernehmen
'(Blatt mit Liste muss aktiv sein
'Pfad in Spalte A, Dateiname in Spalte B, Pfad mit abschliessendem \)
strZiel = Cells(iCnt, 1).Value & Cells(iCnt, 2).Value
'Schleife solange strZiel was enthaelt
'( ... ueber alle gelisteten Dateien)
Do While strZiel <> ""
  'Kopieren
  FileCopy strQuelle, strZiel
  'Zeilenzaehler hochsetzen
  iCnt = iCnt + 1
  'naechsten Pfad + Datei aus Liste holen
  strZiel = Cells(iCnt, 1).Value & Cells(iCnt, 2).Value
'Ende Schleife solange strZiel was enthaelt
Loop
MsgBox "Fertig!"
End Sub

[RPP63]

Normalerweise finde ich in Foren schnell eine Anleitung, aber diesmal hatte ich leider kein Glück (oder nicht die richtigen Suchbegriffe).

Moin Lisa!
Welche Antwort erwartest Du denn?
Schließlich ist die Threaderöffnung viel zu allgemein gehalten, als dass man konkrete Hilfe geben könnte.

mit dem eine neue Datei basierend auf der Musterdatei erstellt wird, die die jeweiligen Daten enthält.

"Masterdatei":
Tabelle mit Datensätzen für Kunden oder Mitarbeiter
"Musterdatei":
Vorlage, die gefüllt werden soll

→ Lade beide Dateien (anonymisiert) hier hoch, damit wir nicht auch planlos sind.

Gruß Ralf

[Andreas Killer]

ich stehe vor einer Herausforderung: Ich muss etwa 150 personalisierte Excel-Dateien erstellen, die Informationen wie Namen, Auszahlungshöhe, Prozentsätze usw. enthalten. Es gibt bereits eine Musterdatei (für die 150 Dateien), die Formeln für bestimmte Einschränkungen und Zellschutz für bestimmte Bereiche enthält.

Ich habe eine "Masterdatei", in der alle Daten in einer Tabelle organisiert sind. 

Hallo Lisa,

das ist recht einfach.

Die Tabelle in der Masterdatei enthält Überschriften und wenn es nun in der Musterdatei Zellen gibt die nach diesen Überschriften benannt sind, dann ist das Ausfüllen eine Kleinigkeit.
Lad Dir mal diese Datei herunter und entpacke sie in ein leeres Verzeichnis.

  Z.zip (Größe: 22,31 KB / Downloads: 3)

Öffne beide Dateien, in der Musterdatei habe ich die Zielzellen zum Verständnis eingefärbt.

Lass das Makro Main laufen und der Code füllt jede Zeile in der Musterdatei aus und speichert diese mit dem Namen aus der ersten Spalte der Datentabelle ab.

Das kannst Du so in Deiner Datei nachbauen, der Code ist universell und braucht keine Änderung. Alles klar?

Andreas.