kann mir jemand mit folgender Sache helfen? Ich möchte gerne alle ausgeblendeten Zeilen und Spalten in einer Tabelle löschen.
Vielen Dank!!!
Gruß
Herrmann
Sub AusgeblendeteLöschen()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange.Columns(1).Cells
If Zelle.EntireRow.Hidden Then Zelle.EntireRow.Delete
Next
For Each Zelle In ActiveSheet.UsedRange.Rows(1).Cells
If Zelle.EntireColumn.Hidden Then Zelle.EntireColumn.Delete
Next
End Sub
Gruß, Daniel