Hi Gast,
nach deiner Logik / Vorgabe(n) geht die Matrix über die Zellen A2:Kn (n = max. Zeilen)
Variante 1
Kriterium in Zelle A1 eingeben und Ergebnis in Zelle L1 ausgeben
d.h. in L1 diese Excel-Funktion
=INDEX($A$2:BEREICH.VERSCHIEBEN($A$1;ANZAHL2(A:A)-1;10);VERGLEICH($A$1;$A$2:BEREICH.VERSCHIEBEN($A$1;ANZAHL2(A:A)-1;0);1);100*($A$1-ABRUNDEN($A$1;1))+2)
Aber mit so einer Formelbastelei bin ich nicht wirklich vertraut, daher
Variante(n) - VBA
'Option Explicit
Sub Sowas()
'freie Eingabe
On Error GoTo errorhandler
Suche = CDbl(Left(InputBox("Suchkriteriunm"), 4))
Set Zeile = Columns(1).Find(WorksheetFunction.RoundDown(Suche, 1))
MsgBox Zeile.Offset(, 1 + (Suche - Zeile) * 100)
On Error GoTo 0
errorhandler:
End Sub
Sub Etwas()
'Suchkriteriunm aus Zelle - hier "A1"
On Error GoTo errorhandler
Set Zeile = Columns(1).Find(WorksheetFunction.RoundDown([A1], 1), , -4163, 1)
MsgBox Zeile.Offset(, 1 + ([A1] - Zeile) * 100)
On Error GoTo 0
errorhandler:
End Sub
Sub Formelwas()
'Suchkriteriunm aus Zelle - hier "A1"
Const c_FORMULA = "=INDEX($A$2:OFFSET($A$1,COUNTA(A:A)-1,10),MATCH($A$1,$A$2:OFFSET($A$1,COUNTA(A:A)-1,0),1),100*($A$1-ROUNDDOWN($A$1,1))+2)"
On Error GoTo errorhandler
MsgBox Application.Evaluate(c_FORMULA)
On Error GoTo 0
errorhandler:
End Sub
|