Zitat:

Geht das nur mit Listboxen oder kann ich diesen Tipp auch auf 2 Listviews anwenden ?

Private Sub Form_Load()
    Dim clmX As ColumnHeader
    Dim itmX As ListItem
    Dim i As Integer
 
    Set clmX = ListView1.ColumnHeaders.Add()
    clmX.Text = "Liste 1"
 
    Set clmX = ListView2.ColumnHeaders.Add()
    clmX.Text = "Liste 2"
 
    ListView1.HideSelection = False
    ListView2.HideSelection = False
    ListView2.FullRowSelect = True
    ListView2.Enabled = False
 
    For x = 1 To 20
        Set itmX = ListView1.ListItems.Add()
        itmX.Text = "Zeile " & x
        Set itmX = ListView2.ListItems.Add()
        itmX.Text = "Zeile " & x
    Next
End Sub
 
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    ListView2.ListItems(ListView1.SelectedItem.Index).Selected = True
    ListView2.SelectedItem.EnsureVisible
End Sub

Zitat:

Wieso hat eine Listview nicht den TopIndex ? Und wie bitte muss ich den Listindex der Listbox auf die Listview anwenden ?