Thema: Excel-Datei läßt sich nicht richtig speichern, weil im VBA-Code Activesheet angewendet wurde - und auch muß - was machen?


Seite durchsuchen:
Home


zurück zur Übersicht

Diskussionsgruppe: Tabellenkalkulation

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.

    •  Von: catze Datum: 23.05.2007, 14:04

    alle Antworten zu dieser Frage


    Antwort 1 von Catze vom 23.05.2007, 14:41
    Hab diese Frage übrigens auch im VB-Programmieren-Forum gestellt. Wußte nicht wo ich richtig bin, die iennen verweisen einen hier hin, die anderen zu den Programmierern...

    Antwort 2 von DukeNT vom 25.05.2007, 10:10
    Hi Catze,
    Zitat:
     ActiveWorkbook.SaveAs Filename:="S:\...\" & Dateiname

    Ist der Speicherpfad so richtig? "S:\...\"
    Teste mal mit einem anderen Pfad. z.B. "C:\"
    Gruß Niels

    Antwort 3 von Catze vom 25.05.2007, 10:13
    Hallo Niels,

    der Pfad ist richtig. Er speichert auch ab, wenn ich 100 mal auf beenden geklickt hab, wenn die Fehlermeldung kommt.

    Grüße, Catze

    Antwort 4 von DukeNT vom 25.05.2007, 10:29
    Welche Fehlermeldung gibt er denn aus, bzw. welche zeile markiert er dir als Fehler?

    Antworten der Gruppe: Tabellenkalkulation
    www.supportnet.de



    Office 365 stellt vertraute Microsoft Office-Tools für die Zusammenarbeit und Produktivität über die Cloud bereit. So können alle ganz einfach von nahezu überall zusammenarbeiten und auf E-Mails, Webkonferenzen, Dokumente und Kalender zugreifen.