Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Private Sub Workbook_BeforeClose(Cancel As Boolean

Private Sub Workbook_BeforeClose(Cancel As Boolean
22.12.2005 18:22:58
Gunter
Hallo,
ich habe eine Datei mit mehreren Arbeitsblättern. Vor dem schliessen soll auf allen Arbeitsblättern ein vorher markierter Teil zurück gesetzt werden.
Mit dieesem Makro wird nur das aktuelle Arbeitsblatt zurück gesetzt.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Suchbegriff As Range
Set Suchbegriff = Range("A3:IV3").Find(What:=Date, LookAt:=xlWhole)
Range(Suchbegriff.Address).Activate
Range(Suchbegriff.Address).Font.ColorIndex = 1
Range(Suchbegriff.Address).Font.Bold = False
Range(Suchbegriff.Address).Interior.ColorIndex = 2
End Sub

Wie erreiche ich, das das Makro in allen Arbeitsblättern ausgeführt wird?
Danke
Gunter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Private Sub Workbook_BeforeClose(Cancel As Boolean
22.12.2005 18:39:13
Herbert
Hi,
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Suchbegriff As Range, wks As Worksheet
For Each wks In Me.Worksheets
Set Suchbegriff = wks.Range("A3:IV3").Find(What:=Date, LookAt:=xlWhole)
Suchbegriff.Font.ColorIndex = 1
Suchbegriff.Font.Bold = False
Suchbegriff.Interior.ColorIndex = 2
Next
Me.Save
End Sub

mfg Herbert
AW: Private Sub Workbook_BeforeClose(Cancel As Boolean
22.12.2005 18:50:13
Gunter
Hallo Herbert,
vielen Dank, funktioniert wie gewünscht.
Gruss
Gunter
Anzeige

288 Forumthreads zu ähnlichen Themen


Guten Morgen Excelgemeinde,
Ich habe folgendes Problem und bitte um Mithilfe.
In der folgenden Datei möchte ich gerne überprüfen, ob ein "tatsächlicher" Drucker als Standard definiert ist. Wenn "Nein" dann soll der PrinterSetup Dialog aufgerufen werden. Das funzt auch ganz gut, solange...

Liebe Leute
Ich hab mal wieder ein kleines Problem. Folgendes habe ich in "DieseArbeitsmappe" geschrieben:
Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.MoveAfterReturnDirection = xlDown Application.CommandBars("Standard").Visible =...

Hallo Leute
Könnte man den unteren Code etwas eleganter schreiben?
Denn wenn ich die Arbeitsmappe schließe, Flackert der Bildschirm so lange bis alle Sheets geschlossen sind.
Also etwa im Hintergrund schließen.
Danke & gruß Heinz Private Sub Workbook_BeforeClose(Cancel As B...

Hallo,
ich habe ein VBA geschrieben, wird an einem bestimmten Datum ein Modul gelöscht. Ich möchte aber auch, dass zeitgleich der Code in der DieseArbeitsmappe gelöscht wird.
Kann mir jemand einen Tipp / Rat geben?
hier den Code (VBAProjekt (test) - Microsoft Excel Objekte - DieseA...

Guten Tag zusammen,
ich habe diesen Code, der mir aber leider immer speichert, egal ob ich was verändere oder nicht.
Ich möchte gerne, das er mich Abfrägt ( bevor man die Datei schließt ) " Soll diese Daten in zwei Ordner abgespeichert werden ?
Ja Speichern Nein Abbrechen
Ich m...

Hallo Forum,
wende mich heute mal wieder an Euch mit folgendem Problem:
Warum kann ich das schließen der Datei mit dem Code nicht verhindern, habe ich einen fehler im Code ? Danke für Eure hilfe.
Private Sub Workbook_BeforeClose(Cancel As Boolean) If Range("d36") = 0 Then If Range(...

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige