Anzahl nicht versteckter Zeilen angeben

• Anzahl nicht versteckter Zeilen angeben von Martin vom 02.10.2003 09:57:55
  • AW: Anzahl nicht versteckter Zeilen angeben - von Hans W. Herber am 02.10.2003 10:05:49
    • AW: Anzahl nicht versteckter Zeilen angeben - von Martin am 02.10.2003 10:08:21

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

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




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

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