Hilfe bei Makro
27.05.2014 22:47:49
Sandra
ich habe folgendes Makro entdeckt, welches ich gerne für mein Vorhaben verwenden wollte. Leider komm ich mit diesem nicht wirklich klar?
Der Vba Code lautet wie folgt:
------------------------------------------------------------------------------------
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
Wie, wo und was muss ich eintragen?
Ich habe in "Sheet2" / Zelle A1 "=SverweisMit2Kriterien("Sheet3!";"4";1;"grün";2;3)" _
eingetragen.
In Sheet3 sind die Such- und Ausgabekriterien, allerdings wir WERT# ausgegeben.
Was mache ich Falsch?
Danke und schönen Grüße, Sandra
Anbei das Sheet:
https://www.herber.de/bbs/user/90873.xlsm
_