Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

160 Forumthreads zu ähnlichen 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
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
Anzeige
this Workbook und auch this worksheets?
lisa

Hallo
Ich würde in meinem unten gezeigten Code gern auf die Bezeichnung des Tabellenblattes verzichten.
Wenn ich anstelle von,
ThisWorkbook.Worksheets("Donnerstag").Range("z13"). ,
ThisWorkbook.ThisWorksheets.Range("z13"). , einsetze klappte es nicht.
Kann man ohne Benennung...
16.11.2009 12:45:03
Thread-ID: 1117562
8 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
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
2
2
2
4
13
7
17
4
2
7
6
2
2
1
5
2
3
5
5
1
9
7
2
2
3