Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Postleitzahlen

Forumthread: Postleitzahlen

Postleitzahlen
15.02.2005 20:28:49
Martin
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 !!!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Postleitzahlen
Beni
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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige