Hallo!
Ich habe ein Makro, das die Zeilen durchgeht und wenn da kein wert oder eine 0 drinstehen diese ausblenden! aber wenn ich den code ausführe, dauert es ewig lange ibs die berechnung zu erfolgt ist. der code geht durch insgesamt 10 register mit knapp 250 zeilen pro register! kann ich den code irgendwie optimieren damit er schneller durchlaufen wird?
Der Code:
Private Sub CommandButton2_Click()
Dim Zelle As Range
Dim Bereich As Range
Dim Tabelle As Worksheet
Application.ScreenUpdating = False
For Each Tabelle In ThisWorkbook.Worksheets
If Not InStr("Inhaltsverzeichnis, Struktur, Parameter", Tabelle.Name) > 0 Then 'Liste der ausgenommenen Tabellen
On Error Resume Next
With Tabelle
Set Bereich = .Range(.Cells(7, 5), .Cells(.UsedRange.Rows.Count, 1))
For Each Zelle In Bereich
If Zelle.Value = 0 Or Zelle.Value = "" Then
Zelle.EntireRow.Hidden = True
Else
Zelle.EntireRow.Hidden = False
End If
Next Zelle
End With
End If
Next Tabelle
Application.ScreenUpdating = True
End Sub
|