Combobox mit Bedingung füllen

Private Sub UserForm_Activate()
'Anfang Combobox3 Konto auswählen
Dim WB As Workbook
Dim WS1 As Worksheet                            'benötigt für Kontodaten
Dim z1 As String                                'benötigt für Combobox1 Kontodaten
Set WB = ThisWorkbook                           'benötigt für Combobox2 Kontoart und Combobox1  _
Kontodaten
Set WS1 = WB.Sheets("Kontodaten")             'benötigt für Combobox2 Kontoart
z1 = WS1.Cells(Rows.Count, 1).End(xlUp).Row     'benötigt für Combobox1 Kontoart
If WS1.Range("A2") = "" Then
ComboBox3.RowSource = WS1.Range("A2").Value
Else
With ComboBox3
.List = WS1.Range("A1:I" & z1).Value
.ColumnCount = 9
.ColumnHeads = False
.ColumnWidths = "3,5cm;3,5cm;4,6cm;2,5cm;2,5cm;2,5cm;2,0cm;2,0cm;2,5cm"
End With
End If
'Ende Combobox3 Konto auswählen
End Sub