Private Sub Liste_GoTo(ByVal ID As Long)
  <font color=green>' Liste nach ID durchsuchen</font>
  Dim I As Integer
  Dim Index As Integer
 
  Index = -1
  With List1
    For I = 0 To .ListCount - 1
      If .ItemData(I) = ID Then
        Index = .I: Exit For
      End If
    Next I
 
    If Index > -1 Then
      .ListIndex = I
    Else
      MsgBox "Datensatz mit ID " & CStr(ID) & " nicht gefunden!"
    End If
  End With
End Sub

ListeGoTo 13