Syntax: Objekt.SelectedRow = 1 [Single]
Dim ax As VistaListControl Set ax = Me!AX_ListHeader.Object With ax MsgBox "Die aktive Spalte ist: " & .SelectedRow ,vbInformation .SelectedRow = .SelectedRow + 1 End With Set ax = Nothing