Function xchek(ByRef asInput As String)
Dim sSQL As String
Dim wert as String
 
wert = Val(asInput)
 
sSQL = "SELECT auswahl_11 FROM sta_artikelstamm a,sta_art_klassifizierung b
where a.artikel_nr = b.artikel_nr
and a.artikel_nr = 'wert'"
 
xchek = sSQL
 
End Function

Benet