Prozess mit Haltepunkt schneller

Hallo!
Ich hab ein komisches Problem dem ich nicht beikomme.
Eine Sub (sagen wir UP dazu) wird von mir mit dem SelectionChange Ereignis aufgerufen.
Die Sub UP hat einen Übergabeparameter.
Starte ich die Sub UP von irgendeiner Hilfssub aus braucht sie 1,9sek.
Starte ich die Sub UP vom SelectionChange Ereignis benötigts sie 8-14sek.
Setze ich allerdings im SelectionChange Ereignis irgendwo einen Haltepunkt im Debugmodus und fahre mit F5 fort benötigt sie wieder nur 1,9sek.
Ich hab alles probiert was mir einfällt. enableEvents, screenupdating, CalculationMode, Wartezeit, sogar eine Userform kurz öffnen und wieder schliessen, eine Msgbox und noch einiges mehr.
Auch in den Prozeduren alles auskommentiert was nicht zwingend notwendig ist.....
Hab auch nach einer Möglichkeit gesucht wie ich das SelectionChange Ereignis beenden lassen könnte und danach die Sub zu starten, aber da fällt mir auch nichts ein.
Hat irgendwer eine Idee dazu was ich da machen könnte, bzw. was da schuld daran ist?
Das hält mich jetzt schon ganz schön lange auf.
Danke, Dietmar

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich verwende kein Select/Activate.
Wenn ich mit der Maus in eine bestimmte Zelle klicke soll dieses Event ja ausgeführt werden.
Mein Problem ist nicht das Event. Sondern das die Abarbeitung nur dann schnell ausgeführt wird wenn ich einen Haltepunkt setze und dann mit F5 wieder fortfahren lasse.
Auch wenn ich den ganzen Code von der Sub UP direkt in das Event kopiere bleibt es dasselbe.
Hier ist der Ausschnitt des Codes. Als ob das Event das Calculation nicht akzeptiert.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Antw = MsgBox(Text(144), vbYesNo, Text(49))
If Antw  vbYes Then
GoTo Weiter
Else
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
For x = 1 To MaxAnzKurven
Daten_loeschen (x)
Next x
End If
End Sub

Sub Daten_loeschen(ByVal Nr As Integer)
With ThisWorkbook.Sheets("Aufzeichnung " & Nr)
.Range("Aufzeichnung_Messung_lfdnr") = ""
.Range("Aufzeichnung_MessungName") = ""
.Range("Aufzeichnung_Datum") = ""
.Range("Aufzeichnung_Luftdruck") = ""
.Range("Aufzeichnung_Temperatur") = ""
.Range("Aufzeichnung_Feuchte") = ""
.Range("Aufzeichnung_Primär_Z1") = ""
.....
.....
.Range(.Range("Aufzeichnung_LiveUmin_Vertikal1NM").Offset(1, 0), .Range("Aufzeichnung_LiveUmin_Vertikal1NM").Offset(5000, 0)).ClearContents
.Range(.Range("Aufzeichnung_LiveUmin_WerteSummiert").Offset(1, 0), .Range("Aufzeichnung_LiveUmin_WerteSummiert").Offset(5000, 0)).ClearContents
.Range(.Range("Aufzeichnung_Zeit_Sekunden").Offset(1, 0), .Range("Aufzeichnung_Zeit_Sekunden").Offset(5000, 0)).ClearContents
.Range(.Range("Aufzeichnung_Zeit_Anzeige").Offset(1, 0), .Range("Aufzeichnung_Zeit_Anzeige").Offset(5000, 0)).ClearContents
.Range("Aufzeichnung_LiveUmin_NM").ClearContents
.Range("Aufzeichnung_LiveUmin_Umin").ClearContents
.Range("Aufzeichnung_LiveUmin_AnzahlPunkte").ClearContents
.Range("Aufzeichnung_LiveUmin_Standard").ClearContents
.Range("Aufzeichnung_LiveUmin_Korrekturfaktor").ClearContents
.Range("Aufzeichnung_LiveUmin_Auflösung_vertikal").ClearContents
.Range(.Range("Aufzeichnung_LiveNM_Werte").Offset(1, 0), .Range("Aufzeichnung_LiveNM_Werte").Offset(5000, 0)).ClearContents
.Range(.Range("Aufzeichnung_LiveNM_WerteBerechnet").Offset(1, 0), .Range("Aufzeichnung_LiveNM_WerteBerechnet").Offset(5000, 0)).ClearContents
.Range("Aufzeichnung_LiveNM_Aktiv") = False
.Range("Aufzeichnung_LiveNM_Faktor") = ""
.Range("Aufzeichnung_CRC_Daten").ClearContents
.Range("Aufzeichnung_CRC_Werte").ClearContents
.Range("Aufzeichnung_CRC_Daten_lokal").ClearContents
.Range("Aufzeichnung_CRC_Werte_lokal").ClearContents
.Range("Aufzeichnung_Version").ClearContents
End With
ThisWorkbook.Sheets("Übersicht").Range("Übersicht_PS_fCell").Offset(Nr * 2, 0) = "o"
ThisWorkbook.Sheets("Übersicht").Range("Übersicht_NM_fCell").Offset(Nr * 2, 0) = "o"
ThisWorkbook.Sheets("Übersicht").Range("Übersicht_PSNM_fCell").Offset(Nr * 2, 0) = "o"
ThisWorkbook.Sheets("Übersicht").Range("Übersicht_Auswahl_Titel").Offset(Nr * 2, 0) = "()"
End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prozess mit Haltepunkt schneller

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread