Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1372to1376
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
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgeblendete Arbeitsmappe vor Beenden speichern

Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 13:16:41
David
Hallo,
ich möchte die ausgeblendete Arbeitsmappe personal.xlsb automatisch vor dem Beenden Speichern.
wenn ich den folgende Code in 'DieseArbeitsmappe' einer eingeblendeten Arbeitsmappe schreibe, klappt das. 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Workbooks("personal.xlsb").Save
End Sub
Aber der Code wird nicht ausgeführt, wenn die Arbeitsmappe ausgeblendet ist.
Ich kann natürlich den obigen code in eine andere Arbeitsmappe schreiben, allerdings möchte ich, dass das bei jeder Arbeitsmappe passiert.
Irgendwelche Ideen, wie ich das machen kann?

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 13:37:31
Daniel
Hi
der Code steht ja im Modul "DieseArbeitsmappe".
in diesem Modul kannst du die betroffene Mappe immer mit dem Schlüsselwort ME referenzieren und bist damit unabhängig vom Dateinamen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Me.Save
End Sub
das sollte eigentlich auch bei einer ausgeblendeten Mappe funktionieren.
Gruß Daniel

AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 14:07:28
David
Danke. Das ME ist sicher etwas kürzer/schöner.
Aber es löst mein Problem noch nicht, da die Routine 'Workbook_BeforeClose' gar nicht ausgeführt wird, wenn die Arbeitsmappe ausgeblendet ist.
Bei eingeblendeter Arbeitsmappe funktioniert es. (Beide, das ME und die konkrete Ansprache Application.Workbooks("personal.xlsb") )

Anzeige
AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 14:16:11
Daniel
Hi
wie blendest du denn aus?
Mit Windows(Me.Name).Visible = False im WorkbookOpen-Event?
ich mach das so und dann wird auch bei dieser Datei das BeforeClose-Event ausgeführt, auch wenn sie ausgeblendet ist.
Check mal, ob du dich nicht zufälligerweise im Entwurfsmodus befindest (ggf Menüleiste "Entwicklertools aktivieren"),
und ob die Events auch aktiv sind.
Hierzu gibts du im Direktfenster den Befehl ein: ?Application.EnableEvents und wenn das Ergebnis "FALSCH" ist, dann aktivierst du die Events mit Application.EnabelEvents = True ein.
gruß Daniel

Anzeige
AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 14:43:48
David
Bei mir sind EnableEvents eingeschaltet.
Normalerweise blende ich über das Excel-Fenster ein/aus. Ansicht -> Fenster -> Ausblenden/Einblenden.
Das ist aber das gleiche wie das von dir angesprochene .Visible
Die folgende Zeile returns "True" wenn das eingeblendet und "False" wenn ausgeblendet 
Debug.Print Windows(Application.Workbooks("personal.xlsb").name).Visible
Das BeforeClose-Event wird bei mir jedoch nur ausgeführt, wenn .Visible = True

AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 14:48:21
Robert
Hallo David,
Blöde Frage, aber das Workbook_BeforeClose Event das du ausführen willst befindet sich schon in genau dieser personal.xlsb unter "DieseArbeitsmappe"?
Viele Grüße
Robert

Anzeige
AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 15:32:03
David
Ja, es befindet sich in der richtigen Aarbeitsmappe, d.h. in der Projektauflistung unter personal (personal.xlsb) | Microsoft Excel Objekte | DieseArbeitsmappe.
FYI, diese Arbeitsmappe (personal.xlsb) ist eine "persönliche Arbeitsmappe", keine 'normale' arbeitsmappe. Die 'normalen' Arbeitsmappen stehen in der Projektauflistung unter VBAProjekt (Dateiname.xlsm)
Blöde Frage? Bestimmt nicht. Meistens liegt es doch an solchen Kleinigkeiten, wenn etwas nicht klappt.

AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 15:40:19
Robert
Hm... da fällt mir nichts dazu ein, außer vllt ein Workaround...
Wie wäre es mit Speichern der Mappe im Workbook_DeActivate Event?
Damit wird die Mappe gespeichert, wenn du von ihr in eine Andere Mappe wechselst.
Ansonsten:
Bitte beachte, dass .EnableEvents immer für die gesamte Application gilt.
Das bedeutet, dass möglicherweise die Events in einer anderen Arbeitsmappe/Makro deaktiviert werden.
Viele Grüße
Robert

Anzeige
AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
12.08.2014 16:28:53
Tino
Hallo,
versuch es mal mit dem Event Auto_Close in einem normalen Modul.
kommt als Code in Modul1 in die PERSONAL.XLSB 
Option Explicit 
 
Sub Auto_Close() 
    ThisWorkbook.Save 
End Sub
Gruß Tino

AW: Ausgeblendete Arbeitsmappe vor Beenden speichern
13.08.2014 12:32:39
David
Tino,
das Auto_Close Event funktioniert! Auch bei ausgeblendeter Arbeitsmappe. Vielen Dank.
Anzeige

299 Forumthreads zu ähnlichen Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Anzeige
Daten aus Userfom in eine ausgeblendete Tabelle
Ramon

Hallo alle zusammen,
ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
Userform in eine Tabelle schreiben.
In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
"data_booked" oder in "data_planned" geschrieben werden, u...
16.09.2008 12:28:00
Thread-ID: 1010054
5 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Anzeige
Gruppierung mit ausgeblendeten Spalten
Leander

Hallo Zusammen!
Ist möchte eine Spalte, beispielsweise Spalte "E" ausblenden, die jedoch in einem Gruppierungsbereich, Spalten "C:G", liegt.
So weit so gut, schließe ich diese Gruppe und öffne diese wieder, ist auch die vorher ausgeblendete Spalte wieder sichtbar.

Kann ich das...
13.11.2008 06:59:45
Thread-ID: 1024010
3 Beiträge
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
Rechnen ohne Ausgeblendetes
Klemens

Hallo,
wenn ich eine Funktion benutze (z. B. SUMME), werden Werte, die in ausgeblendeten Zeilen oder Spalten stehen, in die Berechnung einbezogen. Wie kann ich dies verhindern?
mfg
Klemens Baake
20.11.2008 11:28:51
Thread-ID: 1026351
6 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
3
2
2
2
5
4
11
13
5
2
6
1
2
2
2
1
4
2
1
7
4
7