Frage zu Code Zeilen u. Spalten ausblenden
Matthias
Beim unten stehenden Code verhält sich mein Excel total unterschiedlich.
Sheet Test1 , wird flott bearbeitet der Code läuft schnell durch.
Sheet Test2 , hängt sich der Code plötzlich auf, Excel bekommt keine Rückgabeaufforderung.
In dem Fall muss ich Excel über den Taskmanger schließen u. neustarten.
Habt ihr eine Lösung für das Problem?
Sub Cells_Rows_OFF()
Dim lr As Integer, i As Integer
lr = ActiveSheet.UsedRange.Rows.Count + 1
Rows(lr & ":" & 1048576).Hidden = True
For i = lr - 1 To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Hidden = True
End If
Next i
For i = 16384 To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(i)) = 0 Then
Columns(i).Hidden = True
End If
Next i
End Sub
Gruß Matthias