Hallo zusammen,
ich würde gerne einen Sverweis machen mit 2 Suchkriterien, die Argumente befinden sich in Spalte A und B, die Matrix geht bis J hinterher.
Ich habe mir bisher Abhilfe damit geschaffen das ich die eigentlichen Kriterien verkette und das Ergebnis durch eine als einfachen Sverweis mit Hilfe einer Hilfsspalte ausgeben lasse. Ich möchte aber ohne die Hilfsspalte auskommen da ich diese sonst immer Pflegen muss.
Kriterium 1: = "EKSG" in der Eingabe besteht der String aus 3 Zahlen einem "-" und einem Text Bsp.: "112 - Bier", für die Suche brauche ich hinterher nur die 3 Zahlen deswegen folgt nach dem Auslesen des wertes eine TextToColumns Funktion
Kriterium 2: = liefkto wird aus der Zelle "C3" ausgelesen
eksgnr = Workbooks("Artikelpass.xlsm").Worksheets("Tabelle1").Range("C7").Value
Sheets("Tabelle3").Range("C7") = eksgnr
Workbooks("Artikelpass.xlsm").Worksheets("Tabelle3").Range("C7").TextToColumns, _
Destination:=Workbooks("Artikelpass.xlsm").Worksheets("Tabelle3").Range("C8"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
vlID = liefkto & Workbooks("Artikelpass.xlsm").Worksheets("Tabelle3").Range("C8").Value
Kann mir da jemand bitte helfen?
|