VBA: Lookup Formel geht nicht mehr

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen,
ich habe für Office 2003 eine Formel geschrieben, die die Verwendung von einer Indexfunktion in Verbindung mit zwei Vergleichsfunktionen vereinfacht. Jetzt haben wir in der Firma auf Ofiice 2007 umgestellt und die Formel funktioniert nicht mehr. Habt Ihr eine Ahnung, woran das liegen kann. Für eine Lösung meines Problems wäre ich sehr dankbar
Viele Grüße,
Tim

Function mylookup(Suchbereich As Range, Reihenargument As Range, Spaltenargument As Range)
Set topline = Suchbereich.Offset(0, 0).Resize(1, Suchbereich.Columns.Count)
Set firstrow = Suchbereich.Offset(0, 0).Resize(Suchbereich.Rows.Count, 1)
xindex = Application.WorksheetFunction.Match(Reihenargument, topline, 0)
yindex = Application.WorksheetFunction.Match(Spaltenargument, firstrow, 0)
lookup = Suchbereich.Cells(yindex, xindex)
End Function

#2

ich habe für Office 2003 eine Formel geschrieben, die die
Verwendung von einer Indexfunktion in Verbindung mit zwei
Vergleichsfunktionen vereinfacht. Jetzt haben wir in der Firma
auf Ofiice 2007 umgestellt und die Formel funktioniert nicht
mehr.

Hallo Tim,

Aufruf: =mylookup(A1:G11;E1;A9) bzw. =mylookup2(A1:G11;E1;A9)

Function mylookup(Suchbereich As Range, Reihenargument As Range, Spaltenargument As Range)
Dim yindex, xindex
xindex = Application.Match(Reihenargument.Value, Suchbereich.Rows(1), 0)
yindex = Application.Match(Spaltenargument.Value, Suchbereich.Columns(1), 0)
mylookup = Suchbereich.Cells(yindex, xindex)
End Function

oder

Function mylookup2(Suchbereich As Range, Reihenargument As Range, Spaltenargument As Range)
mylookup2 = Suchbereich.Cells(Spaltenargument.Row, Reihenargument.Column)
End Function

Gruß
Reinhard

#3

Hallo Reinhard,

vielen Dank, die Formel funktioniert wieder. Klasse!
Vielen Dank für die schnelle Hilfe!
Gruß,
Tim