Private Sub Befehl16_Click()
Dim i As Long, x As Long
With LST
For i = 0 To .ListCount - 1
If .Selected(i) Then
ReDim vnt(x)
vnt(x) = .ItemData(x)
MsgBox vnt(x)
x = x + 1
End If
Next
End With
For i = LBound(vnt()) To UBound(vnt())
Debug.Print vnt()
Next i
End Sub
Option Compare Database
Option Explicit
Public Function vnt() As Variant
vnt() = vnt()
End Function
Public Function VNT2() As Variant
End Function
Egal wie,im Direktbereich ist nichts zu sehen.