Hallo,
ich habe in einem Arbeitsblatt eine Listbox. Diese wird mit einem Bereich per VBA gefüllt (s.u.). Soweit alles OK, nur die erste Zeile wird nicht angezeigt. Sie bleibt "Blanko". Klickt man darauf, wird aber der Korrekte Datensatz in den Feldern daneben angezeigt.
' Bereiche im Listen-Arbeitsblatt definieren und zuweisen
a = Worksheets("List").Cells(Rows.Count, 1).End(xlUp).Row
' List vorab leeren
objLBDataDefinition.ListFillRange = ""
objLBData.ListFillRange = "List!C5:E" & a
' Spaltenanzahl 3, wobei Spalte 2 nicht angezeigt wird (Breite 0)
objLBData.ColumnCount = 3
objLBData.ColumnWidths = "335;0;50" ' Spaltenbreite in der Listbox
' Position in der Tabelle
objLBData.Height = 255
objLBData.Width = 452
objLBData.Left = 38.25
objLBData.Top = 230
etc.
Woran kann es liegen, dass ich die Einträge nicht angezeigt bekomme?
Gruß und Danke
Kay