Eieruhr bei Makroausführung

Private Sub Import_Click() Dim verbrauch As Integer verbrauch = MsgBox("Sicher?", _ vbYesNo) If verbrauch = 7 Then Exit Sub Else Daten_loeschen Loeschen_Spalten Daten_filtern Tabelle_Kopieren Zeilen_loeschen Datenimport Kopieren_Datenimport End If MsgBox "Datenimport erfolgreich!", vbInformation End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Import_Click() Dim verbrauch As Integer verbrauch = MsgBox("Sicher?", _ vbYesNo) If verbrauch = 7 Then Exit Sub Else GetMoreSpeed (True) Daten_loeschen Loeschen_Spalten Daten_filtern Tabelle_Kopieren Zeilen_loeschen Datenimport Kopieren_Datenimport GetMoreSpeed (False) End If MsgBox "Datenimport erfolgreich!", vbInformation End Sub Sub GetMoreSpeed(Optional ByVal Modus As Boolean = True) Static intCalculation as Integer If Modus = True Then intCalculation = Application.Calculation With Application .ScreenUpdating = Not Modus .EnableEvents = Not Modus .Calculation = IIf(Modus = True, xlManual, intCalculation) .Cursor = IIf(Modus = True, 2, -4143) End With End Sub

Private Sub Import_Click() Dim verbrauch As Integer verbrauch = MsgBox("Sicher?", _ vbYesNo) If verbrauch = 7 Then Exit Sub Else on error goto raus GetMoreSpeed (True) GetMoreSpeed (False) End If MsgBox "Datenimport erfolgreich!", vbInformation exit sub raus: GetMoreSpeed (False) End Sub

Hallo Peter
Schau es dir mal an:

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit
Dim AppCalc
Dim AppScreen
Dim AppEvents
Dim AppCursor
Dim AppEsc

Public Sub Werte_uebertragen()
Dim i As Long
On Error GoTo raus
Call More_speed
For i = 1 To 1000000000
    'Hier irgendwas..
Next i
raus:
If Err = 18 Then
    If MsgBox("ESC oder Strg+Pause gedrückt " & vbCrLf & "Weiter ?", vbYesNo) = vbYes Then Resume 0
End If
Call Meine_Einstellungen
End Sub

Public Sub More_speed()
With Application
    '#######################
    'Einstellungen speichern
    AppCalc = .Calculation
    AppScreen = .ScreenUpdating
    AppEvents = .EnableEvents
    AppCursor = .Cursor
    AppEsc = .EnableCancelKey
    '#######################
    'Angezogene Bremsen lösen
    .Calculation = xlCalculationManual 'Berechnung auf manuell
    .ScreenUpdating = False 'Bildschirmaktualisierung aus
    .EnableEvents = False 'Ereignismakros abschalten
    .Cursor = xlDefault 'Sanduhr ausschalten
    .EnableCancelKey = xlErrorHandler 'auf Esc oder Strg+Pause reagieren
    ' .EnableCancelKey = xlDisabled 'Esc ausschalten
    '#######################
End With
End Sub

Public Sub Meine_Einstellungen()
With Application
    .Calculation = AppCalc
    .ScreenUpdating = AppScreen
    .EnableEvents = AppEvents
    .Cursor = AppCursor
    .EnableCancelKey = AppEsc
End With
End Sub

Ist im Prinzip das gleiche wie von Renee.
ransi

Private Sub Import_Click() Dim verbrauch As Integer verbrauch = MsgBox("Sicher?", _ vbYesNo) Application.Cursor = xlWait If verbrauch = 7 Then Application.Cursor = xlDefault Exit Sub Else Daten_loeschen Loeschen_Spalten Daten_filtern Tabelle_Kopieren Zeilen_loeschen Datenimport Kopieren_Datenimport End If Application.Cursor = xlDefault MsgBox "Datenimport erfolgreich!", vbInformation End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eieruhr bei Makroausführung

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread