Datei löschen

wolfgang · 2023-01-05T13:08:39+00:00

Hallo, ich möchte, sobald ich in meiner Tabelle ("Aktuell") bin, dass eine andere offene Datei gelöscht wird. Nur wenn die Datei offen existiert ! Public Sub Worksheet_Change(ByVal Target As Range) 'Workbooks("Lager.xlsm").Close SaveChanges:=False so geht es nicht: kam Fehlermeldung: Nicht genügend Arbeitsspeicher verfügbar für diese Aktion... gruß wolfgang

Hallo Wolfgang,
hmm... nicht leicht die passende Begriffe zu finden, das kann ich nachvollziehen.
"wieder zurück die aktive Tabelle aktiviert werden"
Es ist nun mal so, das die aktive Tabelle die aktive Tabelle ist. Um wieder aktiviert zu werden, müsste die zuerst "deaktiviert", in dem zuerst eine andere aktiviert wird. Somit hat du Recht.
Aber eigentlich ist es nicht, was Du möchtest. Was Du möchtest ist, dass was passiert, wenn diese Tabelle aktiviert wird, jetzt passieren soll.
Da ist eine Trennung der Aktion vom Auslöser notwendig.
Du hast eine Ereignis-Procedure "Worksheet_Activate". Diese macht Aktion xy. Du möchtest, dass diese Aktion xy jetzt ausgeführt wird. Die Lösung besteht nicht daran, das "Activate" zu provozieren, sondern die Aktion separat vom activate zur Verfügung zu stellen.


Private Sub Worksheet_Activate()
Call Aktion_xy
End Sub
Public Sub DamitStarteIch_xy()
Call Aktion_xy
End Sub
Private Sub Aktion_xy()
'hier wird die Aktion in seiner Vollständigkeit programmiert
End Sub

So hast Du 2 Auslöser, die dieselbe Aktion ausführen lassen.
Jetzt ist nur noch die Frage, wie "DamitStarteIch_xy" aufgreifen wird. Am einfachsten mit Alt+F8 und Auswahl dieser Procedure. Eigentlich ist diese vorgeschaltete Procedure gar nicht notwendig. Man kann auch direkt "Aktion_xy" starten. Diese müsste dann "Public Sub" sein.
Ich hoffe, ich kann dir damit Licht in dem Nebel bringen.
VG
Yal

Guten Morgen Yal,
ich habe die Lösung gefunden.
'------- dies befindet sich in der zu kopierenden Datei -----------------------


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Call In_Vorlage_kopieren
ActiveSheet.Cells(12, 11).Select
SendKeys "{ENTER}", True
End Sub

'---- dies befindet sich in der Empfänger Datei -----------------------


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("K13")) Is Nothing Then
Call Datenbank_schließen
End If
End Sub


Private Sub Datenbank_schließen()
Dim wbk As Workbook, X As String
Application.DisplayAlerts = False
For Each wbk In Workbooks
If wbk.Name = "#_Lager.xlsm" Then
X = wbk.FullName
wbk.Close False
'  Kill X
Exit For
End If
Next
Application.DisplayAlerts = True
End Sub

Danke für die genaue Information !
gruß wolfgang

Forumthread: Datei löschen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Datei löschen

Forumthread: Datei löschen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread