Datum

Titel

16.04.2024 23:30:16

Anzahl Jahre Zählen aus Datumreihe

16.04.2024 19:22:16

Von exceltabelle in word per steuerelement temarker

16.04.2024 18:50:53

Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle

16.04.2024 17:18:01

Projektplan-Tabelle oder Gantt ohne Balken

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

164to168

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Makro beim Schließen/Öffnen von Datei

Forumthread: Makro beim Schließen/Öffnen von Datei
6 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
Top 100 Forumthreads

26.09.2002 17:34:37

skyglider

Hallo
wie kann man das Schließen einer Datei abfragen und dann noch bevor diese Datei endgültig geschlossen wird, noch ein Formatbefehl für eine Spalte durchführen.

Prozedur könnte natürlich alternativ auch beim Öffnen der Datei durchgeführt werden, wenn dies einfacher zu lösen ist.
Gruß
skyglider

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

siehe Hilfe

26.09.2002 17:40:12

andre
Re: Makro beim Schließen/Öffnen von Datei

26.09.2002 17:42:06

Rolf, Lgh.
Wo steckt der Fehler ?

27.09.2002 14:40:39

skyglider
Code in diese Arbeitsmappe...

27.09.2002 17:30:33

andre
Re: Wo steckt der Fehler ?

27.09.2002 20:27:49

Rolf, Lgh.
Geschafft ,aber......

28.09.2002 00:12:42

skyglider

siehe Hilfe

26.09.2002 17:40:12

andre

siehe Hilfe
Private Sub App_WorkbookBeforeClose(ByVal Wb as Workbook, _
Abbrechen as Boolean)
a = MsgBox("Möchten Sie diese Arbeitsmappe wirklich schließen?", vbYesNo)
If antwort = vbNo Then Abbrechen = True
End Sub

Re: Makro beim Schließen/Öffnen von Datei

26.09.2002 17:42:06

Rolf, Lgh.

Hallo,
in DieseArbeitsmappe

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
End Sub
Private Sub Workbook_Open()
End Sub

Code eingefügt mit Syntaxhighlighter 1.13

Gruß Rolf

Wo steckt der Fehler ?

27.09.2002 14:40:39

skyglider

Bin wirklich kein VBA'er.
Ich bekomme es nicht hin, wo steckt hier der Fehler ?

Private Sub Workbook_Before_Close(Cancel As Boolean)
Call Format
End Sub

Sub Format()
Range("C:C").Font.ColorIndex = 1
End Sub

Gruß
Skyglider

Code in diese Arbeitsmappe...

27.09.2002 17:30:33

andre

Hallo Skyglider,

im VBA-Editor doppelklicken auf DieseArbeitsmappe (steht links im Projektexplorer)

Es geht ein Codefenster auf.

Links, wo Algemein steht WorkBook wählen. Im code kommt eventuell Private Sub workbook_open()...., das stört aber nicht.

Rechts, wo Deklaration steht BeforeClose wählen.
Es erscheint:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Dazwischen trägst Du Dein Call Format ein.
Sub Format kann in ein "normales" Menü.

gruss andre

Re: Wo steckt der Fehler ?

27.09.2002 20:27:49

Rolf, Lgh.

Geschafft ,aber......

28.09.2002 00:12:42

skyglider

Dank euch beiden, ich hab's hin bekommen und damit kann ich leben.
Aber..
es funktioniert nur, wenn ich beide Sub's in "diese Arbeitsmappe" stelle, und nicht wie Andre meint, den Sub Format in jede anderen Tabellen(Code) stellen kann. Ich bekomme die Kompilierungsfehlermeldung "Argument ist nicht optional", wobei der Call Format - Befehl markiert ist.

Desweitern ist mir aufgefallen, wenn der Format Befehl mit Range "C:C" in "dieser Arbeitsmappe" steht, müßte er doch eigentlich für jedes Tabellenblatt gelten. Tut er aber nicht, habs ausprobiert. Er funktioniert nur fürs 1. TAbellenblatt, und damit kann ich, wie gesagt, leben.
"Sauber" ist dies jedoch nicht, aber wahrscheinlich steckt der Fehler bei mir noch im Detail oder meine Annahme ist falsch.
Gruß
skyglider