Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
416to420
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
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Nächstgrösserer Wert

Nächstgrösserer Wert
robi
Spalte A: Diverse Zahlen (teilweise gleiche Werte)
Spalte B: Diverse Zahlen (keine gleichen Werte)
Gewünschte Werte:
C1 = Wert aus Spalte A aus der Zeile, in der Spalte B Maximalwert hat
C2 = Wert aus Spalte A aus der Zeile, in der Saplte B Zweithöchsten Wert hat (Bedingung: Falls C2 = C1 dann nächsthöherer Wert aus Spalte B bis C2 ungleich C1)
C3 = Wert aus Spalte A aus der Zeile, in der Spalte B Dritthöchsten Wert hat (wieder die Bedingung C3 ungleich C1 und C2)
C4
C5
usw.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nächstgrösserer Wert
Klaus-Dieter
Hallo Robi,
Mit diesem Makro geht das:
Option Explicit
Sub groesste_werte()
Dim s As Integer
Dim z As Integer
Dim such As Integer
Dim c As Range
z = Range("A65536").End(xlUp).Row
For s = 1 To z
such = Workbooks.Application.Large(Range("B1", "B" & z), s)
With Worksheets("Tabelle1").Range("B1", "B" & z)
Set c = .Find(such, LookIn:=xlValues)
If Not c Is Nothing Then
Cells(1, 2 + s) = Cells(c.Row, 1)
End If
End With
Next s
End Sub

Code eingefügt mit: Excel Code Jeanie
Gruß Klaus-Dieter

Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige