Makro beschleunigen
08.08.2018 15:12:58
Leif
ich habe folgendes Makro im Einsatz, leider dauert der Durchlauf des Zeilen ein und ausblendend ca. 55 Sekunden. Dies ist natürlich für alle Endanwender eine unsägliche Zeit. Hat einer von euch eine Idee, wie ich das Makro bzw. den Durchlauf schneller machen kann oder ggf. dies im Hintergrund läuft und man in den Tabellen weiterarbeiten kann?
Sub NUTD()
Application.ScreenUpdating = False
Dim i As Integer
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "4910xx" Or ws.Name = "4910100101" Or ws.Name = "4910107202" Or ws.Name = " _
4910100103" Or ws.Name = "4910100104" Or ws.Name = "4910100105" Or ws.Name = "4910107206" Then
With ws
For i = 23 To 311
If .Cells(i, 19).Value "hat Wert" Then
.Rows(i).EntireRow.Hidden = True
Else
.Rows(i).EntireRow.Hidden = False
End If
Next i
End With
End If
Next ws
Application.ScreenUpdating = True
End Sub
Danke und Gruß Leif