Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1720to1724
1720to1724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

löschen und schließen

löschen und schließen
08.11.2019 18:19:07
bassi
Hallo miteinander,
ich scheitere gerade.
Ich möchte die aktuell benutzte Datei schließen und dann löschen.
Folgenden Code habe ich gefunden und unter "Befor close" eingebaut:
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
leider funktioniert das so nicht.
Hat jemand eine Idee wie ich das anstellen kann?

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

Betreff
Datum
Anwender
Anzeige
AW: löschen und schließen
08.11.2019 18:50:46
Hajo_Zi
eine offene Datei löschen 
Sub zMloesche()
'   von Jürgen Wenzel
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ThisWorkbook.Close False
End Sub
Sub zMloesche_ver()
'   angepast, damit nicht zwischen This und Active gewechselt wird
'   vom Melanie Breden
With ThisWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
End Sub
Sub Loeschen()
' schreibgeschützte Datei löschen
' Nepumuk
With ThisWorkbook
SetAttr .FullName, vbNormal
Kill .FullName
.Close False
End With
End Sub


Anzeige
Vielen lieben Dank
08.11.2019 19:26:03
bassi
Bingo.... Jawoll es klappt jetzt.
Erst hatte ich gar keine Lösung jetzt gleich mehrere. Ihr seid echt klasse.
Nochmals vielen herzlichen Dank.
Liebe Grüße
bassi
AW: Vielen lieben Dank
08.11.2019 19:26:56
bassi
ups... Häckchen falsch gesetzt... jetzt aber ....
AW: Vielen lieben Dank
08.11.2019 19:27:01
Hajo_Zi
offen bedeutet es soll noch eine Antwort kommen.
Warum ist dein Beitrag Offen.
Das ist nur meine Meinung zu dem Thema.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige