Laufzeitproblem bei Makro-Ausführung via Button

Hallo zusammen,
dies ist mein erster Forenbeitrag - ich hoffe, ich trete nicht direkt in ein Fettnäpfchen...
Folgende Situation:
Ich habe ein Makro geschrieben, welches bei Ausführung aus dem VBA Editor heraus ca. 10 Sekunden benötigt.
Weise ich dieses Makro nun einem Steuerelement zu - sprich, ich möchte, dass das Makro nach Klick auf einen Knopf startet, so verringert sich die Performance signifikant. Die Ausführung benötigt nun ca. 1 Stunde - teils treten Fehler auf.
In Foren konnte dieses Problem teils folgendermassen gelöst werden:
- Formelupdate auf manuell stellen bei Makrostart
- Screen update deaktivieren bei Makrostart
- VBA Editor automatisch aufrufen bei Makrostart
- Button löschen, neu definieren, andere Schaltflächen verwenden etc.
Leider hat keine dieser Optionen zu einer Laufzeitverbesserung geführt.
Zusätzlich habe ich versuchsweise alle Daten und Codefragmente mal in ein neues Excel-Sheet kopiert. Ebenfalls ohne Erfolg. Hintergrund hierbei sind Erfahrungen aus PlantSimulation gewesen: Hier wurden teilweise alte Objekte nicht 100% gelöscht, was dann irgendwann zu Laufzeitproblemen geführt hat.
Hat jemand eine Idee woran diese Laufzeit-Schwankungen liegen könnten (Makro öffnen über Knopf vs. direkt im VBA Editor)? ...Ich drehe langsam etwas durch :D

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit #If VBA7 Then Public Declare PtrSafe Sub Sleep _ Lib "kernel32" ( _ ByVal dwMilliseconds As LongPtr) #Else Public Declare Sub Sleep _ Lib "kernel32" ( _ ByVal dwMilliseconds As Long) #End If Sub Wait(ByVal ms As Long) Sleep ms End Sub

Hi Klexy, hi Peter(silie),
habe die letzten Tage noch mal einiges ausprobiert - nichts davon hat zum Erfolg geführt:

Daten und Code in neue excel-file als reine Werte kopiert

Makros auf anderen Rechnern mit anderen Betriebssystemen und anderen Officeversionen (allerdings nur 32 Bit Office Versionen) getested

Alle Prozeduren und Variablen als "public" deklariert

Redundante Prozedurnamen in unterschiedlichen Modulen zu Unikaten abgehändert

@Peter(silie): Ich hatte auch bereits über Kompatibilitätsprobleme in einem anderen Forum gelesen - allerdings verstehe ich es so, dass diese Probleme nicht auftreten sollten, falls man den code im 32bit Office erstellt hat und auch dort nur ablaufen lässt? Dies ist bei mir der Fall. Wir nutzen im Unternehmen lediglich die 32bit MS Office Version 2016.
Ein Kollege geht davon aus, dass es ein Kompilierungsfehler ist: Anscheinend werden Programme unterschiedlich kompiliert, wenn sie über den Editor geöffnet werden vs. über ein Nutzerelement. Hier komme ich aber auch nicht weiter.
Habe dann die langsame Laufzeit umgangen, indem das Makro nun als erstes den Editor aufruft. Das funktioniert. Allerdings läuft seitdem ein anderes Makro, das bisher immer schnell gelaufen ist, langsam - ich drehe durch.
Unten dargestellt die Hauptprozedur "main", die bei Betätigen des Steuerelements aufgerufen wird. Diese ruft dann alle Sub-Prozeduren auf. Zudem die verwendeten Modul/globale Variablen. Seht ihr hierbei auf Anhieb einen Fehler?

Option Explicit
Dim OnePOSheet_Name As String
Dim SinglePOSheet_Name As String
Dim QualiMatrixTable_Name As String
Dim StartColumnPNs_OnePO As Long
Dim LastColumn As Long
Dim SinglePOTable_Name As String
Dim i As Long
Dim j As Long
Dim errorcounter As Long
Public Sub main()
'Application.VBE.MainWindow.Visible = True
Application.ScreenUpdating = False
Application.Calculate
Application.Calculation = xlCalculationManual
OnePOSheet_Name = "OnePO_CTs"
SinglePOSheet_Name = "SingleOps_CTs"
QualiMatrixTable_Name = "Qualification Matrix_Table"
SinglePOTable_Name = "Table_SingleOps"
errorcounter = 0
' Lösche altes 1PO Sheet & Füge neues 1PO sheet ein
Call CreateNewSheet
' Kopiere Single-PN Tabelle in neues sheet als values
Call CopyTable
' Kopiere 1PO-PN aus Qualificatin Matrix Tabelle > lösche duplikate > Transponiere Werte
Call InsertOnePoPNs
' Führe Rückwärtsbestimmung der Vorgänger PNs durch und pflege die CTs ein
Call AllocateOnePOTimes
ActiveWorkbook.Protect
Application.Calculation = xlCalculationAutomatic
'Application.VBE.MainWindow.Visible = False
Application.ScreenUpdating = True
MsgBox ("OnePO Cycle Time & Costs update completed.")
End Sub

Beliebteste Forumthreads (12 Monate)

Laufzeitproblem bei Makro-Ausführung via Button

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread