Das Archiv des Excel-Forums
Anzahl nicht versteckter Zeilen angeben
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
Excel-Beispiele zum Thema " Anzahl nicht versteckter Zeilen angeben"