Neue Dateien mit Namen aus Tabelle erstellen

Ist im Prinzip nicht besonders schwierig.

Mach mal eine Beispieldatei mit ein paar Namen und sag uns wie die Dateien heißen sollen.

Und was soll in die Dateien rein? Nix?

Andreas.

Kopiere den Code unten in diese Datei

Speicher Sie in einem Ordner wo die Dateien erzeugt werden sollen

Ausführen

Alles gut?

Andreas.

Sub Test()

Dim R As Range

Dim Wb As Workbook

Dim FName As String

With Application

.EnableEvents = False

.ScreenUpdating = False

.DisplayAlerts = False

End With

For Each R In Range("A2", Range("A" & Rows.Count).End(xlUp))

FName = Replace(R & " " & R.Offset(, 1), " ", "_") & ".xlsx"

Set Wb = Workbooks.Add(xlWBATWorksheet)

Wb.SaveAs ThisWorkbook.Path & "\" & FName, xlOpenXMLWorkbook

Wb.Close

Next

With Application

.EnableEvents = True

.ScreenUpdating = True

.DisplayAlerts = True

End With

End Sub

Ja, die Datei soll leer sein.





Die Dateinamen sollten dann so aussehen: Max_Mustermann_12345.xlsx

Danke.

Hallo Lutz,

bei deiner Vorgehensweise erstellst du eine neue Formatvorlage. Der Name, den du oben eingibst, ist dann der Name der Vorlage -
nicht der Name der Tabelle. Du findest dann diese Vorlage bei "Als Tabelle formatieren" unter Benutzerdefiniert.

Den Namen der Tabelle kannst du nur im Namensmanager ändern.

Claus

Hallo habgeduld,

schöner name Wenn es Dir reicht die Struktur samt Daten zu kopieren dann ist das eine Select ... Into Abfrage. In der Accessoberfläche eine Abfrage mit allen Feldern Deiner Tabelle die Du kopieren möchtest erstellen und dann oben im Ribbon auf "Tabelle
erstellen" klicken. Einen neuen Tabellennamen angeben und ausführen. Danach sind alle Daten in den neuen Tabelle. Was er nicht kopiert sind Fremdschlüssel und sonstige Einstellungen der alten Tabelle. Aber ich denke das war es was Du gesucht hast

Viel Erfolg

Gruß Mike