also IB_CATEG_R ist const , und array aber es hat leere elemnte und ich möchte die leere elmente nicht darstellen
Dim i As Integer
Dim r_temp As Range
On Error GoTo UserForm_Initialize_Error
Set r_temp = ThisWorkbook.Names(IB_CATEG_R).RefersToRange
With gebäude.com_kateg
For i = 1 To r_temp.Rows.Count
.AddItem r_temp.Cells(i, 1).Value
Next i
End With
Set r_temp = ThisWorkbook.Names("ib_categ").RefersToRange
gebäude.com_kateg.Value = r_temp.Value