Function fAutoComplete(KeyCode As Integer)
 
Dim t As Boolean
t = False
Select Case KeyCode
Case Is = 27, 32, 186, 220, 222
t = True
Case 48 To 57
t = True
Case 65 To 90
t = True
Case 96 To 105
t = True
End Select
 
If Not t Then Exit Function
 
Dim ctl As Control
Set ctl = Screen.ActiveControl
Dim i As Long
With ctl
    For i = 0 To .ListCount - 1
        Dim l As Integer
        If Left(.SubItem(i, 1), Len(ctl.Text)) = Left(ctl.Text, Len(ctl.Text)) _
          Then
            l = Len(ctl.Text)
            .DisplayColumn = 1
            .SetListIndex (i)
            'ctl.Text = .SubItem(i, 1)
            ctl.SelStart = l
            ctl.SelLength = Len(ctl.Text)
            GoTo Weiter
            Exit For
        End If
        If StrComp(Left(.SubItem(i, 2), Len(ctl.Text)), Left(ctl.Text, Len( _
          ctl.Text)), vbTextCompare) = 0 Then
            l = Len(ctl.Text)
            .DisplayColumn = 2
            .SetListIndex (i)
            'ctl.Text = .SubItem(i, 2)
            ctl.SelStart = l
            ctl.SelLength = Len(ctl.Text)
            GoTo Weiter
            Exit For
        End If
    Next i
 
Weiter:
 
    Select Case ctl.Name
    Case Is = "txtSollkonto"
        frmErfassung.txtSKontotext.Text = .SubItem(i, 2)
    Case Is = "txtHabenkonto"
        frmErfassung.txtHKontotext.Text = .SubItem(i, 2)
    End Select
 
End With
 
End Function