Performance Makro
11.06.2021 13:06:08
Lenny
Mit Hilfe dieses Forums konnte ich die Makro- Funktion (Zeilenhöhe wird beim Filtern angepasst) in mein Excel integrieren. Soweit funktioniert das Tipptopp. Ein erhebliches Manko ist jedoch die Performance.
Bereits beim Öffnen dauert Sekunden. Aber auch beim Bearbeiten oder Filtern dauert es eine gefühlte Ewigkeit bis die "Berechnung" durch ist. Je mehr Daten das Excel enthält umso schlechter wird die Performance.
Sieht jemand von euch eine Möglichkeit die Performance zu verbessern?
Option Explicit
Private Sub Worksheet_Calculate()
''dieses Ereignis wird ausgelöst durch die Funktion in Zelle 'F1'
Application.EnableEvents = False
Call Machmal
Application.EnableEvents = True
End Sub
Private Sub Machmal()
Dim rg1 As Range, rg2 As Range, rg3 As Range
Set rg1 = Tabelle1.AutoFilter.Range.SpecialCells(xlCellTypeVisible)
For Each rg2 In rg1
If rg2.Address(0, 0) "A1" Then
For Each rg3 In rg2.MergeArea
rg3.RowHeight = 18
Next rg3
End If
Next rg2
Set rg1 = Nothing: Set rg2 = Nothing: Set rg3 = Nothing
End Sub
Lenny