Private Sub Befehl16_Click()
Dim i As Long, x As Long
Dim v as variant
With LST
For each v in .ItemsSelected
ReDim vnt(x)
vnt(x) = .ItemData(v)
x = x + 1
Next
End With
For i = LBound(vnt()) To UBound(vnt())
Debug.Print fnSTAAT(vnt(i))
Next i
End Sub
Function fnSTAAT(ByVal sBedingung As String) As String
Dim s As String
s = "SELECT TBL_STAAT.KDNR" & Chr(32)
s = s & "FROM TBL_STAAT" & Chr(32)
s = s & "WHERE (((TBL_STAAT.KDNR)=" & sBedingung & ";"
fnSTAAT = s
End Function