Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datei stürzt ab Workbook_BeforeSave
zurück: Dateiname aus Application.Dialogs(xlDialogOpen) filtern weiter: fehlersuche Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
holysteiger
Wicht


Verfasst am:
19. Jul 2011, 15:16
Rufname: Steiger
Wohnort: Kalle

Datei stürzt ab Workbook_BeforeSave - Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

Hallo,

die Datei soll unter entsprechendem Dateiname abgespeichert werden.
Leider stürzt bei diesem makro immer die Datei ab.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If dirtyflag Then
a = MsgBox("You made changes. Do you want to save under a new revision?", vbYesNo, "Revision change")
If a = vbYes Then
UserForm1.Show
Else: Exit Sub
End If
End If
ActiveWorkbook.SaveAs "M:\overview\halihalo.xls"

End Sub

Kann mir jemand helfen?

_________________
Enjoy life!
Steiger
y-vonne
Gast


Verfasst am:
19. Jul 2011, 15:24
Rufname:


AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

!!! Codetags verwenden !!!
!!! Code formatieren !!!


Code:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If dirtyflag Then
        a = MsgBox("You made changes. Do you want to save under a new revision?", vbYesNo, "Revision change")
        If a = vbYes Then
            UserForm1.Show
            ActiveWorkbook.SaveAs "M:\overview\halihalo.xls"
        End If
    End If
End Sub


Was machst du in der UserForm1 ??
holysteiger
Wicht


Verfasst am:
19. Jul 2011, 15:33
Rufname: Steiger
Wohnort: Kalle

AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

In der Userform werden Revisionstände erfasst:

Änderungsdatum:
aktuellerRevisionstand: xxx
Info zur Änderung

Ziel mit dem Speichern sollte es sein, dass wenn der Speicher-Button in der Symbolleiste gedrückt wird, nicht die aktuelle Datei überschrieben sondern eine neue Datei angelegt wird.

In Etwa so: date{heute() nichtÄnderungsdatum} & "Dateiname" & aktuellerRevisionsstand & ".xls"

_________________
Enjoy life!
Steiger
y-vonne
Gast


Verfasst am:
19. Jul 2011, 15:34
Rufname:

AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

Also dann passt ja meine Lösung!
holysteiger
Wicht


Verfasst am:
19. Jul 2011, 15:42
Rufname: Steiger
Wohnort: Kalle


AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

Nein, leider wird immer über den alten Namen gespeichert.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)


If dirtyflag Then
a = MsgBox("You made changes. Do you want to save under a new revision?", vbYesNo, "Revision change")
If a = vbYes Then
UserForm1.Show
ActiveWorkbook.SaveAs "M:\Overview\" & Date & revisionstand & ".xls"

End If
End If



End Sub

_________________
Enjoy life!
Steiger
holysteiger
Wicht


Verfasst am:
19. Jul 2011, 15:47
Rufname: Steiger
Wohnort: Kalle

AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

Das Problem ist, dass ich auf jeden Fall eine Eingabe in die Userform machen muss. Dann klappts.


Breche ich die Userform aber ab, stürzt Excel ab.

_________________
Enjoy life!
Steiger
y-vonne
Gast


Verfasst am:
19. Jul 2011, 15:49
Rufname:

AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

Drum habe ich gefragt was du in der Userform machst. Dann musst du natürlich abfragen ob die Userform gültige Werte liefert.

Und bitte beachte doch meine Hinweise:

!!! Codetags verwenden !!!
!!! Code formatieren !!!
holysteiger
Wicht


Verfasst am:
19. Jul 2011, 15:52
Rufname: Steiger
Wohnort: Kalle

AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

!!! Codetags verwenden !!!
!!! Code formatieren !!!

Sorry, klär mich mal auf.

_________________
Enjoy life!
Steiger
y-vonne
Gast


Verfasst am:
20. Jul 2011, 07:50
Rufname:


AW: Datei stürzt ab Workbook_BeforeSave - AW: Datei stürzt ab Workbook_BeforeSave

Nach oben
       Version: Office 2003

Zitat:
Sorry, klär mich mal auf.


Schau dir einfach mal an wie ich den Code eingestellt habe und wie du das gemacht hast. Ich denke wie es geht findest du schnell selber raus. Very Happy
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Indirekt() auf andere Datei. Nur wenn Datei offen ist??? 2 Lukas_G 2112 06. Sep 2007, 16:58
Lukas_G Indirekt() auf andere Datei. Nur wenn Datei offen ist???
Keine neuen Beiträge Excel Formeln: Bundesligatabelle aufpimpen mit Link zur Datei 14 czab28 790 15. Aug 2007, 11:40
McAdder Bundesligatabelle aufpimpen mit Link zur Datei
Keine neuen Beiträge Excel Formeln: letzte benutzte Dateien unter "Datei" anzeigen 4 Reichmann 1294 16. Jul 2007, 11:08
Gast letzte benutzte Dateien unter "Datei" anzeigen
Keine neuen Beiträge Excel Formeln: ecxel datei funzt bei xp nicht mehr 3 arcos 1190 12. Jun 2007, 18:22
Klaus-Dieter ecxel datei funzt bei xp nicht mehr
Keine neuen Beiträge Excel Formeln: Excel Datei zu groß welche Möglichkeiten?? 1 Gast 2009 04. Jun 2007, 10:44
Alto Excel Datei zu groß welche Möglichkeiten??
Keine neuen Beiträge Excel Formeln: Excel stürzt bei laden von Mappe ab 2 binfredusa 594 30. Apr 2007, 11:46
binfredusa Excel stürzt bei laden von Mappe ab
Keine neuen Beiträge Excel Formeln: Text Datei in Zelle einlesen 0 roman.platter 692 10. Apr 2007, 20:18
roman.platter Text Datei in Zelle einlesen
Keine neuen Beiträge Excel Formeln: Aus externer Datei das Datum und die Zeit auslesen 2 norics 1209 28. März 2007, 08:47
norics Aus externer Datei das Datum und die Zeit auslesen
Keine neuen Beiträge Excel Formeln: Daten einer Excel Datei in andere übernehmen Excel 2002 SP3 4 DTox 2664 27. Okt 2006, 11:56
Gast Daten einer Excel Datei in andere übernehmen Excel 2002 SP3
Keine neuen Beiträge Excel Formeln: Text aus Zelle in .txt Datei schreiben 4 Gast_Michi 1120 22. März 2006, 16:12
Gast Text aus Zelle in .txt Datei schreiben
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Excel Formeln: Zeile auslesen / einlesen (Externe Datei) 0 MavPic 1615 07. März 2006, 12:03
MavPic Zeile auslesen / einlesen (Externe Datei)
Keine neuen Beiträge Excel Formeln: Zellen-Import aus Word Datei 1 Heavyduty 802 15. Jan 2006, 20:32
Hübi Zellen-Import aus Word Datei
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum