Makro auswerten
21.05.2014 17:28:24
Mühlroth N.
Hallo Ich bin absoluter VBA-Neuling,
ich hab im Netz nach einem Makro gesucht, mit welchem ich eine Matrix mit zwei Suchkriterien durchsuchen lassen kann und bin auf Code unten gestoßen.
Allerdings weiß ich nicht genau, wie ich diesen anwenden soll/kann?
Könnt Ihr mir diesbezüglich weiter helfen ... am besten mit einem Beispiel.
=SverweisMit2Kriterien(???)
Vielen Dank
Mühlroth N.
Function SverweisMit2Kriterien(Blatt As Worksheet, SuchKriterium1 As String, SuchSpalte1 As _
Long, SuchKriterium2 As String, SuchSpalte2 As Long, ErgebnisSpalte As Long) As Variant
Dim ZeileMax As Long
Dim Wsf As Worksheet
Function
Set Wsf = Application.Worksheet
Function
With Blatt
ZeileMax = Wsf.Max(.Cells(.Rows.Count, SuchSpalte1).End(xlUp).Row, .Cells(.Rows.Count, _
SuchSpalte2).End(xlUp).Row)
strAdresseSpalte1 = Blatt.Name & "!" & Replace(.Range(.Cells(2, SuchSpalte1), .Cells(ZeileMax, _
_
_
SuchSpalte1)).Address, "$", "")
strAdresseSpalte2 = Blatt.Name & "!" & Replace(.Range(.Cells(2, SuchSpalte2), .Cells(ZeileMax, _
_
_
SuchSpalte2)).Address, "$", "")
strAdresseErgebnisSpalte = Blatt.Name & "!" & Replace(.Range(.Cells(2, ErgebnisSpalte), .Cells( _
_
_
ZeileMax, ErgebnisSpalte)).Address, "$", "")
SverweisMit2Kriterien = Evaluate("=index(" & strAdresseErgebnisSpalte & _
",match(""" & SuchKriterium1 & SuchKriterium2 & """," & strAdresseSpalte1 & "&" & _
strAdresseSpalte2 & ",0))")
End With
End Function