Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

höchsten 20 Werte aus Spalte in T1 ausgeben

Forumthread: höchsten 20 Werte aus Spalte in T1 ausgeben

höchsten 20 Werte aus Spalte in T1 ausgeben
03.03.2017 08:19:53
Beginner
Hallo zusammen,
ich hätte eine Frage zur VBA Programmierung.
Würde gerne zukünftig schneller eine Auswertung machen.
Hab ein File 16.000 Zeilen und 16 Spalten. (Tabelle 2)
Wünsche wäre es nun, dass er mir aus Spalte "O" (15) die 20 höchsten Werte sucht.
Zu den jeweiligen 15 höchsten Werte würde ich aber die Information Aus Spalte "E" (5), "F" (6), "G" (7), "H" (8) benötigen.
Tabelle 1:
Die Information aus Spalte "E" (5), "F" (6), "G" (7), "H" (8) und den Wert aus Spalte "O" (15) soll in Tabelle 1 / A1 ausgeben werden.
Würde mich sehr über Unterstützung freuen
Grüße
Hannes
Anzeige

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

Betreff
Datum
Anwender
Anzeige
KGRÖSSTE, Autofilter etc. ? (owT)
03.03.2017 08:32:56
EtoPHG

AW: KGRÖSSTE, Autofilter etc. ? (owT)
03.03.2017 09:17:49
Daniel
Hi
per VBA dürfte am schnellsten sein, die Tabelle nach Spalte O absteigend zu sortieren und dann die ersten 20 Zeilen als Block in die Tabelle1 zu kopieren.
Im Sortieren ist Excel sehr schnell.
wenn keine Überschrift vorhanden ist
With Sheets("Tabelle2")
.Usedrange.sort key1:=.cells(1, 15), order1:=xlascending, Header:=xlno
Intersect(.Range("E:H,O:O"), .Range("1:20")).Copy
End with
Sheets("Tabelle1").Cells(1, 1).PasteSpecial xlpasteall
Gruß Daniel
Anzeige
AW: KGRÖSSTE, Autofilter etc. ? (owT)
03.03.2017 10:25:10
Rainer
Hallo Hannes,
ich schließe mich EtoPHG an, das lässt sich vermutlich auch ohne VBA machen.
Kannst du mal eine Beispieldatei erstellen? 50 Zeilen reichen zum Test, aber die Werte sollten representativ sein (Positve, Negative, Dimension, Doppler, etc.).
Ich denke mit KGRÖSSTE, VERGLEICH und INDEX kommt man schnell zum Ziel.
Gruß,
Rainer
Anzeige
AW: höchsten 20 Werte aus Spalte in T1 ausgeben
03.03.2017 09:07:55
UweD
Hallo
so?
Sub Größte()
    Dim LR As Integer
    Application.ScreenUpdating = False
    
    'Reset 
    Sheets("Tabelle1").Cells.ClearContents
    
    With Sheets("Tabelle2")
        LR = .Cells(.Rows.Count, 15).End(xlUp).Row 'letzte Zeile der Spalte 
        If .AutoFilterMode Then .AutoFilterMode = False ' Autofilter ausschalten 
        '.Columns(15).AutoFilter 
        .Columns(15).AutoFilter Field:=1, Criteria1:="20", Operator:=xlTop10Items
        .Rows("1:" & LR).Copy Sheets("Tabelle1").Rows(1)
        .AutoFilterMode = False
    End With
    
    With Sheets("Tabelle1")
        
        'Spalte O nach vorne 
        .Columns(15).Cut
        .Columns(1).Insert Shift:=xlToRight
        
        'überflüssige Spalten löschen 
        .Columns("B:E").Delete Shift:=xlToLeft
        
        'Sortieren absteigend 
        .Sort.SortFields.Clear
        .Sort.SortFields.Add Key:=Range("A1"), _
            SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .Sort.SetRange Range("A:E")
        .Sort.Header = xlYes
        .Sort.MatchCase = False
        .Sort.Orientation = xlTopToBottom
        .Sort.SortMethod = xlPinYin
        .Sort.Apply
        
        'nicht benötigte Werte ab 16 löschen 
        .Range("B16:E21").ClearContents
    End With
End Sub

LG UweD
Anzeige
AW: höchsten 20 Werte aus Spalte in T1 ausgeben
05.03.2017 19:36:45
Beginner
Vielen Vielen Dank!
Klappt perfekt, das einzige was geändert habe ist, dass er die höchste Werte in die 1. Spalte kopiert.
Vielen Dank für die Hilfe!
Danke für die Rückmeldung owT
06.03.2017 09:13:18
UweD
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Verschiedene Werte in bestimmte Zahlen umwandeln
Henning

Hallo, ich versuche grade bei einem Schichtplan die Verschiedenen Zelleninhalte z.B. Zelle A3 Inhalt "U1",Zelle A4 Inhalt"1/3" usw. in Werte umzuwandeln und diese dann als Stunden ausrechennen zu lassen.
Also so soll z.B. aus dem Inhalt von Zelle A3, dort steht "U1" soll dann 8 Stunden ents...
15.10.2008 18:37:00
Thread-ID: 1016648
4 Beiträge
Anzeige
In Zahlen umwandeln
fuxl

Ich hab ein AutoOpen Makro in dem ich die Funktion TextinSpalten verwende um den Zelleninhalt in eine Zahl umzuwandeln und die kleinen Dreiecke los zu werden. Das ganze geschieht mit folgender Zeile:
'Tabelle1.Range("H15:H$" & letzteZeile).TextToColumns Destination:=Tabelle1.Range("H15"...
19.11.2008 11:13:06
Thread-ID: 1025937
5 Beiträge
Buchstaben als Ergebnis einer Wenn- Funktion
Mario

Grüßt euch,
ich rätsel gerade, wie sich auch Buchstaben als Ergebnis einer Wenn-Funktion übernehmen lassen.
Meine Formel:
=WENN(Maße!B11=1;Maße!K6)+WENN(Maße!B11=2;Maße!K7)+WENN(Maße!B11=3;Maße!K8)+WENN(Maße!B11=4;Maße!K9) +WENN(Maße!B11=5;Maße!K10)
Stehen in K6, K7,...
21.11.2008 22:21:55
Thread-ID: 1026853
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Text in Zahlen umwandeln
u_hoernchen

Ich habe eine Spalte in Excel, in der vereinzelt Zellen sind, in denen Zahlen als Text formatiert sind. Da ich diese Zahlen für die weitere Verwendung als Werte haben muss und ich das dann relativ oft umfrickeln muss (ist leider ein Download aus einem Vorprogramm), frage ich mich, ob es ggf. ei...
26.11.2008 11:09:00
Thread-ID: 1027963
4 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Zahlen suchen in zwei spalten
Timo

Hallo,
ich habe ein kleines, wahrscheinlich sehr einfaches Problem.
Ich habe sowohl eine Spalte A als auch Spalte B, wo immer sechsstellige Zahlen drin stehen. Jetzt würde ich gern in Spalte C überprüfen lassen, ob die jeweilige Zahl, die in Spalte B steht, auch irgendwo in Spalte A v...
17.12.2008 08:51:00
Thread-ID: 1033514
4 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige
VERKETTEN-String in Zahl umwandeln
Steffi

Hi,
bräuchte mal Hilfe:
Ich möchte eine Liste von Zahlen mit WENN-Formeln prüfen. Die Bedingungen mit den jeweiligen Operatoren stehen in anderen Zellen, z.B. "<=2". Ich hab es mit der VERKETTEN-Funktion versucht, aber anscheinend wird das Ergebnis als String interpretiert:
A1: 1...
29.01.2009 17:22:16
Thread-ID: 1045101
5 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige