Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help

Forumthread: ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help

ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
23.06.2014 14:57:24
Thorben
Hallo alle zusammen,
folgender Code legt eine Kopie ab und bringt Excel dann zum Absturz!?
  • 
    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Filestring1 = "\Test1.xlsm"
    Filestring2 = "\Test2.xlsm"
    If ActiveSheet.Range("G1") = "Bestand 1" = True Then
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Filestring1
    Else
    ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & Filestring2
    End If
    ActiveWorkbook.Save
    End Sub
    

  • Er speichert zwar die Kopie aber dann ist Feierabend.
    Wenn ich den Pfad direkt anweise dann klappts ohne mucken:
  • ActiveWorkbook.SaveCopyAs "H:\Ordner\Test1.xlsm"

  • Möchte aber mit ThisWorkbook.Path arbeiten.
    Jemand ne Idee warum Excel damit Probleme hat?
    Danke und Gruß
    Thorben

    Anzeige

    5
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
    23.06.2014 15:03:17
    Rudi
    Hallo,
    das produziert eine Endlosschleife
    ThisWorkbook.SaveAs ruft die Prozedur auf.
    Gruß
    Rudi

    AW: ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
    23.06.2014 15:14:02
    Thorben
    Hallo Rudi,
    ok,
    Wie muss ich es machen ? (ich krieg "gerade" echt nicht die "Kurve" :-)
    Danke

    AW: ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
    23.06.2014 15:32:43
    Daniel
    Hi
    entweder mit SaveCopyAs so wie in deinem Beispiel für die Manuelle Namensvergabe beschrieben, weil SaveCopyAs das BeforeSave-Makro nicht aufruft.
    oder du bringst vorher den Befehl: Application.EnableEvents = False, dieser Befehel verhindert ebenfalls das automatische Ausführen der Eventmakros.
    Hinterher muss man die Events wieder einschalten, damit sie danach normal funktionieren:
    Application.EnableEvents = False
    ThisWorkbook.SaveAs ThisWorkbook.Path & "\..."
    Application.EnableEvents = True
    
    Gruß Daniel

    Anzeige
    AW: ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
    23.06.2014 15:12:26
    Daniel
    Hi
    Frage: ist ThisWorkbook das gleiche wie das ActiveWorkbook?
    Falls ja, startest du mit "ActiveWorkbook.Save" eine Endlosschleife des BeforeSave-Makros.
    Das ActiveWorkbook.Save ist in diesem Fall aber nicht notwendig, denn es wird nach dem BeforeSave-Makro ja sowieso gespeichert (falls du es nicht durch Cancel = True verhinderst)
    Gruß Daniel

    Anzeige
    oh mann, Danke! Ich brauch Urlaub...
    23.06.2014 15:39:12
    Thorben
    Hallo Daniel,
    habe ActiveWorkbook.Save rausgenommen (ich war mir nicht sicher ob Before_Save auch wirklich nach ifthenelse auch noch speichert...)
    und bei Application.EnableEvents = False war ich mir auch nicht sicher ob ich damit nicht schon das Event "Before_Save" vorzeitig beende...
    Die ollen "DillTanten" mal wieder...
    Danke für eure Rückmeldunge.
    MfG
    Thorben
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige