Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Top 10 Ergebnisliste mit VBA

Top 10 Ergebnisliste mit VBA
08.03.2020 17:19:45
Trommy
Hallo zusammen,
ich muss aus einer nach Länge und Inhalt variablen Excel Liste eine
Top 10 Ergebnisliste -immer an die gleiche Stelle in der Tabelle- erzeugen und ablegen.
Dabei sollen die Top 10 Ergebnisse einer Spalte basierend auf der Wertesumme einer anderen Spalte ermittelt werden.
Früher habe ich das mit Pivot Tabellen gemacht, möchte es aber nun per VBA Coding - ohne Pivot - lösen.
zu beachten ist dabei, dass die Datenspalte, nach der der Top 10 Ausweis erfolgt, Mehrfacheinträge haben kann.
Zur Verdeutlichung habe ich eine vereinfachte Problemstellung in der Datei top10.xlsx hochgeladen.
Ziel wäre es die Top 10 Hersteller auf Basis der Summe der jeweiligen Stückzahlen zu ermittel und im Registerblatt "

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
keine Datei oT
08.03.2020 17:23:45
Hajo_Zi

AW: keine Datei oT
08.03.2020 17:26:31
Trommy
Du bist schneller als ich beim Uploaden gewesen... Jetzt ist die Datei auf dem Server...
AW: keine Datei oT
08.03.2020 17:27:59
Trommy
... jetzt ist die Datei auf dem Server
AW: keine Datei oT
08.03.2020 17:31:02
Hajo_Zi
Gut, Du möchtest den Link nicht in den Beitrag einfügen. Ich bin dann raus, da ich nicht auf dem Sewrver Suche.
Gruß Hajo
AW: keine Datei oT
08.03.2020 17:35:12
Trommy
...sorry, ich bin hier nicht so oft. Ich habe den Link noch einmal ergänzt
https://www.herber.de/bbs/user/135700.xlsx
Grüße
Trommy
Anzeige
AW: AW:Versuch mal
09.03.2020 15:50:53
Trommy
Hallo hary,
vielen Dank. Das passt für diese Datei super. Wie erwähnt habe ich im echten Leben eher mal eine ca. 3000 zeilige Datei(vaiiert aber), deren Länge und Inhalt aber variabel ist.
Meinst Du die Zeile
=SUMIF(RC[-4]:R[22]C[-4],RC[-1],RC[-3]:R[22]C[-3])
lässt sich auch verallgemeinert anpassen und wie müsste sie aussehen? Es wäre nett, wenn Du das noch aufklären könntest. Trommy
Anzeige
AW:mal ein anderer Ansatz
10.03.2020 08:18:22
hary
Moin Tommy
"verallgemeinert anpassen" versteh ich nicht.
Aber mal ein einfacher Ansatz. Siehe Anhang.
Hilfsspalte mit Formel und einfach den Filter(SpalteC)Zahlenfilter/Top10 nutzen.
https://www.herber.de/bbs/user/135736.xlsx
gruss hary
AW: AW:mal ein anderer Ansatz
10.03.2020 10:34:58
Trommy
Hallo hary,
vielen Dank, aber die Makro Lösung war schon nah dran.
Leider funktioniert das Makro ab der Zeile "with wks.sort" nicht mehr richtig.
Die Werte werden nach "apply" nicht mehr vollständig summiert.
Das wiederum liegt an der erwähnten Zeile
=SUMIF(RC[-4]:R[22]C[-4],RC[-1],RC[-3]:R[22]C[-3]).
Diese "rutscht" den relevanten Datenbereich immer weiter nach unten. Daher meine Frage, ob man diese Zeile so definiert kriegt, dass sie für den jeweiligen Emittenten gilt, aber dann immer den gesamten Datenbereich nach dern Werten abfragt. Ich hoffe, Du verstehst was ich meine. Ansonsten ein Beispiel:
Vor dem "sortieren:
Merceds: 150 Stück (richtig), Datenbereich A2:B24
Nach dem Sortieren:
Mercedes: 100 Stück (falsch), Datenbereich (A3:B24)
Die Lösung wäre, wenn der Datenbereich immer von Zeile 2 bis zum Rows.count.end(xlup) abgeprüft wird, also immer der gesamte (variabel sich ändernde) Datenbereich.
Grüße
trommy
Anzeige
AW: AW:mal ein anderer Ansatz
10.03.2020 11:32:31
hary
Moin Tommy
Formel war falsch. Hab ich geaendert.
Zusaetzlich Fornel in Werte umgewandelt.
Probier jetzt mal in deiner Bsp.-Mappe. 
Sub Meine_Top10()
Dim wks As Worksheet
Application.ScreenUpdating = False
Set wks = Worksheets("Basisdaten")
wks.Range("A2:A" & wks.Cells(Rows.Count, 1).End(xlUp).Row).Copy wks.Range("D2")
wks.Range("D2:D" & wks.Cells(Rows.Count, 4).End(xlUp).Row).RemoveDuplicates Columns:=1,  _
Header:=xlNo
'-- Formel neu --
wks.Range("E2:E" & wks.Cells(Rows.Count, 4).End(xlUp).Row).FormulaR1C1 = "=SUMIF(C[-4],RC[- _
1],C[-3])"
'-- neu ersetzt Formel durch Wert --
wks.Range("E2:E" & wks.Cells(Rows.Count, 4).End(xlUp).Row).Value = wks.Range("E2:E" & wks. _
Cells(Rows.Count, 4).End(xlUp).Row).Value
wks.Sort.SortFields.Clear
wks.Sort.SortFields.Add Key:=Range("E2:E" & wks.Cells(Rows.Count, 5).End(xlUp).Row), SortOn:= _
xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With wks.Sort
.SetRange wks.Range("D2:E" & wks.Cells(Rows.Count, 1).End(xlUp).Row)
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
With wks.Range("D2:E" & wks.Cells(Rows.Count, 4).End(xlUp).Row)
.AutoFilter Field:=2, Criteria1:="10", Operator:=xlTop10Items
.SpecialCells(xlVisible).Copy
Worksheets("Top10").Cells(2, 1).PasteSpecial Paste:=xlPasteValues
.AutoFilter
.Clear
End With
End Sub

