Codeoptimierung - Makro langsam
15.02.2018 17:04:32
Rilana
ich habe ein Problem mit einem Makro (Excel 2016), bei dem ich euch um Hilfe bitten möchte:
Ich habe mir ein Makro zusammengebastelt, welches prüfen soll, ob in einem bestimmten Bereich (rd. 700 Zeilen) Werte eingetragen sind oder eine 0 steht und in diesem Fall die entsprechenden Zeilen aus- bzw. einblenden. Funktioniert von der Sache her auch, jedoch benötigt das Makro mal nur wenige Sekunden, mal jedoch mehrere Minuten. Habt ihr eine Idee, woran dieser Zeitunterschied liegen könnte bzw. wie ich den Code evtl. optimieren könnte?
Sub Anlage1_Auswerten()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
Dim i As Integer
Dim j As String
Dim k As String
j = Range("Anzahl_Fläche_1").Address(False, False)
k = left(j, 1)
Range("Anzahl_Fläche_1:Anzahl_Sonst_n").Select
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, k).Value = 0 Or Cells(i, k).Value = "" Then
Rows(i).EntireRow.Hidden = True
End If
Next i
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
End Sub
Anzahl_Fläche_1: Zelle F13Anzahl_Sonst_n: Zelle F732
Wäre über jeden Tip dankbar...
Gruß Rilana