Private Sub UserForm_Initialize()
    ' Style: DropDownList
    With Me.sevText1
        .Style = rsComboBox
        .ColumnAdd , "PLZ", 700
        .ColumnAdd , "Ort", 1500
        ' ComboBox mit Daten füllen
        .LoadFile "J:\exc\PLZ-DATEIEN\PLZ-ORT mit Tab.txt"
        ' 1. Spalte an die TextBox binden
        .DisplayColumn = 1
        'Suchzeit für Tastatureingaben
        .DelayTimeListSearch = 3
        ' AutoComplete aktivieren
        .AutoComplete = True
    End With
End Sub
 
Private Sub sevText1_Change()
    With Me.sevText1
        Me.sevText2.Text = .SubItem(.ListIndex, "Ort")
    End With
End Sub

_________
liabr vom Essa an Ranza als vom Schaffa an Buckel