Vorlage mit neuen Namen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Vorlage mit neuen Namen
von: URE
Geschrieben am: 05.07.2002 - 21:30:24

Hallo Forum Nutzer,

habe ein Problem, möchte eine Datei kopieren und mit neuem Namen abspeichern.
zB. In der Verwaltungsdatei(Verw.XLS) wurde ein neuer Mitarbeiter angelegt, Name des MA steht in Zelle C7 nun sollte die Datei (Stundenvorlage.XLS) mit dem Namen des neuen Mitarbeiters gespeichert werden und die Vorlagendatei erhalten bleiben. geht so etwas in Excell

vielen Dank schon mal

Ursula


nach oben   nach unten

Re: Vorlage mit neuen Namen
von: Dieter Klemke
Geschrieben am: 05.07.2002 - 22:53:01

Hallo Ursula,
du kannst die Sache in etwa so machen:

Sub MitarbeiterDatei()
Dim mitarb As String
Dim pfadM As String
Dim pfadT As String
Dim wbM As Workbook
Dim wbV As Workbook

pfadM = "E:\Mitarbeiter\"
pfadT = "E:\Vorlagen\"
Set wbV = Workbooks("Verw.xls")
mitarb = wbV.Worksheets(1).Range("C7")
Set wbM = Workbooks.Add(Template:=pfadT _
& "Stundenvorlage.xls")
wbM.SaveAs FileName:=pfadM & mitarb & ".xls"
End Sub

Interessant wäre noch die Frage, wie du die Erzeugung der neuen Datei auslösen willst.

MfG
Dieter

nach oben   nach unten

Re: Vorlage mit neuen Namen
von: URE
Geschrieben am: 06.07.2002 - 09:57:54

Hallo Dieter,

zunächst mal vielen Dank für Deine Hilfe.

Die neue Datei soll mittels eines command Buttons Erzeugt werden.

Ich werde deinen Vorschlag ausprobieren und mich dann wieder melden.

Vielen Dank nochmal

Gruß Ursula


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Vorlage mit neuen Namen"