Private Sub 'dein Textfeld/Combobox_KeyUp(KeyCode As Integer, Shift As 
' Integer)
' Autovervollständigung der Eingabe in eine Combobox
 
  Static sTextOld As String
  Dim i As Integer
  Dim sPos As Integer
 
  With 'Deine Combobox
    ' nur wenn sich die Eingabe geändert hat
    If sTextOld <> .Text Then
      For i = 0 To .ListCount - 1
        If .List(i) Like .Text + "*" Then
          sPos = .SelStart
          sTextOld = .Text
          .Text = .List(i)
          .SelStart = sPos
          .SelLength = Len(.Text) - sPos + 1
          Exit For
        End If
      Next i
    End If
  End With
End Sub