Ich möchte für einen recht großen Bereich (30-40K zeilen,70 Spalten) den jeweils kleinsten und größten wert ermitteln mit einer Bedingung, in dem Bsp. ein Produkt.
Meine vorangegangen Frage war leider nicht so umsetzbar wie gedacht.
https://www.herber.de/forum/messages/1564802.html
Ich weiß, das der nun aufgeführte Code sehr viel zeit benötigt und umständlich ist.
Und falls ihr keine Bessere idee habt werde ich wohl auf die application.WorksheetFunction.DMax() umsteigen. Ich denke mir aber es muss doch einfacher und besser gehen wie diese Lösungen.
Der Hintergrund ist der folgende, für eine weiter Tabelle (deutlich weniger Zeilen), die mit eine For -Next schleife läuft benötige ich die Werte der jeweiligen Produkte
Für Anregungen wäre ich sehr dankbar!!
Sub minmax()
With ThisWorkbook.Worksheets("Produkte")
minA = 10000
minB = 10000
minC = 10000
For icol = 2 To .UsedRange.Columns.Count 'zb. Länder
For irow = 7 To .UsedRange.Rows.Count ' zb. Preise
Select Case .Cells(irow, 1) ' Produkte
Case Is = "A"
If .Cells(irow, icol) maxA Then maxA = .Cells(irow, icol)
Case Is = "B"
If .Cells(irow, icol) maxB Then maxB = .Cells(irow, icol)
Case Is = "C"
If .Cells(irow, icol) maxC Then maxC = .Cells(irow, icol)
End Select
Next irow
.Cells(1, icol) = minA
.Cells(2, icol) = maxA
.Cells(3, icol) = minB
.Cells(4, icol) = maxB
.Cells(5, icol) = minC
.Cells(6, icol) = maxC
minA = 10000
maxA = 0
minB = 10000
maxB = 0
minC = 10000
maxC = 0
Next icol
End With
End Sub