gruss hary
Anzeige
AW: AW:mal ein anderer Ansatz
10.03.2020 13:40:29
Trommy
Super. Das wird mir weiterhelfen. Vielen Dank für Deine Unterstützung !!
Grüße
trommy
AW: Top 10 Ergebnisliste mit VBA
09.03.2020 15:46:20
Trommy
Hallo hary,
vielen Dank. Das passt für diese Datei super. Wie erwähnt habe ich im echten Leben eher mal eine ca. 3000 zeilige Datei(vaiiert aber), deren Länge und Inhalt aber variabel ist.
Meinst Du die Zeile
=SUMIF(RC[-4]:R[22]C[-4],RC[-1],RC[-3]:R[22]C[-3])
lässt sich auch verallgemeinert anpassen und wie müsste sie aussehen? Es wäre nett, wenn Du das noch aufklären könntest. Trommy

304 Forumthreads zu ähnlichen Themen

Pivot: Anzahl verschiedener Werte
Daniel

Hallo Profis,
wie kann ich im Datenfeld einer Pivot-Tabelle die Anzahl verschiedener Werte anzeigen lassen?
Bsp:
Spalte A
A
B
A
C
V
A
Excel zeigt hier im Datenfeld der Pivot-Tabelle (Anzahl) als Wert 7 an.
Ich würde aber gerne nur die Anzahl der versc...
07.01.2009 09:48:00
Thread-ID: 1037453
2 Beiträge
Anzeige
Anzahl unterschiedlicher Werte mit VBA ermitteln
Holger

Hallo Leute,
ich habe jetzt den ganzen Tag Archive studiert, Threads gelesen, gegoogelt... ich finde nicht die richtige Lösung (die ganz sicher total einfach ist).
Ich bekommen eine Liste mit vier Spalten und mehr als 50.000 Datensätzen im folgenden Format:
Verkäufername...... Auft...
12.03.2009 15:00:44
Thread-ID: 1059508
4 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Anzeige
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Excel Tool zum erstellen einer Top 100 Liste
Stein

Erstmals muss ich mich bedanken, wie schnell mir schon bei Problemen geholfen wurde. Leider hat es nicht geholfen und ich muss ein neues VBA Tool schreiben.
Also wie gesagt möchte ich in Excel ein Formular(Benutzeroberfläche) haben, wo man mehrere Excel Tabellen hinzufügt. Einmal nach Absat...
31.07.2009 14:28:25
Thread-ID: 1092766
3 Beiträge
Anzahl unterschiedlicher sichtbarer Werte
Dietmar

Guten Abend,
ich tüftele schon den ganzen Abend herum.
Wie kann ich die Anzahl unterschiedlicher Werte in einer Spalte per Formel herausfinden?
In der Spalte B (ab Zeile 33) steht Text und Zahlen.
Und jetzt das Besondere:
Die Anzahl soll nur für die sichtbaren Felder ausgewo...
05.03.2010 23:06:13
Thread-ID: 1143848
5 Beiträge
Textvergleich liefert falsche Werte
juergen

Hallo Forum!Ich habe zwei Textdateien mit gleicher Anzahl von Datensätzen. Zum Herausfiltern der ungleichen Datensätze benutze ich untenstehendes Skript, welches diese in eine dritte Textdatei einträgt.Es funktioniert anfangs optimal, nur leider schreibt es ab einer gewissen Anzahl von Datensät...
06.05.2002 19:43:53
Thread-ID: 118943
3 Beiträge
Pivot Tabellen Bestwerte anzeigen
Friedhelm

Hallo,
ich habe eine Tabelle mit Ergebnissen von Läufern und möchte in den Altergruppen und den verschiedenen Laufstrecken die Bestzeiten der Läufer darstellen.
Als Beispiel habe ich eine Tabelle beigefügt, die soweit den Pivot Auszug darstellt. Hier möchte ich in den Lauflängen nur die...
13.09.2010 11:02:06
Thread-ID: 1177216
8 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
6
7
2
2
4
2
7
3
10
5
4
2
7
5
7
1
2
2
10
3
7
9