S-Verweis in VBA?
05.06.2016 14:47:00
Aaron
Hallo zusammen,
für eine Erfassungsliste von Kundendaten hatte ich bisher durch einen S-Verweis den Ort durch die Postleitzahl ermittelt.
Jetzt habe ich das ganze Formular auf eine Userform umgebaut, hänge aber an der Übernahme des S-Verweis in einen VBA-Code.
Die Postleitzahlen liegen im Tabellenblatt Postleitzahlen in der Spalte "A".
Die dazugehörigen Orte im selben Blatt in der Spalte "B".
Ein erster Versuch mit folgendem Code war bisher leider vergeblich.
Es hat mir immer die MsgBox ausgeworfen, trotz korrekter Postleitzahl.
Private Sub Anfrageliste_08_TextBox_Enter()
Dim Letzte As Long
Dim zipcount As Long
Dim strPath As String
strPath = ThisWorkbook.Path
'Letzte Zeile bestimmen:
Letzte = Sheets("Postleitzahlen").Cells(Rows.Count, 1).End(xlUp).Row + 1
'PLZ & Ort Suche
For zipcount = 2 To Letzte
If Anfrageliste_07_TextBox.Value = Sheets("Postleitzahlen").Cells(zipcount, 1) Then
Anfrageliste_08_TextBox.Value = Sheets("Postleitzahlen").Cells(zipcount, 2)
Exit Sub
End If
Next zipcount
MsgBox "Die eingegebene Postleitzahl wurde nicht gefunden, bitte die Eingabe überprüfen."
End Sub
Leider sind meine VBA-Kenntnisse noch nicht so fundiert, dass ich hier eine Lösung sehe.Ich freue mich über Hilfe und Rückmeldung.
Vielen Dank im Voraus.