ComboBox mit Teil einer Liste füllen

[Rabe]

Hallo,

ich habe eine Liste in Spalte I, die momentan folgendermaßen aussieht:

Datenbankliste

	I
2	R027/2016
3	A028/2016
4	R031/2016
5	R032/2016
6	R033/2016
7	R034/2016
8	A035/2016

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

mit diesem Makro fülle ich eine ComboBox mit den Daten:

Private Sub UserForm_Initialize()
   Dim objWs As Worksheet
   Dim objZeile As Range
   Set objWs = ThisWorkbook.Worksheets("Datenbankliste")
   
   loLetzte = objWs.Cells(Rows.Count, 1).End(xlUp).Row                     ' letzte belegte in Spalte A (1) 
   ComboBox1.RowSource = "Datenbankliste!I2:I" & loLetzte
   Set objWs = Nothing
   Set objZeile = Nothing
End Sub

Wie mache ich es, daß mir nur die aufgelistet werden, die mit einem A beginnen?