ich fülle eine Listbox1 mit folgenden Werten:
Set WS3 = WB.Sheets("Kontodaten") 'benötigt für Combobox2 Kontoart
z3 = WS3.Cells(Rows.Count, 14).End(xlUp).Row 'benötigt für Combobox1 Kontoart
If WS3.Range("N2") = "" Then
ListBox1.RowSource = WS3.Range("N2").Value
Else
With ListBox1
.List = WS3.Range("N2:N" & z3).Value
.ColumnCount = 1
.ColumnHeads = False
.ColumnWidths = "3,5cm"
End With
Nun möchte ich gerne den vorletzten Listboxeintrag markieren.
Könnt ihr mir bitte hierbei helfen.
Besten Dank
Gruss
Peter