Postleitzahlen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: Postleitzahlen von: Martin
Geschrieben am: 15.02.2005 20:28:49

Hallo zusammen!

Ich habe eine Spalte, in der verschiedene Postleitzahlen untergebracht sind. Wenn ich nun in einer Textbox eine Postleitzahl eingebe, die nicht in dieser Spalte auftaucht, sollten die nächstgelegene angesprungen werden.

Bsp.: ich habe 17262, 17382,26637 und 37272 in der List und gebe 12303 ein, dann sollten alle 17'er ausgegeben werden. Ich wäre Euch für eine VBA-Lösung super dankbar !!!

Bild


Betrifft: AW: Postleitzahlen von: Beni
Geschrieben am: 16.02.2005 10:08:28

Hallo Martin,
da ich nicht weiss, in welcher Spalte die PLZ sind, habe ich SpalteA bestimmt,
bei diesem Code wird bei nicht passendem Wert, der erste mit den ersten 2 gleichen und der Wert in SpalteB in TextBox2 eingefügt.
Gruss Beni




Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    PLZ = TextBox1.Value
Set C = Columns(1).Find(What:=PLZ, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
TextBox2.Value = C(1, 2).Value
Else
For r = 1 To Cells(65536, 1).End(xlUp).Row
    If Left(Cells(r, 1), 2) > Left(PLZ, 2) Then
    TextBox2.Value = Cells(r, 2).Value
    Exit For
    End If
Next r
End If
End Sub



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Postleitzahlen"