habe folgenden Sub verwendet aus dem Forum erhalten(Danke), funktioniert auch gut soweit.
Nur wenn die Datei die gespeichert werden soll schon vorhanden ist dann gibts Probleme.
Habe mit OnError schon Experimentiert, nur darf die vorhandene Datei nicht überschrieben werden.
Danke schon mal
Michael Reuter
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim mitarb As String
Dim pfadM As String
Dim pfadT As String
Dim wbM As Workbook
Dim wbV As Workbook
pfadM = "C:\Stundenverwaltung\Mitarbeiter\"
pfadT = "C:\Stundenverwaltung\Vorlagen\"
Set wbV = ActiveWorkbook
mitarb = wbV.Worksheets(2).Range("H10")
Set wbM = Workbooks.Add(Template:=pfadT _
& "Stundenvorlage.xls")
wbM.SaveAs Filename:=pfadM & mitarb & ".xls"
wbM.Close
MsgBox "Datei " & mitarb & " wurde angelegt"
ActiveWorkbook.Close
End Sub