Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA-Programm beenden

VBA-Programm beenden
18.03.2007 17:19:00
Sophie
Hallo zusammen,
habe mir ein Programm erstellt, daß in regelmäßigen Abschnitten (1 Minute) eine Aktualisierung vornimmt. Aufruf wie folgt:
Application.OnTime Time + TimeSerial(0,1,0), "Start"
Nun habe ich festgestellt, daß es gar nicht so einfach ist, dieses zu beenden. Wie kann man die Programmausführung beenden, ohne Excel zu schließen?
Hab es schon mit dem Button "Zurücksetzen probiert" im VBA - Editor ohne Erfolg, auch wenn ich in das Direkteingabefenster "End" eingebe bringt dies auch nicht den Erfolg.
Momentan schaffe ich es nur wenn ich in dem Programm einen Haltepunkt setze, dann kann ich es beenden sobald es hier dann angehalten wird.
Hat mir von Euch einer eine Lösung hierfür!
Vielen Dank.
Gruß
Sophie

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Programm beenden
ransi
Hallo Sphie
Versuche es mal so:
' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
bol = True
Call start
End Sub


Private Sub CommandButton2_Click()
bol = False
End Sub



und in ein Modul den Code für dein "Start"




' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public bol As Boolean

Public Sub start()
If bol = False Then Exit Sub
MsgBox "start"
Application.OnTime Time + TimeSerial(0, 0, 5), "Start"
End Sub



ransi
Anzeige
AW: VBA-Programm beenden
18.03.2007 21:14:49
Sophie
Hallo ransi,
vielen Dank für Deine Hilfe.
Werde es ausprobieren.
Schönen Gruß
Sophie
AW: VBA-Programm beenden
18.03.2007 19:38:00
Josef
Hallo Sophie,
das geht so.
' **********************************************************************
' Modul: Modul3 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public RunWhen As Double
Public Const cRunIntervalSeconds = 60 ' Intervall in Sekunden
Public Const cRunWhat = "The_Sub"

Sub StartTimer()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
    schedule:=True
End Sub

Sub The_Sub()

MsgBox "The_Sub"

StartTimer

End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime earliesttime:=RunWhen, _
    procedure:=cRunWhat, schedule:=False
End Sub

Gruß Sepp
Anzeige
AW: VBA-Programm beenden
18.03.2007 21:21:56
Sophie
Hallo Sepp,
vielen Dank für Deine Hilfe.
Es ist ein ganz anderer Weg wie der von mir, ich rufe ja innerhalb meinem Programm dieses selbe immer wieder auf, Du löst dies anders. In "The_Sub" soll ja dann mein Programm stehen oder täusche ich mich, da wo Du MsgBox "The_Sub" geschrieben hast, kommen einmal meine Programmzeilen rein?
Sieht irgendwie professioneller aus Deine Lösung, oder täusche ich mich, wahrscheinlich ist meine Lösung nicht gerade optimal vom programmiertechnischen gesehen, oder was meinst Du?
Schönen Gruß
Sophie
AW: VBA-Programm beenden
18.03.2007 21:25:00
Josef
Hallo Sophie,
mit "OnTime" arbeitet man in der Regel so, wie ich es dir gezeigt habe.
Du hast richtig erkannt, das dort wo die MsgBox steht dein Code reinkommt.
Du musst auch sicherstellen, das beim Schließen der Mappe, die Prozedur "StopTimer" aufgerufen wird, sonnst öffnet sich die Mappe wie von Geisterhand.
Gruß Sepp
Anzeige

58 Forumthreads zu ähnlichen Themen

Makro abbrechen, wenn ....
WalterK

Hallo,
Ich möchten in meinen Code einen Abbruch einbauen, wenn neben der aktiven noch andere Excel-Dateien offen sind.
Es soll dann der Hinweis kommen, dass "Der Code abgebrochen wird und zuerst die anderen Excel-Dateien beendet werden sollen!".
Danke für Eure Hilfe und
Servus,...
05.06.2011 17:58:16
Thread-ID: 1217358
11 Beiträge
Anzeige
VBA Code vorzeitig beenden
WalterK

Hallo
benötige nochmals Hilfe bei einem Codeteil:
Dim ws As Worksheet
Dim ZELLE As Range
Dim wsNamen
Set wsNamen = CreateObject("Scripting.Dictionary")
For Each ws In ThisWorkbook.Worksheets
wsNamen.Add ws.Name, ws.Name
Next
For Each ZELLE In Range("1.Einstel...
23.03.2013 17:24:44
Thread-ID: 1305682
13 Beiträge
VBA Makro ausführen wenn Feld geändert wird
Tobias

Hallo,
ich bin gerade dabei ein Makro zu erstellen, dass wenn ein Wert in einem Feld geändert wird ein Makro ausgelöst wird.
Folgender Code habe ich schon erstellt:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then Aktualisiere...
27.11.2013 15:16:03
Thread-ID: 1340252
5 Beiträge
Anzeige
Makro abbrechen wenn....
Spenski

huhu ich mal wieder
wie muss ich das schreiben das wenn Private Sub CommandButton1_Click() Select Case -1 * OptionButton1.Value & -1 * OptionButton2.Value & -1 * OptionButton9.Value Case "000" MsgBox "Bitte Schicht wählen" End Select zutrifft (also die meldung kommt) der rest des m...
31.03.2014 21:21:19
Thread-ID: 1355596
13 Beiträge
VBA Makro: Spalten ausblenden wenn Bereich = "0 x"
hual

Hallo zusammen!
Ich bin mit VBA wenig bis gar nicht vertraut und hätte gerne ein Makro welches mir die Spalten F:O ab Zeile 8 durchsucht und wenn dort nur "0" UND "0 x" vorkommen, sollte diese Spalte ausgeblendet werden.
ich hab dazu schon was in die Richtung gefunden, etwas editiert ab...
22.09.2014 15:18:58
Thread-ID: 1382850
6 Beiträge
Zählenwenn direkt?,- Leitfaden Makrorekorder->VBA
urs

Guten Abend
ich habe heute versucht dieses Zählenwenn mit Direktadressierung zum Laufenzu bringen. Doch ohne Erfolg. Stelle mir vor, dass ein Freak den Fehler sofort erkennt.

Range("L2").Select
ActiveCell.FormulaR1C1 = "=IF(A2grösser0,COUNTIF($K$2:K2,K2),"""")"

Eine Fr...
05.10.2014 22:04:46
Thread-ID: 1384958
3 Beiträge
VBA Excel Makro WENN Funktion mit ChrW 10004
braun

Guten Abend,
und zwar habe ich eine Excel Mappe mit zwei verschiedenen Tabellenreitern.
In dem ersten Tabellenreiter ist ein Makro abgelegt, dass mir bei nacheinanderfolgendem Klicken einer Zelle (A3) einen Haken (ChrW Unicode), Kreuz (auch über Unicode) oder NA anzeigt.
Das klappt...
28.01.2015 19:04:39
Thread-ID: 1405856
14 Beiträge
VBA Makro (Mit Copy Befehl)
chris

Hallo Leute!
Ich habe folgendes Problem. Ich lasse via Makro/VBA eine txt Datei formatiert einlesen und möchte jetzt gerne die Eingabe so umformatieren das die Anordnung sich verändert und ggf. Dinge wegfallen. Das ist ja erstmal nicht schwer via Makro. Mein Problem ist, dass ich nicht weiß...
13.02.2015 10:56:22
Thread-ID: 1409264
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
10
4
12
4
2
12
5
2
13
3
2
11
2
2
20
10
4
4
2
12
5
2
13
3
2