Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Postleitzahlen"
Zellen mit Postleitzahlen separieren