VBA: Suche Wert und Position in zweidimensionalen Array

[Flotter Feger]

Hallöchen,

du brauchst eigentlich die Spalte mit den Beständen und die Spalte mit den Lagernummern getrennt.
Ja ... auch das ist, jedes für sich, bereits ein 2-dimensionales Array ...

Dann so ...

Code:

Sub Listen()
Dim arr_Lager As Variant
Dim arr_Bestand As Variant

arr_Lager = Me.Range("A1:A9")
arr_Bestand = Me.Range("B1:B9")

With WorksheetFunction
    MsgBox .Index(arr_Lager, .Match(.Large(arr_Bestand, 1), arr_Bestand, 0), 1)
End With
End Sub

VG Sabina

PS: du könntest die Bestände aber auch einfach sortieren ...

Solltest du nicht zurechtkommen, dann lade bitte eine anonymisierte Muster-Datei hoch, die aber alle notwendigen Daten zum Ausprobieren enthält.
Und eine etwas bessere Erklärung, was du genau machen möchtest, wäre dann auch nicht schlecht.