Ein-/Ausblenden zu langsam

Hallo Zusammen,
ich habe leider nur sehr eingeschränkte VBA-Kenntnisse, aber ich habe mir einen Code zusammengebastelt, der das tut, was ich möchte, nämlich Zeilen im Bereich von Zeile 2 bis 1024 ausblenden, wenn in Spalte R durch ein Formelergebnis eine 0 erscheint. Wird die 0 durch ein anderes Formelergebnis (immer "1") ersetzt, werden die ausgeblendeten Zeilen automatisch wieder eingeblendet. Soweit so gut.

Mein Problem mit meinem Code ist, dass der Prozess ewig dauert. Für das durchsuchen dieser 1023 Zeilen und das Ein-, bzw. Ausblenden braucht Excel gute 2 Minuten und eigentlich möchte ich die Funktion in insgesamt 6 Tabellenblättern nutzen. Gibt es eine Möglichkeit den Prozess zu beschleunigen? Hier ist der Code:

Private Sub Worksheet_Calculate()
Dim Y As Long
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Application.EnableEvents = False 'Ereignismakros deaktivieren
For Y = 2 To 1024
Rows(Y).EntireRow.Hidden = Cells(Y, 18).Value = "0"
Next
Application.EnableEvents = True 'Ereignismakros aktivieren
Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an
End Sub

Vielen Dank und viele Grüße
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public bInProgress As Boolean Private Sub Worksheet_Calculate() Dim Y As Long Dim intCalc As Integer If bInProgress Then Exit Sub End If Application.ScreenUpdating = False 'Bildschirmaktualisierung aus Application.EnableEvents = False 'Ereignismakros deaktivieren intCalc = Application.Calculation Application.Calculation = xlCalculationManual For Y = 2 To 1024 Rows(Y).EntireRow.Hidden = Cells(Y, 18).Value = "0" DoEvents: DoEvents Next bInProgress = False Application.Calculation = intCalc Application.EnableEvents = True 'Ereignismakros aktivieren Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an End Sub

Public bInProgress As Boolean Private Sub Worksheet_Calculate() Dim Y As Long Dim intCalc As Integer If bInProgress Then Exit Sub End If Application.ScreenUpdating = False 'Bildschirmaktualisierung aus Application.EnableEvents = False 'Ereignismakros deaktivieren intCalc = Application.Calculation Application.Calculation = xlCalculationManual For Y = 2 To 1024 Rows(Y).EntireRow.Hidden = Cells(Y, 18).Value = 0 DoEvents: DoEvents Next bInProgress = False Application.Calculation = intCalc Application.EnableEvents = True 'Ereignismakros aktivieren Application.ScreenUpdating = True 'Bildschirmaktualisierung wieder an End Sub

Hm, ok. Du verwendest Worksheet_calculate. Bei jeder Berechnung wird der Code von Neuem gestartet. Wenn Du dann noch volatile Funktionen verwendest https://www.tabellenexperte.de/excel-im-schneckentempo-volatile-funktionen/ dann wird bei jeder Eingabe, egal wo auf dem Tabellenblatt) die Berechnung ausgelöst.

Allerdings dürfte das Ausblenden in einem Bereich von 1023 Zeilen nur wenige Sekunden dauern ... und nicht 2 Minuten. Ich habe das mal versucht nachzustellen und komme bei ca. 1200 Zeilen und ca. der Hälfte mit "0" auf maximal 3 Sekunden. Eine Dauerberechnung konnte ich (sogar trotz volatilen Funktionen in der Tabelle) nicht feststellen.

Irgendetwas scheint bei Dir wohl doch zur Verzögerung zu führen.

Es wäre hilfreich, wenn du hier eine Beispielmappe hochladen könntest, anhand der wir das mal nachvollziehen können.

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ein-/Ausblenden zu langsam

18 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)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread