Office: Aus Excel Datei herraus eine neue Excel Datei erstellen

Hallo,

ich bin praktisch ins kalte Wasser geworfen worden, habe null Ahnung von VB und soll jetzt einiges zusammenbasteln. Ich kriegs aber einfach nicht hin und würde euch gern um Hilfe bitten.

Ich habe eine Excel Datei als Export aus einer Datenbank. Mit dieser Datei soll einiges passieren, jedoch soll zu Anfang erst einmal eine weitere leere Excel Datei erstellt werden, die im Dateinahmen unter anderem das aktuelle Datum trägt: ExportMitTelefon_aktuellesDatum.

Die Datei selbst soll keine Inhalte haben, jedoch sollen 5 leere Arbeitsblätter enthalten sein, die nach folgendem Muster benannt sind: Anbeiter1_aktuellesDatum.

Ich wäre euch echt dankbar wenn ihr mir diese für einen Noob unlösbar scheinende Aufgabe etwas erleichtern könntet.


Hab bis jetzt folgendes zusammengefummelt:

Code:

Sub ErstelleTrennungMitTelefon()
Workbooks.Add
Worksheets.Add Count:=1, After:=Sheets(Sheets.Count)
Worksheets.Add Count:=1, After:=Sheets(Sheets.Count)
ActiveWorkbook.SaveAs Filename:="D:\- Temp -\TrennungMitTelfon " & Date$ & ".xls"
End Sub

Jetzt müsste ich nur noch wissen wie man den Arbeitsblättern entsprechend die Namen verpasst

 

Code:

Option Explicit
Sub ErstelleTrennungMitTelefon()
    Dim LoI As Long
    Workbooks.Add
    For LoI = 1 To 5
        If Worksheets.Count < LoI Then
            Worksheets.Add Count:=1, After:=Sheets(Sheets.Count)
        End If
        ActiveSheet.Name = "Anbeiter" & LoI & Format(Date, "yymmdd")
    Next
    ActiveWorkbook.SaveAs Filename:="D:\- Temp -\TrennungMitTelfon " & Date$ & ".xls"
End Sub

 

Cool, vielen Dank, dass hilft mir sehr weiter!! :-)