Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro beim Schließen/Öffnen von Datei

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

Makro beim Schließen/Öffnen von Datei
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

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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

Anzeige
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

Anzeige
;

Forumthreads zu verwandten Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Messagebox nach 1-2 Sec automatisch schließen
hajo

Hallo zusammen,
gibt es eine Möglichkeit eine MSGBox oder ähnliches aufzurufen, ein paar Sekunden anzeigen zu lassen und automatisch zu schließen, so dass das Makro weiterläuft?
Vielen Dank für Eure Hilfe
25.11.2008 12:07:21
Thread-ID: 1027660
3 Beiträge
Ziffern umsetzten von 1-6 in 0 und größer in 6
1-6

Hallo Ihr Lieben,
kann mir einer helfen, ich lasse in einer Spalte eine Zahl ausrechnen und würde gerne im nächsten Feld der Zeile dann dementsprechend entweder eine '6' zu stehen haben oder eine '0' von 1 bis 6 soll eine 0 erscheinen und alle anderen Zahlen eine 6. Für eine Antwort wäre ic...
24.04.2009 11:02:31
Thread-ID: 1070878
4 Beiträge
Anzeige
Fehler beim Öffnen und Schließen
kleinerfinger

Hallo und einen schönen guten Morgen !
Ich habe folgendes Problem:
Jedes mal wenn ich Excel starte bekomme ich folgende Fehlermeldung:
Kompilierungs-Fehler in verborgenen Modul: AutoExecNew
und beim Schließen:
Kompilierungs-Fehler in verborgenen Modul: DistMon
Wie bekomm...
25.05.2009 08:15:25
Thread-ID: 1077075
16 Beiträge
Anzeige
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
3. Februarwoche (15.2.2010)
Heinz

Hallo Leute
Ich bräuchte bitte für einen Ferienkalender immer den Beginn der 3. Februarwoche (15.2.2010)
In A39 steht 1.2.2010
Hätte dazu bitte jemand eine Formel.
Gruß Heinz
04.08.2009 17:18:03
Thread-ID: 1093590
5 Beiträge
=VERWEIS(2;1/(D22:D33<>""); D22:D33)
Claudia

Hallo zusammen,
mittels dieser Formel
=VERWEIS(2;1/(D22:D33""); D22:D33)
suche ich mir die erste belegte Zelle im Bereich D22:D33. Jetzt muss ich aber die zweie belegte
Zelle von unten finden.
zum beispiel statt D25 soll D24 angezeigt werden.
Geht das auch mittels einer...
10.08.2009 15:52:18
Thread-ID: 1094771
6 Beiträge
Formel in VBA mit " funktioniert nicht
ChrisW

Hallo Leute,
ich möchte der Variablen Fo4 folgende Formel zuweisen:
Fo4 = "=SUMPRODUCT(('Detailed Table'!$G$4:$G$63556="PR")*(('Detailed Table'!$A$4:$A$63556)=$A3)*(('Detailed Table'!$J$4:$J$63556)))"
Excel meckert aber und markiert mir PR was wohl an den Anführungszeichen liegt die...
28.08.2009 15:22:19
Thread-ID: 1099200
6 Beiträge
1100203 geht das mit Variablen3
sascha

Hallo Hary
Die Excel Mappe ist ja der Hammer die Möglichkeit 1 ist schon sehr hilfreich wenn es noch möglich wer bei eingabe aller daten einen entbutton stzen zu können und dann das ergebnis in der gleichen Tabelle sehen zu können um denn überblig zu behalten wer schon verbucht ist und wer...
03.09.2009 22:47:48
Thread-ID: 1100505
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige