Das Archiv des Excel-Forums
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
- AW: Anzahl nicht versteckter Zeilen angeben - von Martin am 02.10.2003 10:08:21
- AW: Anzahl nicht versteckter Zeilen angeben - von Hans W. Herber am 02.10.2003 10:05:49
 |
Betrifft: Anzahl nicht versteckter Zeilen angeben
von: Martin
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
| |
