Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Probleme beim schließen einer Arbeitsmappe

Probleme beim schließen einer Arbeitsmappe
08.09.2004 14:50:52
Michael
Hallo,
ich hab folgendes Problem:
Eine Zelle blinkt rot, wenn der Wert größer als drei wird.
Wenn ich nun die Mappe schließe, dann erscheint das Popup "diese Mappe enthält Macros usw. aktivieren deaktivieren usw."
Egal auf was ich klicke, die Mappe die ich eigendlich schließen will, öffnet sich automatisch wieder.
Macro nachfolgend
Wer kann mir helfen?
Danke
Michael

Sub Color()
If Cells(1, 3) < 5 Then
test = Now + TimeValue("00:00:01")
If Cells(1, 4).Interior.ColorIndex = 3 Then
Cells(1, 4).Interior.ColorIndex = xlNone
Else
Cells(1, 4).Interior.ColorIndex = 3
End If
Application.OnTime test, "Color"
Else
Cells(1, 4).Interior.ColorIndex = xlNone
Exit Sub
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Probleme beim schließen einer Arbeitsmappe
HerbertH
hallo Michael,
probier das:
in "Diese Arbeitsmappe":


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime EarliestTime:=ET, Procedure:="test", Schedule:=False
End Sub

     gruß Herbert
Anzeige
AW: Probleme beim schließen einer Arbeitsmappe
09.09.2004 12:12:03
michael
Hallo Herbert,
das Problem besteht leider weiterhin.
Nur wenn ich das Excelprogramm schließe ist alles ok.
Wenn ich jedoch nur die Mappe schließen will, kommt nach dem Speichern die besagte Meldung und das Ding offnet wieder
Gruß
Michael
AW: Probleme beim schließen einer Arbeitsmappe
HerbertH
so gehts:


Option Explicit
Public test As Variant
Sub Color()
If Cells(1, 3) < 5 Then
    test = Now + TimeValue("00:00:01")
    If Cells(1, 4).Interior.ColorIndex = 3 Then
        Cells(1, 4).Interior.ColorIndex = xlNone
        Else
            Cells(1, 4).Interior.ColorIndex = 3
        End If
    Application.OnTime test, "Color"
    Else
        Cells(1, 4).Interior.ColorIndex = xlNone
        Exit Sub
    End If
End Sub
Sub stop_()
   On Error Resume Next
    Application.OnTime EarliestTime:=test, Procedure:="Color", Schedule:=False
  test = ""
End Sub
'in "Diese Arbeitsmappe"
 Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   On Error Resume Next
Call stop_
End Sub

     gruß Herbert
Anzeige
AW: Probleme beim schließen einer Arbeitsmappe
10.09.2004 10:10:08
michael
Hallo Herbert,
das schließen geht nun ok.
Aber das Blinken geht nur, wenn das Macro (Color) manuell gestartet wird.
Nicht wie geplant beim öffnen der Datei.
Wenn dann die Bedingungen für das Blinken nicht mehr erfüllt sind, hört es auch auf zu blinken.
Jedoch wenn die Bedingungen eintreffen für das Blinken, blinkts nicht mehr.
Da muß ich dann das Macro wieder manuell starten.
Gibts da eine Lösung, das ich das Macro nicht immer manuell starten muß?
Vielen Dank für Deine bisherige Hilfe
Gruß
Michael
AW: Probleme beim schließen einer Arbeitsmappe
HerbertH
du hast eigentlich nur gesagt, daß das Makro nicht beendet wird,
sprich die Mappe hat sich wieder geöffnet...
mußt halt das Makro mit Workbook_Open starten:

Private Sub Workbook_Open()
Call color
End Sub

gruß Herbert
Anzeige
AW: Probleme beim schließen einer Arbeitsmappe
13.09.2004 16:34:29
Michael
Hallo Herbert,
das Blinken klappt jetzt, die Mappe läßt sich nun auch schließen.
Wenn die Bedingungen für das Blinken nicht mehr erfüllt sind, hört es auch auf.
Nur wenn dann die Bedingungen wieder eintreffen blinkt es nur, wenn ich das Macro neu starte.
Gibt es da eine Möglichkeit, daß ich hierzu nicht immer das Macro starten muß?
Gruß
Michael

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige