Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Anzahl nicht versteckter Zeilen angeben"

Seitenanzahl eintragen download Funktion ANZAHL2 ohne ausgeblendete Spalten download
Anzahl der über ParamArray festgelegten Parameter download Anzahl eines bestimmten Wochentages im Monat download
Anzahl der einzufügenden Zeilen abfragen download Bestimmte Anzahl von Zeichen zulassen download
Seitennummer und Seitenanzahl per VBA in Kopfzeile download Nur AJM in TextBox akzeptieren und Anzahl zählen download
Anzahl von CheckBoxes in einer UserForm ermitteln download Anzahl der gelb hinterlegten Zellen ermitteln download
Anzahl eins Wertes unter Berücksichtigung der Groß-/Kleinschreibung download Anzahl in einer Liste vorkommender Namen zählen download
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download Anzahl Artikelnummern auf Deckblatt nach Blättern zählen download
Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln download Anzahl der Wochentage in einem vorgegebenen Zeitraum ermitteln download
Vorgegebene Anzahl niedrigster Werte anzeigen download Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel download
Anzahl der durch Autofilter ermittelten Datensätze anzeigen download Anzahl der Übereinstimmungen in zwei Bereichen ermitteln download
Druckseiten und Anzahl der Ausdrucke über UserForm festlegen download Anzahl der Einträge zu einer bestimmten Kalenderwoche download
Anzahl von Werten nach verschiedenen Bedingungen. download Aus Liste Anzahl der Januartage eines bestimmten Jahres listen download
Ermittlung von Anzahl und Summe mit 2 Kriterien download Einem Datum eine bestimmte Anzahl von Jahren hinzufügen download
Anzahl von Zellen aus einem nicht rechteckigen Bereich ermitteln download Über InputBox zu ermittelnde Spaltenanzahl einfügen download
Zeilen gem. vorgegebener Anzahl kopieren download Anzahl der Mails in einem vorgegebenem Outlook-Ordner ermitteln download
Vorgegebene Anzahl Artikel nach dem Zufallsprinzip auswählen download Aufschriften und Anzahl der aktivierten ComboBoxes auslesen download
Anzahl der Monatstage gem. Zeitrahmen suchen download Zeilenhöhe in cm festlegen download
Summe gefilterter Zeilen download Zeilenumbruch download
Leere Zeilen löschen download Spalten/Zeilen aus- und einblenden download
Zeilenumbruch in Formel erzwingen download Zeilen und Spalten über ein Drehfeld ein- und ausblenden download
Alle Kopf-/Fußzeilen-Festlegungen löschen download Fußzeilen beim Öffnen eintragen download
Zellinhalte zeilenweise sortieren download Zeilen markieren download
Über VBA Schriftgröße von Fußzeilen bestimmen download Einige Zeilen in einer sequentiellen Datei ersetzen download
Zeilen oberhalb der markierten Zellen einfügen download Leere Zeilen beim Drucken unterdrücken download
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
Alle nichtleeren Zeilen markieren download Zeilen mit leeren Formeln beim Druck unterdrücken download
Zeilen bedingt durch SpinButton verschieben download Auf Doppelklick Zeilenumbruch und "X" download
Leere Zeilen beim Druck ausblenden download Menüpunkte zum Einfügen und Löschen von Zeilen hinzufügen download
Zeilenweise sortieren download Leere Zeilen und Spalten in ausgewähltem Bereich löschen download
Alle leeren Zeilen und Spalten entfernen download Kopf-/Fußzeilen-Festlegungen übernehmen download
Zeilen mit Zellen mit rotem Hintergrund ausblenden download Nur Zeilen mit einer "2" drucken download
Nur Zeilen mit bestimmtem Inhalt in HTML-Datei konvertieren download Schriftart in Zeilen wechselweise fett/nicht-fett formatieren download
Zeilenweise von Blatt zu Blatt kopieren download Doppelte Datensätze und Leerzeilen löschen download
Alle Zeilen außer der mit dem höchsten Wert löschen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Mit InputBoxes Zeilennummern abfragen und Summe bilden download Kofpzeilenwerte angekreuzter Zellen multiplizieren download
Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen download Zeilenumbrüche im aktiven Blatt entfernen download
Werte von jeweils zwei Zeilen verbinden download Bei Zeileneintrag Anzeige von "erledigt" download
Werte aus Tabelle1 mit zusätzlichen Leerzeilen in Tabelle2 download Zeilenumbrüche in eine *.CSV-Datei übernehmen download
Druckstart- und endzeilen über InputBox abfragen download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Zeilen einfügen, Werte und Bezüge zu den Werten eintragen download Tabellenzeilen in Abhängigkeit einer zweiten Tabelle einblenden download
Tabellen vergleichen und Zeilen ersetzen download