Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

BeforeClose und Worksheet_Change kombinieren

Forumthread: BeforeClose und Worksheet_Change kombinieren

BeforeClose und Worksheet_Change kombinieren
12.02.2018 10:22:20
Basti
Hallo Forum,
ich hoffe, ihr könnt mir bei meinem Problem behilflich sein.
Ein Makro soll ausgeführt werden [Call Sub()], wenn die Datei geschlossen wird UND im Tabellenblatt 1 eine Änderung erfolgt ist.
Kann man BeforeClose und Worksheet_Change irgendwie kombinieren?
Dank und Gruß
Basti
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BeforeClose und Worksheet_Change kombinieren
12.02.2018 10:44:09
Werner
Hallo Basti,
in ein allgemeinse Modul: 
Public Änderung As Boolean
Public Sub Test()
MsgBox "Hallo Basti"
Änderung = False
End Sub
Ins Modul des Arbeitsblattes, das auf Änderungen überwacht werden soll: 
Private Sub Worksheet_Change(ByVal Target As Range)
'Überwacht wird Zelle A1
If Target.Address(0, 0) = "A1" Then
Änderung = True
End If
End Sub
Ins Modul von DieseArbeitsmappe: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Änderung Then
Call Test
ThisWorkbook.Save
End If
End Sub
Gruß Werner
Anzeige
AW: BeforeClose und Worksheet_Change kombinieren
12.02.2018 16:39:26
Basti
Perfekt! Danke Werner.
Gerne u.Danke für die Rückmeldung. o.w.T.
12.02.2018 16:46:14
Werner
;

Forumthreads zu verwandten Themen

Syntax Spalte über Objekt Workbook - Worksheet ...
Peter

...
Guten Tag
Wie kann ich die einen bestimmten Bereich in einer Tabelle mittels Objekt Workbook und Objekt Worksheet ansprechen?
Im nachfolgenden Code funktioniert
With wbZiel.wsTab
nicht.
Danke für eine Antwort.
Gruss, Peter
Sub spaltenbreite2() Dim wbZiel As...
11.12.2008 09:11:14
Thread-ID: 1031920
3 Beiträge
Anzeige
Anordnung Worksheets ändern (Code)
Florian

Morgen zusammen,
wie kann ich die Anordnung der Worksheets per Makro ändern (Codezeile). Worksheet(3) soll also z.B. an erster platziert werden.
Danke, Gruss!
Florian
10.03.2009 09:08:12
Thread-ID: 1058472
3 Beiträge
Passwort in Worksheet
Sven

Hi
Wollte mit diesem Code das Blatt entsperren. Leider funktioniert es nicht so wie ich es wollte.
Worksheets("Lager").Unprotect , Password:="1w56"
Für Eure hilfe wäre ich froh
Gruß
Sven
14.03.2009 19:10:39
Thread-ID: 1060230
3 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Worksheet_Change Fehler bei Wechsel des Worksheets
Frank

Guten Morgen,
ich möchte bei Änderung auf einem "Tabellenblatt 1" mit Hilfe des Ereignisses "Worksheet_Change" in einem "Tabellenblatt 2" einen Bereich kopieren und diesen ins "Tabellenblatt 1" kopieren.
Ich erhalte die Fehlermeldung "Die Methode 'Range' für das Objekt '_Worksheet' ist...
09.10.2009 09:38:17
Thread-ID: 1108473
14 Beiträge
Error 1004 'Copy Method of Worksheet Class failed'
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Mit einem Messprogramm wird jeden Tag eine Datei mit einigen Hundert Werten in einem Ordner erstellt. Diese...
27.04.2010 10:05:48
Thread-ID: 1153991
18 Beiträge
ThisWorkbook.Worksheets("Check").Tab.ColorIndex ..
Peter

Guten Tag
Untenstehender Code stoppt bei der Zeile
ThisWorkbook.Worksheets("Check").Tab.ColorIndex = 10 ' = grün
wenn die aktive Tabelle, bei der eine Änderung erfolgt, nicht die Tabelle "Check" ist.
Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
...
02.09.2010 08:55:46
Thread-ID: 1175368
5 Beiträge
in neuem Workbook zweites Worksheet einfügen
Peter

Guten Tag
Ich möchte in einem neu angelegten Workbook ein zweites Worksheet einfügen und dieses dann mit "Test" benennen. Mein Versuch ist fehlgeschlagen. Wer hilft mir weiter?
Danke und Gruss, Peter
Sub NeueTabelle() Dim wbNeu as Workbook, WS as Worksheet Set wbNeu = Workbooks.Ad...
19.09.2011 12:47:07
Thread-ID: 1230558
3 Beiträge
workbook / worksheet
Hartmut

Hallo liebes Forum
Ich habe zwei identische Macros in meiner Tabelle
ein mal wird das Macro beim öffne der Tabelle ausgeführt mit:
Private Sub Workbook_Open() 'mein code end if End Sub dann genau das gleiche Macro in der Tabelle bei calculate
Private Sub Worksheet_Calculate() '...
05.07.2012 09:26:00
Thread-ID: 1269972
8 Beiträge
VBA: mehrere workbooks & -sheets
Dani

Hallo Excel- Koryphäen,
Habe folgendes Problem, wo ich keinen passenden code im Archiv finden konnte.
Habe 17 xls-files mit je 2 worksheets.
Der Tabellen-Aufbau ist immer identisch und ich möchte nun für all diese 17 workbooks & deren 2 worksheets die Spaltenbreite anpassen und...
02.08.2012 14:21:51
Thread-ID: 1273532
7 Beiträge
Mehrere Worksmaps in ein Worksheet kopieren
Luke

Hallo,
ich würde gerne mit VBA mehrere Worksmaps(die alle gleich sind(Range A:R)) in ein Worksheet nacheinander kopieren. Die Zeile 1 soll aber nur ein mal mitkopiert werden.
Vl. kann mir jemand helfen
Danke im Voraus
Luke
07.01.2013 10:12:54
Thread-ID: 1293126
3 Beiträge
Anzeige
ForumlaR1C1 umwandeln in WorkSheetFunction?
Maximilian

Hallo!
Zunächst danke an Rudi für den Lösungsvorschlag letzte Woche:
=SUMMENPRODUKT((sapLISEK_komplett.xls!$B$2:$B$1739=$C2)*(sapLISEK_komplett.xls!$C$2:$C$1739=D$1) *sapLISEK_komplett.xls!$E$2:$E$1739) Allerdings funktioniert das irgendwie nicht so, wie es soll -> alle Werte sind...
05.02.2013 10:24:45
Thread-ID: 1297678
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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