Listindex. ...
08.01.2008 20:19:32
Sonnenpeter
ich lade mir über ein Makro ein Listenfeld und zähle dabei die Anzahl der Eintragungen mit.
Diese hinterlege ich dann in Zelle "N1".
Hintergrund ist, dass die erste und die letzte Eintragung im Listenfeld nicht ausgeworfen werden soll.
LIndex = Me.Range("N1").Value
Set LB = ActiveSheet.ListBoxes("Listenfeld1")
If LB.ListIndex = 1 Or LB.ListIndex = LIndex Then
Exit Sub
End If
Welche Möglichkeit habe ich noch um den maximalen Listenindex zu ermitteln?
Gruß Sonnenpeter