Anzahl nicht versteckter Zeilen angeben

Bild

Betrifft: Anzahl nicht versteckter Zeilen angeben
von: Martin
Geschrieben am: 02.10.2003 09:57:55


Hallo,

ein Makro von mir überprüft eine Spalten, ob doppelte Daten vorhanden sind. Sind welche vorhanden, werden sie ausgeblendet, ansonsten nicht (s.u.)

Nun würde ich gerne dieses Makro dahingehend erweitern, dass xl erkennt, ob Zeilen, in denen etwas steht nicht versteckt sind, und mir dann entsprechend eine Meldung gibt, z.B. die Anzahl nicht versteckter Zeilen. Meine Versuche das hinzubekommen scheiterten jedoch bisher. Erschwerend kommt hinzu, dass in Zeilen 1:4 immer etwas steht; das muss natürlich ausser Acht gelassen werden.

Hat jemand eine Idee bitte?

Gruss,
Martin



Sub HideDoubleData()
Application.ScreenUpdating = False
Sheets("LDs").Select
Range("A4").CurrentRegion.Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess
Range("E5").Select
    Do Until ActiveCell.Value = ""
        If ActiveCell.Value = ActiveCell.Offset(1, 0).Value Then
            ActiveCell.EntireRow.Hidden = True
            ActiveCell.Offset(1, 0).EntireRow.Hidden = True
            ActiveCell.Offset(1, 0).Select
        Else
            ActiveCell.Offset(1, 0).Select
        End If
    Loop
ActiveSheet.Range("A4").Select
'Application.ScreenUpdating = True
End Sub

Bild


Betrifft: AW: Anzahl nicht versteckter Zeilen angeben
von: Hans W. Herber
Geschrieben am: 02.10.2003 10:05:49

Hallo Martin,

siehe Beispielarbeitsmappe unter:
https://www.herber.de/bbs/texte/12visiblerows.xls

hans


Bild


Betrifft: AW: Anzahl nicht versteckter Zeilen angeben
von: Martin
Geschrieben am: 02.10.2003 10:08:21

ok, das funktioniert aber nicht in Abhängigkeit davon, ob etwas in den Zellen steht oder nicht!?

Gruss,
Martin


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Anzahl nicht versteckter Zeilen angeben"