Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Static NoSelectText As String
Dim i As Long
Dim Ausgewaehlt As String
Dim Leerstring As String
    With Combo1
        If KeyCode = vbKeyUp Then Exit Sub
        If KeyCode = vbKeyDown Then Exit Sub
        If KeyCode = vbKeyLeft Then Exit Sub
        If KeyCode = vbKeyRight Then Exit Sub
        If KeyCode = vbKeyReturn Then SendKeys "{Tab}"
        If KeyCode <> vbKeyBack Then
            NoSelectText = Mid(.text, 1, Len(.text) - .SelLength)
        Else
            If NoSelectText <> "" Then
                NoSelectText = Mid(NoSelectText, 1, Len(NoSelectText) - 1)
            End If
        End If
        For i = 0 To .ListCount - 1
            If UCase(NoSelectText) = UCase(Mid(.List(i), 1, Len(NoSelectText))) _
              Then
                .ListIndex = i
                Exit For
            End If
        Next
        .SelStart = Len(NoSelectText)
        .SelLength = Len(.text)
        If .ListIndex = -1 Then
            .text = ""
            .BackColor = vbWhite
        Else
            .BackColor = vbWindowBackground
        End If
    End With
End Sub