Thema Datum  Von Nutzer Rating
Antwort
09.04.2019 21:56:55 Anne
NotSolved
Blau Filter Zeilenanzahl begrenzen
10.04.2019 08:46:02 Gast51817
NotSolved

Ansicht des Beitrags:
Von:
Gast51817		 Datum:
10.04.2019 08:46:02		 Views:
399		 Rating:
     
Antwort:
  Ja
Thema:
Filter Zeilenanzahl begrenzen 
Sub TestTop50()
'
Dim rngf As Range, s As Long, e As Long, x As Long, y As Long
'
   With ActiveSheet
      If Not .AutoFilterMode Then Exit Sub
      Set rngf = .AutoFilter.Range
      s = rngf.Rows(2).Row
      e = rngf.Rows(rngf.Rows.Count).Row
      For x = s To e
         If Not Rows(x).Hidden Then y = y + 1
         If y > 50 Then Rows(x).Hidden = True
      Next x
   End With
'
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.04.2019 21:56:55 Anne
NotSolved
Blau Filter Zeilenanzahl begrenzen
10.04.2019 08:46:02 Gast51817
NotSolved