Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1628to1632
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige