ich möchte erreichen,m dass wenn ich in eine Textbox z.B "t" eingebe, ein ganzes Wort automatisch geschrieben wird z.B. "test"
Welcher Text zu welchem Wort gehört habe ich hinterlegt (E18:E15)
Ich habe es mit folgendem Code versucht:
Private Sub txtStrecke_Change()
Dim such As String
Dim einf As Range
'Abfrage ob Autoausfüllen aktiv ist
such = txtStrecke.Value
If chk = True Then
For Each c In Sheets("Daten").Range("E18:E50")
If c.Value = such Then
Set einf = c.Offset(0, 1)
txtStrecke.Value = einf
Exit For
End If
Next c
End If
Sheets("Liste").Range("H7").Value = txtStrecke.Value
Aber das klappt nicht. Wahrscheinlich kann die Textbox nicht ihr eigenes Value auslesen.
Kann mir vielleicht jemand weiterhelfen?`
Vielen Dank im voraus
Michael