Hallo zusammen,

ich habe folgendes Problem:

Ich habe ein Programm in Excel geschrieben, in welchem ein Sheet immer wieder kopiert wird.

s = "Fertigung"
On Error Resume Next
Sheets("Fertigung").Copy after:=ActiveSheet
ActiveSheet.Name = s

Somit erhalte ich folgende Sheets: Fertigung(1), Fertigung(2) etc

In allen Sheets muß der mitkopierte VBA-Code laufen. Deshalb hab ich im Code immer ActiveSheet anstatt Sheets("Fertigung") genommen.

Am Ende des Programmes möchte ich die ganze Datei speichern.

Private Sub CommandButton2_Click()

    Dim Dateiname As String
    Dateiname = Application.InputBox(prompt:="Bitte Dateinamen eingeben:")
    ActiveWorkbook.SaveAs Filename:="S:\...\" & Dateiname
    ActiveWorkbook.Close
    Application.DisplayAlerts = True

End Sub

Nun meckert Excel jedes Mal bei Speichern und Debuggt mir mein ActiveSheet.

Weiß jemand warum bzw. kann mir helfen?

Vielen Dank!
Catze

^{*Threadedit*
Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe FAQ 2.}