Function f_kreuz_wert(y_feld As String, y_wert As Variant, x_feld As String, x_wert As Variant, tabelle As String, ret_feld As String) As Variant

'Heiko Hommes
'10.09.2010
'fllen einer Kreuztabelle
'Aufruf rueckgabe = f_kreuz_wert("f1", 1, "f2", 12, "hh", "rf")

Dim db As Database
Dim rs As Recordset
Dim sql As String
Dim ds_da As Variant


Set db = DBEngine(0)(0)

sql = "select " & ret_feld & " as rueckgabe from " & tabelle & " where str(" & y_feld & ") = " & y_wert _
        & " and str(" & x_feld & ") = " & x_wert

Set rs = db.OpenRecordset(sql)
ds_da = rs.RecordCount

If ds_da > 0 Then
 f_kreuz_wert = rs!rueckgabe
Else
 f_kreuz_wert = Null
End If

End Function