Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1628to1632
1628to1632
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

10 KGrösste mit Autofilter

Forumthread: 10 KGrösste mit Autofilter

10 KGrösste mit Autofilter
17.06.2018 10:39:50
Heinz
Schönen Sonntag, im Forum
Ich würde gerne die 10 Kgrössten mit Autofilter setzen.
Die Spalte mit den KGrössten wäre AC2:AC3000
Der Autofilter müsste über A1:AC3000 gesetzt werden.
Hätte dazu jemand bitte eine Hilfe anzubitten?
Danke
Gruß,Heinz
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 10 KGrösste mit Autofilter
17.06.2018 10:44:33
Sepp
Hallo Heinz,
Autofilter > Zahlenfilter > Top 10
 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: 10 KGrösste mit Autofilter
17.06.2018 10:48:37
Heinz
Hallo Sepp
Danke für deine Hilfe.
Wäre es auch möglich die 10 KGRÖSSTE in einer InbutBox auszugeben ?
Danke
SG, Heinz
AW: 10 KGrösste mit Autofilter
17.06.2018 10:58:22
Sepp
Hallo Heinz,
Sub filterTOP()
  Dim varTop As Variant
  varTop = Application.InputBox("Geben Sie die Anzahl der Elemente an die angezeigt werden sollen", "Autofilter", 10, Type:=1)
  If varTop <> False Then
    If IsNumeric(varTop) Then
      ActiveSheet.Range("A1").CurrentRegion.AutoFilter Field:=29, Criteria1:=varTop, Operator:=xlTop10Items
    End If
  End If
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: 10 KGrösste mit Autofilter
17.06.2018 11:06:44
Heinz
Hallo Sepp
Danke es funktioniert Super !
Sorry das ich lästig bin:
Könnte man das auch noch sortieren?
Danke,Heinz
AW: 10 KGrösste mit Autofilter
17.06.2018 11:21:10
Sepp
Hallo Hewinz,
klar geht das.
Sub filterTOP()
  Dim varTop As Variant
  varTop = Application.InputBox("Geben Sie die Anzahl der Elemente an die angezeigt werden sollen", "Autofilter", 10, Type:=1)
  If varTop <> False Then
    If IsNumeric(varTop) Then
      With ActiveSheet.Range("A1").CurrentRegion
        .Sort Key1:=Range("AC1"), Order1:=xlDescending, Header:=xlYes
        .AutoFilter Field:=29, Criteria1:=varTop, Operator:=xlTop10Items
      End With
    End If
  End If
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: 10 KGrösste mit Autofilter
17.06.2018 11:35:56
Heinz
Hallo Sepp
Du bist der BESTE !!!
Recht herzlichen DANK.
Schöne grüsse, Heinz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige