Vor dem Speichern Prüfen und ggf löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim wks As Worksheet Dim sName As String Dim rZellen As Range, rZelle As Range Dim bAllX As Boolean Dim sFormat As String, lFormat As Long Set wks = Tabelle1 sFormat = ".xlsm": lFormat = 52 ' Mappe mit Makros 'sFormat = ".xlsx": lFormat = 51 ' Mappe ohne Makros With wks Const sPfad As String = "R:\Arbeitsordner\" 'Backslash hinten drann nicht vergessen ' oder 'Dim sPfad as string 'sPfad = .range("E3") ' Zelle in der der Pfad steht ' zuprüfende Zellen Set rZellen = Union(.Range("A1:B100"), _ .Range("C5:D9"), _ .Range("A2:Z2")) bAllX = True For Each rZelle In rZellen If LCase(rZelle) "x" Then bAllX = False Next rZelle Application.DisplayAlerts = False sName = sPfad & .Range("E3") & .Range("E4") If bAllX Then ' Ja If Dir(sName & "Entwurf" & sFormat) "" Then Kill sName & "Entwurf" & sFormat ' lösche alten Entwurf End If ThisWorkbook.SaveAs sName & sFormat, lFormat Else ' Nein ThisWorkbook.SaveAs sName & "Entwurf" & sFormat, lFormat End If Application.DisplayAlerts = True End With End Sub

Hallo Steve,
tausend Dank erstmal für die Lösung! Sie ist schon nahezu Perfekt.
Ein paar Fragen hab ich noch dazu:
1. Wenn ich richtig gelesen habe, gibt es die LCase Funktion erst ab Office 2013. Gibt es noch eine Alternativ Lösung die auch bei älteren Versionen einwandfrei läuft? (zB 2010..)
Zudem funktioniert die LCase Funktion nur mit klein geschriebenen Buchstaben oder? Wenn ich z.B. das "x" durch "Richtig" ersetzen möchte, wird

If LCase(rZelle)  "Richtig" Then bAllX = False

auf False gesetzt, obwohl in allen Zellen "Richtig" steht. Hab ich da was übersehen?
2. Wenn die Zellüberprüfung positiv ist soll ja unter dem Namen ohne den Zusatz "Entwurf" gespeichert werden und die Datei mit Zusatz "Entwurf" gelöscht werden. Problem: Wenn die Datei mit Endung "Entwurf" geöffnet ist (mit Makro), kann Sie beim Schließen nicht gelöscht werden, da sie ja noch offen ist...gibt es hier eine Lösung?
3. Wenn alle Zellen positiv sind und unter dem Namen E3+E4 abgespeichert wurde, ist das Makro eigentlich hinfällig und es muss nicht jedesmal wieder erneut durchlaufen wenn man die Mappe geöffnet hatte und wieder schließt. Kann ich das einfach ausschalten, indem ich als .xlsx speichere in diesem Fall, oder kommt es dann zu Komplikationen?
Danke & Gruß,
jones

Hallo Jones,
zu 1.:
LCase heist nix anderes als den Text in Kleinbuchstaben umzuwandeln. Das bedeutet, dass du niemals ein "falsches" Ergebnis erzielen kannst weil dein Prüftext ja mit einem Großbuchstaben beginnt. Somit wird bAllX immer falsch sein. Wenn du das Wort "Richtig" verwenden willst, nimmst du also "richtig". Wenn du mit einer Dropdown arbeitest, kannst du auch das LCase() weglassen, ich habe nur sicherstellen wollen, dass dir sowohl ein großes als auch ein kleines X als Eingabe möglich waren.
LCase() gibt es auch unter Office 2010. Sicherlich hast du das hier gelesen?:
https://msdn.microsoft.com/de-de/library/office/gg264497.aspx
Direkt unter der Überschrift "Other Versions" auswählen, dann kommt auch eine Hilfe für O2010.
zu 2.:
Da muss ich kurz nachfragen: Ist das die Datei in der dieses Makro ausgeführt werden soll?
Falls ja, mein Fehler. Die Datei kann sich ja nicht selber killen, daher muss zuerst das " _ Speichern unter" ausgeführt werden, dann ist deine Entwurfs-Datei auch nicht mehr offen. Danach kann man sie löschen.


Application.DisplayAlerts = False
sName = sPfad & .Range("E3") & .Range("E4")
If bAllX Then ' Ja
ThisWorkbook.SaveAs sName & sFormat, lFormat
If Dir(sName & "Entwurf" & sFormat)  "" Then
Kill sName & "Entwurf" & sFormat ' lösche alten Entwurf
End If
Else ' Nein
ThisWorkbook.SaveAs sName & "Entwurf" & sFormat, lFormat
End If
Application.DisplayAlerts = True

Wenn nicht gebe ich dir den Tipp, Schließe die Mappen vorher. Das sollte für dich kein Problem sein und erspart viel Aufwand beim Programmieren. Wenn ein anderer Benutzer im Netzwerk die Datei offen hat, kann man mit Excels VBA nicht viel machen. Da hilft nur Telefon in die Hand nehmen.
zu 3.:
Nein, du hast ja erreicht was du wolltest. Deshalb habe ich dir auch das Format ohne Makros mit in den Code getan, weil ich der Ansicht war dass das Makro hinterher nicht mehr gebraucht wird, aber die Entscheidung triffst du. Komplikationen sollte es dabei nicht geben. Auch wenn der Code entfernt wird beim Speichern unter, so wird das Makro noch bis zum Schluss abgearbeitet.
lg Steve

For Each oButton In ThisWorkbook.Sheets("Tabelle1").Shapes ' 12 entspricht ActiveX "Commandbutton.1" ' 8 entspricht Formularsteuerlement "Schaltfläche" If oButton.Type = 12 Or oButton.Type = 8 Then oButton.Delete Next oButton

Beliebteste Forumthreads (12 Monate)

Vor dem Speichern Prüfen und ggf löschen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vor dem Speichern Prüfen und ggf löschen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread