Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 17:19:09
Formel mit Index-Funktion
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1264to1268
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn abbrechen mit ESC, dann Code durchlaufen

Wenn abbrechen mit ESC, dann Code durchlaufen
Peter
Guten Tag
Wie kann ich sicherstellen, dass bei Abbruch eines VBA Codes durch drücken von ESC ein bestimmter Code abläuft?
Wenn ich beispielsweise am Anfang das Berechnen ausschalte und dies am Ende des Codes wieder eingeschaltet wird, sollte bei einem Abbruch mittels VBA das Berechnen ebenfalls wieder eingeschaltet werden.
Gruss, Peter
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 11:06:25
xr8k2
Hallo Peter,
mit einem
Application.EnableCancelKey = xlErrorHandler
leitest du einen Programmabbruch (z.B. mit ESC) an eine Fehlerbehandlungsroutine. In dieser könntest du dann die aut. Berechnung wieder einschalten.
Gruß,
xr8k2
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 13:35:23
Peter
Hallo
Ich scheine das noch nicht ganz verstanden zu haben:
Mein Code
Sub Daten_uebernehmen()
On Error GoTo FERTIG
Application.EnableCancelKey = xlErrorHandler
Call DisableAllCalculations
Call Daten
FERTIG:
Call EnableAllCalculations
Application.EnableCancelKey = xlInterrupt
End Sub
Wenn ich den Code mit ESC abbreche, muss Call EnableAllCalculations ausgeführt werden. Scheint jedoch hier noch nicht der Fall zu sein.
Zusatzfrage: macht es einen Unterschied, wenn ich mit ESC abbreche und dann auf Debuggen gehe?
Gruss, Peter
Anzeige
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 14:10:54
xr8k2
Hallo Peter,
genauso wie du den Code schreibst müsste er auch funktionieren ... zumindest kenn ich´s so und er tut´s in meinem Excel 2003. Ob´s sich hier die Funktionalität im Excel2010 geändert hat vermag ich leider nicht zu sagen.
Teste mal:
Sub EndlosSchleife()
Application.EnableCancelKey = xlErrorHandler
On Error GoTo FERTIG
Do
Loop
FERTIG:
MsgBox "Endlosschleife abgebrochen!"
Application.EnableCancelKey = xlInterrupt
End Sub
Gruß,
xr8k2
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 14:19:21
Peter
Hallo
Danke für die Antwort.
ich habe in der Zwischenzeit noch etwas im www gestöbert. So wie ich sehe, ist der Code richtig. Das Problem ist aber, dass ich aus meinem Code verschiedene Subs aufrufe und dass ich wahrscheinlich in jedem dieser Subs (egal ob sie im gleichen Modul enthalten sind oder nicht), diese Fehlerbehandlungsprozedur auch einfügen müsste.
Ich lasse meinen Thread mal offen und hoffe, dass mir jemand diese Feststellung bestätigen oder aber modifizieren kann.
Gruss, Peter
Anzeige
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 14:37:44
Rudi
Hallo,
andere On Error-Anweisungen in den Prozeduren? Dann gelten die.
Gruß
Rudi
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 14:39:29
Peter
Hallo Rudi
Nein, bisher nicht andere, sondern keine.
Ich nehme daher an, dass ich in jeder einzelnen Prozedur diese Anweisungen erfassen muss, oder ist das nicht korrekt?
Gruss, Peter
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 14:58:25
Rudi
Hallo,
nein, musst du nicht.
Sowas geht: 
Dim s
Sub aaa()
On Error GoTo xxxx
Application.EnableCancelKey = xlErrorHandler
bbb
xxxx:
If Err.Number = 18 Then MsgBox "Abbruch in " & s
End Sub
Sub bbb()
Dim y
Do
y = 0
s = "bbb"
Do While y

Gruß
Rudi
Anzeige
AW: Wenn abbrechen mit ESC, dann Code durchlaufen
21.05.2012 15:25:48
Peter
Hallo Rudi
Danke. Dann muss ich nochmals forschen, wo es bei mir happert.
Gruss, Peter

303 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wenn Dann Funktion mit zählen wenn
Christian

Hallo zusammen,
ich brauche eine Funktion, die es mir ermöglicht, in einem Datenblatt erst nach einem bestimmten Wert zu suchen und dann zum gefundenen Wert einen weiteren Wert zu suchen und diese dann in der Anzahl zusammen zu zählen.
Bisher dachte ich, ich komme so zu meinem Ziel:
...
07.08.2009 10:26:38
Thread-ID: 1094218
3 Beiträge
Anzeige
Stichwort in Zelle B7,dann zusammzählen VBA
Wolfgang

Hallo,
im Tabellenblatt "Start" befinden sich in Zelle B7 bis B23 bestimmte Stichwörter, die auch in Tabelle "Daten", Spalte H vorkommen. Ich würde gerne zu jedem Stichwort zwei Abfragen klären:
Beispiel:
(Abfrage1)
1. Stichwort aus Zelle B7 kommt in Spalte H (Tabelle "Daten") v...
06.10.2009 19:49:07
Thread-ID: 1107632
10 Beiträge
Wenn Wert gleich dann Buchstabe ausgeben
Thomas

Hallo,
ich steht gerade total auf dem Schlauch.
Ich habe eine Spalte (A) mit über 300 Werten (ganze Zahlen), diese möchte ich nun mit einer anderen Spalte (E) vergleichen um hier Einträge zu finden, welche in der ersten Spalte ggü der 2ten Spalte nicht vorhanden sind.
Dann sollte ic...
24.11.2009 12:25:40
Thread-ID: 1119703
3 Beiträge
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
VBA: WENN bestimmte Zahl, DANN Zahl, SONST Eingabe
ernst

Hallo VBA Experten
Ich bin Lehrer und kenne mich mit xls recht gut aus, kann jedoch leider kein VBA. Ich habe nun ein Problem, dass m.M. nach nur mit VBA zu lösen ist. Vielleicht kann mir ja wer von Euch helfen:
Ich habe 2 Tabellenblätter (es geht um Skikursteilnahme und -verwaltung):<...
22.12.2009 14:26:44
Thread-ID: 1125569
9 Beiträge
Beginnt mit mit Zahlen | Herbers Excel-Forum
Scicchitano
Hallo,
ich habe ein Problem mit dem Autofilter im VBA-Modus. Ich möchte mit Eingabe in eine TextBox eine Zahl Filtern. Das Ziel ist wenn ich eine 3 eintippe, dass alles was mit 3 beginnt gefiltert wird.
Habe folgender Code:
Dim SpNr As Integer
SpNr = 2 'SuchSpalte A=1
Selection....
21.01.2010 07:47:23
Thread-ID: 1131593
3 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
3
6
11
2
4
9
2
2
8
2
2
6
4
2
2
3
2
4
5
2
9
2
7
2
3