Dim i As Long
 
With Combo1
  For i = 0 To .ListCount - 1
    If .ItemData(i) = ConfigWert Then
      .ListIndex = i: Exit For
    End If
  Next i
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de