Laufzeitfehler 381 ComboBox.List
Daniel
aus Hans Online-FAQ habe ich folgenden Code leicht abgewandelt im Einsatz:
'Spalte 2 ohne Leerzellen und Doppel in ComboBox'
Private Sub UserForm_Initialize()
Dim wks As Worksheet
Dim vRow As Variant
Dim iRow As Integer, iRowT As Integer, iRowL As Integer
Application.ScreenUpdating = False
Set wks = Tabelle5
iRowL = wks.Cells(Rows.Count, 13).End(xlUp).Row
Workbooks.Add
For iRow = 2 To iRowL
vRow = Application.Match(wks.Cells(iRow, 13).Value, Columns(1), 0)
If IsError(vRow) Then
iRowT = iRowT + 1
Cells(iRowT, 1).Value = wks.Cells(iRow, 13).Value
End If
Next iRow
Range("A1").CurrentRegion.Sort _
key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
With cmbAuftrag
.List = Range("A1").CurrentRegion.Value
If .ListCount > 0 Then .ListIndex = 0
End With
ActiveWorkbook.Close savechanges:=False
Application.ScreenUpdating = True
Funktioniert einwandfrei sobald ich mehr wie 2 unterschiedliche Werte in die ComboBox bekomme.
Bleibt nur ein Wert stehen kann die List Eigenschaft nicht gesetzt werden, Laufzeitfehler 381: Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfelds ungültig.
Hat jmd. eine Idee wie man das abfangen könnte?
Besten Dank im Voraus.
Grüße, Daniel