Syntax: Objekt.NumberOfRows = 1 [Long]
bzw.:Dim ax As XPListControl Set ax = Me!AX_ListHeader.Object With ax MsgBox "Anzahl Spalten: " & .NumberOfRows, vbInformation End With Set ax = NothingMsgBox "Anzahl Spalten: " & Me!AX_ListHeader.NumberOfRows, vbInformation