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

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 !!!

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige