Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1080to1084
1080to1084
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler bei ontime beenden

Forumthread: Fehler bei ontime beenden

Fehler bei ontime beenden
18.06.2009 08:25:33
chris
Hallo zusammen,ich bins noch einmal.
Mit einer bitte wegen Ontime.
ich lasse mittels ontime eine zelle blinken.
Das soll so lange passieren bis in einer bestimmten zelle "ok" steht.
Das Blinken funktioniert auch super nur das beenden von ontime nicht :(
Würde mich sehr freuen wenn mir jemand sagen könnte was falsch an meinem Code ist.
Vielen dank im vorraus
gruß Chris

Option Explicit
Sub blink()
If Cells(1, 3).Value = "ok" Then GoTo ende
If Cells(1, 1).Interior.ColorIndex = 4 Then
Application.OnTime Now + TimeValue("00:00:02"), "jetzt0"
Else
Application.OnTime Now + TimeValue("00:00:02"), "jetzt4"
End If
Exit Sub
ende:
'Hier kommt der fehler
Application.OnTime EarliestTime:=Now + TimeValue("00:00:02"), Procedure:="jetzt0", Schedule:= _
False
Application.OnTime EarliestTime:=Now + TimeValue("00:00:02"), Procedure:="jetzt4", Schedule:= _
False
End Sub
Sub jetzt0()
Cells(1, 1).Interior.ColorIndex = 0
Call blink
End Sub
Sub jetzt4()
Cells(1, 1).Interior.ColorIndex = 4
Call blink
End Sub


Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei ontime beenden
18.06.2009 08:39:20
hary
Hallo Chris
versuch mal
ende:
exit sub
Gruss Hary
AW: Nein so nicht - ontime beenden aber wie ?
18.06.2009 08:49:28
chris
Hilft nicht.
Weil ja schon vor exit sub die ontime aufgerufen wird.
Wer weiß wie ich diese ontime beenden kann ?
Vielen dank
Mei Problem löse ich in dem ich diese abfrage versetzte in das makro jezt4 und jetzt0
If Cells(1, 3).Value = "ok" Then exit sub.
Aber wie könnte ich die ontime beenden ?
Vielen Dank
Anzeige
AW: Fehler bei ontime beenden
18.06.2009 08:59:45
Hajo_Zi
Hallo Vhris,
in meinen Beispielen auf meiner HP habe ich geschrieben, es ist von Vorteil, wenn man die Zeit auf eine Variable schreibt. FDann hat man die Zeit für das beenden.

AW: Fehler bei ontime beenden
18.06.2009 09:29:41
chris
Hallo Hajo,
danke für deinen hinweiß.
Muss ich mal versuchen ob ich das hinbekomme.
Schönen Tag noch !
Anzeige
AW: noch mal offen für Hajo
18.06.2009 09:36:04
chris
Hallo Hajo,
danke für deinen Hinweiß aber ich bekomme es leider nicht hin.
Würde mich noch einmal über Hilfe freuen.
Vielen dank noch einmal im vorraus !
So habe ich es jetzt versucht.
Klappt aber nicht ?
Habe also Variable "zeit" genommen

Option Explicit
Dim zeit As Date
Sub auto_open()
Call blink
End Sub
Sub blink()
zeit = Now + TimeValue("00:00:01")
If Cells(1, 1).Interior.ColorIndex = 4 Then
Application.OnTime zeit, "jetzt0"
Else
Application.OnTime zeit, "jetzt4"
End If
If Cells(1, 3).Value = "ok" Then
Application.OnTime EarliestTime:=zeit, Procedure:="jetzt0", Schedule:=False
Application.OnTime EarliestTime:=zeit, Procedure:="jetzt4", Schedule:=False
Else
End If
End Sub
Sub jetzt0()
Cells(1, 1).Interior.ColorIndex = 0
'If Cells(1, 3).Value = "ok" Then Exit Sub
Call blink
End Sub
Sub jetzt4()
Cells(1, 1).Interior.ColorIndex = 4
'If Cells(1, 3).Value = "ok" Then Exit Sub
Call blink
End Sub


Anzeige
AW: blinken abschalten
18.06.2009 09:46:30
Hajo_Zi
Halo Chris,
siehe Dir meine Beispiele an. Du hast die Prozeduren unter DieseArbeitsmappe nicht gepostet.
Gruß Hajo
AW: blinken abschalten
18.06.2009 09:57:27
chris
Hallo Hajo,
wie finde ich die ? Also was muss ich in der Recherche eingeben als Suchbegriff ?
Und was meinst du mit diesem Satz ? Verstehe in nicht so recht.
Danke Hajo
"Du hast die Prozeduren unter DieseArbeitsmappe nicht gepostet"
Ich habe Das Makro ganz normal in einem Modul.
Anzeige
AW: blinken abschalten
18.06.2009 10:01:01
Hajo_Zi
Hallo Chris,
ich hatte geschrieben auf meiner HP. Der Link ist in jedem Beitrag auf meinen Namen. Das ist VBA und da gibt es Blinken

AW: blinken abschalten
18.06.2009 10:03:53
chris
Danke hajo.
habe aber schon hier was gefunden.
Danke dir.
So sieht jetzt meine Lösung aus.
Schönen Tag
Option Explicit
Public Zeit As Variant

Sub auto_open()
Call blink
End Sub




Sub blink()
If Cells(1, 1).Interior.ColorIndex = 4 Then
Zeit = Now + TimeValue("00:00:01")
Application.OnTime Now + TimeValue("00:00:01"), "jetzt0"
Else
Zeit = Now + TimeValue("00:00:01")
Application.OnTime Now + TimeValue("00:00:01"), "jetzt4"
End If
On Error Resume Next
If Cells(1, 3).Value = "ok" Then
Application.OnTime EarliestTime:=Zeit, Procedure:="jetzt0", Schedule:=False
Application.OnTime EarliestTime:=Zeit, Procedure:="jetzt4", Schedule:=False
End If
End Sub




Sub jetzt0()
Cells(1, 1).Interior.ColorIndex = 0
Call blink
End Sub




Sub jetzt4()
Cells(1, 1).Interior.ColorIndex = 4
Call blink
End Sub


Anzeige
AW: blinken abschalten
18.06.2009 10:06:10
chris
Hallo Hajo,
habe zwar jetzt eine Lösung wie gerade gepostet.
Aber sobald ich das
On Error Resume Next
vor
Application.OnTime EarliestTime:=Zeit, Procedure:="jetzt0", Schedule:=False
Application.OnTime EarliestTime:=Zeit, Procedure:="jetzt4", Schedule:=False
weglasse kommt wieder ein fehler.
Mit on error resume next klappts ?
Ist das normal ?
Danke Hajo
Anzeige
AW: blinken abschalten
18.06.2009 10:16:58
Hajo_Zi
Hallo Chris,
falls Du Dich auf meinen Code bziehst ja. Es kann ja sein das die Prozedur noch nicht gestartet wurde.

AW: Fehler bei ontime beenden
18.06.2009 09:00:50
Heiko
hallo chris,
wann/ wie rufst du dein sub blink auf?
heiko
;

Forumthreads zu verwandten Themen

Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Klick zählen - dann beenden
Frank

Hallo Zusammen!!!
Vielleicht kann mir bei der absurden Idee doch jemand weiter helfen. In einem Arbeitsblatt wird durch Klick in eine Zelle eine UF geöffnet. In dieser UF befindet sich das Kalender - Steuerelement. Mittels folgenden Code,
Private Sub Calendar1_Click() ActiveCell.Value...
24.11.2008 13:17:00
Thread-ID: 1027288
5 Beiträge
Anzeige
Funktionen beenden
Joachim

Hi,
brauche doch noch mal hilfe:
Ich habe auf meiner userform einen Button, der führt verschiedene Funktionen aus, die in einem Modul sind:
Private Sub CommandButton5_Click() Call Kopieren Call Prüfen Call Formatieren Call Daten_sperren End Sub
So, und nun zum Problem, wenn z...
26.11.2008 11:20:00
Thread-ID: 1027972
4 Beiträge
bei Fehlermeldung automatisch auf beenden
Lucia

Hallo zusammen,
ich hab einen schönen code, der macht, dass Aufgaben über Outlook an die Mitarbeiter (nach Kürzel in wer) verteilt werden. Das klappt wunderbar, Outlook öffnet sich, ich kann noch mal drüber schauen und dann versenden. Zum Schluss kommt im Excel dann die Fehlermeldung:
...
27.11.2008 13:59:08
Thread-ID: 1028363
10 Beiträge
Anzeige
Symbolleiste ausblenden bei beenden
Joachim

Hi
ich blende beim starten meines Excel-Sheets eine Symbolleiste ein
Private Sub Workbook_Open() Symbolleiste_ein End Sub
Wie kann ich die Symbolleiste (Symbolleiste_aus) wieder ausblenden. bzw. in welches Ereignis muss das rein, damit die Symbolleiste ausgeblendet wird, egal, ob...
09.12.2008 13:12:00
Thread-ID: 1031375
3 Beiträge
Vollbildmodus beenden beim Datei schließen
Thomas

Hallo,
ich weiß, zu dem Thema gibt es unzählige Beiträge. Ich sitze jetzt schon ne Stunde und find keine Lösung.
Das Problem:
Ich starte eine Datei im Vollbildmodus, blende die Menüleisten aus und will beim Beenden den Vollbisldmodus wieder verlassen. Über einen Button funktioniert...
15.01.2009 23:30:00
Thread-ID: 1040351
7 Beiträge
Anzeige
Nach MsgBox Code beenden
Heinz

Hallo Leute
Ich komme mit folgenden Code nicht weiter.
Der Code sollte nach jeder MsgBox gestoppt werden, bis alle Bedinungen erfüllt wurden.
Ich habe 3 MsgBox.
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
Private Sub CommandButton6_Click() Application.Screen...
18.01.2009 15:20:40
Thread-ID: 1041137
7 Beiträge
Nach Datei-Beenden startet Makro nicht
Edie

Hallo zusammen,
wenn ich die Datei über das Menü: Datei-Beenden und anschließenden Speichern beende,
bei erneuten öffne der Datei und start des Makros (UserForm) bekommen ich eine Fehlermeldung: „Microsoft Office Excel hat ein Problem festgestellt…“
Beim Debuggen kommt folgende Meld...
29.01.2009 08:50:00
Thread-ID: 1044793
3 Beiträge
Instanzen sehen und beenden (code z.T vorhanden)
chris

Hallo VBA experten,
ich suche mal wieder Hilfe.
Hoffe ihr könnt mir helfen.
ich habe hier einen Code mit diesem sehe ich die Anzahl aller
Excelinstanzen die gestartet wurden auch wenn Sie unsichtbar sind.
Ich wollte den Code so modifizieren das ich die einzelnen Instanzen be...
18.02.2009 11:31:00
Thread-ID: 1051743
9 Beiträge
Makro beenden / aus Loop springen
nicobit

Hallo Forum :)
hab ne frage,
Ich habe ein Makro welches bei falschem Input(normal aus Tabelle) mit einer InputBox nachfragt, diese ist mit einer Loop ausgestattet, sodass sie immer wider fragt wenn die Eingabe nicht stimmt.
Das Problem ist dass ich innerhalb dieses Loops eine falsch...
24.02.2009 12:21:13
Thread-ID: 1053452
5 Beiträge
Wieso muss ich Excel zweimal beenden?
wulfguard

Guten Abend,
ich habe folgendes Problem, nach dem ich meinen Code ein wenig optimiert!?!(zumindest ist der Laufzeitfehler raus ;) )
habe ich folgenden Effekt, wenn ich Excel beenden will, wird nur mein Workbook beendet und nach dem das geschlossen ist muss ich Excel nochmal beenden.
05.03.2009 23:15:41
Thread-ID: 1057086
5 Beiträge
"speichern und beenden"
Ralf

Hallo zusammen,
ich habe folgendes Problem.
Ich habe eine Datei mit vielen Makros und Verknüpfungen auf andere Dateien. Wenn ich diese Datei speichere und beende öffnet sich die Datei wieder. Es ist egal ob ich das separat mache, also erst speichern und dann beenden oder über das "x" di...
10.03.2009 16:35:59
Thread-ID: 1058786
7 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