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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen