Zeilen ausblenden ab letzt beschriebene Zelle bis
21.12.2019 23:14:42
Karin
nach dem ich hier schon einige male Hilfe bekommen habe.
Im aktiven Tabellenblatt können die Zellen A1;A3;A5;A7;A9;A11;A13;A15.....bis A499 durch VBA beschrieben werden. (Also in jeder zweiten Zeile, die Zelle "A".)
Die Anzahl der Einträge ist immer unterschiedlich. Mal sind es 5, mal 12, mal 250 Einträge.
z.Bspl. (5 Einträge = Die Zellen A1,A3;A5;A7;A9 werden beschrieben).
Nun möchte ich gern über eine Schaltfläche, die NICHT beschriebenen Zellen nach dem letzten Eintrag zwischen Zelle A1 bis A499 ausblenden.
In meinem Code werden alle leere Zeilen ausgeblendet.
Wer kann mir helfen ?
LG
Karin
Sub Ausblenden()
Dim Zelle As Range
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.ActiveSheet
For Each Zelle In ws.Range("a1:a499").Cells
If Zelle = "" Then
ws.Rows(Zelle.Row).Hidden = True
End If
Next
End Sub
Anzeige