Daten in Vorlage importieren/speichern

Hallo zusammen,
ich muss eine Excellisten (Vorlage) mit den Daten aus einer anderen Excelliste (Datenquelle) füllen und separat abspeichern. Daraus sollen 200 Dokumente entstehen. So viele Zeilen hat die Liste Datenquelle
Um jetzt nicht den ganzen Tag mit copy-paste zu verbringen, würde ich das gerne mit einem Makro lösen, da das Schema immer dasselbe wäre. Leider stoße ich da auf meine VBA-Grenzen.
Folgendes ist geplant:
Zelleninhalt A und B aus Datenquelle (immer aus derselben Zeile) sollen in Vorlage in Zelle B2 (zwischen Wert A und B ein Leerzeichen)
Zelleninhalt G aus Datenquelle soll in Vorlage Zelle B3
Dokument soll speichern unter; der Name soll der Zelleninhalt B2 aus Vorlage sein. Der Speicherort darf derselbe sein, wo auch die Vorlage liegt
Ist es möglich ein Makro zu erstellen, welches mir die 200 Dokumente auf einmal erstellt? Oder ist es sinnvoller das Makro abfragen zu lassen, aus welcher Zeile die Daten genommen werden sollen und immer nur ein Dokument zu erstellen?
Über Information bin ich sehr dankbar
Gruß Domi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub generiereListe() Dim myWB As Workbook Dim myWS As Worksheet Set myWB = ThisWorkbook Set myWS = myWB.Sheets("Vorlage") Dim ze As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For ze = 1 To 200 With Sheets("Datenquelle") On Error GoTo fb_Handle myWS.Range("B2") = .Cells(ze, 1) & " " & .Cells(ze, 2) myWS.Range("B3") = .Cells(ze, 7) End With myWS.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=Sheets("Vorlage").Range("B2") & ".xlsx", _ FileFormat:=xlOpenXMLStrictWorkbook, CreateBackup:=False ActiveWindow.Close Application.DisplayAlerts = True Next fb_Handle: ActiveWorkbook.Close savechanges:=False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Hallo
Das Makro kommt in die Quell Datei, ein Datenblatt "Datenquelle" muss vorhanden sein, ansonst im Makro ändern. Es wird zuerst geprüft ob Vorlage.xlsx bereits geöffnet wurde ansonsten wird es geöffnet. In dieser Datei heisst das Tabellenblatt ebenfalls "Vorlage" (ansonsten im Makro ändern). Die Quelldatei wird im Makro von 1 bis 5 durchlaufen und erzeugt 5 neue xlsx Dateien im selben Verzeichnis. Am Schluss wird die "Vorlage" Datei geschlossen (die jetzt den Namen der zuletzt erzeugten Datei hat)


Option Explicit
Sub CreateWs()
Const myVorL = "Vorlage.xlsx"
Dim myWkb As Workbook
Dim myWksQ As Worksheet
Dim wkbFound As Boolean
Dim myRow As Long
Set myWksQ = ThisWorkbook.Worksheets("Datenquelle")
wkbFound = False
For Each myWkb In Workbooks
If myWkb.Name = myVorL Then
wkbFound = True
Exit For
End If
Next myWkb
If Not wkbFound Then
Set myWkb = Workbooks.Open(ThisWorkbook.Path & "\" & myVorL)
Else
' myWkb ist durch die For Schleife bereits zugeordnet
End If
For myRow = 1 To 5
With myWksQ
myWkb.Worksheets("Vorlage").Range("B2") = .Cells(myRow, 1) & " " & .Cells(myRow, 2)
myWkb.Worksheets("Vorlage").Range("B3") = .Cells(myRow, 7)
End With
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=myWkb.Worksheets("Vorlage").Range("B2") & ".xlsx", _
FileFormat:=xlOpenXMLStrictWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
Next
myWkb.Close
End Sub

Beliebteste Forumthreads (12 Monate)

Daten in Vorlage importieren/speichern

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

249 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten in Vorlage importieren/speichern

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

249 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread