Problem mit Schleife

Forumthread: Problem mit Schleife
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Problem mit Schleife

24.05.2005 11:13:59

Dani

Hallo zusammen
Ich habe da ein Problem mit einer Schleife. Und zwar gebe ich in eine TextBox eine Postleitzahl ein und dann sollte in einer weiteren TextBox der Ort erscheinen. Leider funktioniert das nicht. Ich habe folgenden Code verwendet.
In der Tabelle3 stehen in der 1. Spalte die Postleitzahlen und in der 2. Spalte der Ort.


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Suchbegriff = UserForm2.TextBox2
For i = 1 To 1000
If Worksheets("Tabelle3").Cells(i, 1).Value = Suchbegriff Then
suchwert = Cells(i, 2)
UserForm2.TextBox3.Value = suchwert
Else
MsgBox "Suchbegriff nicht gefunden"
End If
Next i
End Sub

Gruss Dani

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Problem mit Schleife

24.05.2005 11:20:51

u_
AW: Problem mit Schleife

24.05.2005 11:32:50

Dani
AW: Problem mit Schleife

24.05.2005 12:15:59

u_
AW: Problem mit Schleife

24.05.2005 13:40:06

Dani

AW: Problem mit Schleife

24.05.2005 11:20:51

Hallo,
warum mit einer Schleife? Ist doch furchtbar lahm. Mit der Find-Methode geht's erheblich schneller.
Gruß
Geist ist geil!

AW: Problem mit Schleife

24.05.2005 11:32:50

Dani

Hallo
Danke für deine Antwort. Leider kenne ich die Find-Methode nicht. Wie müsste ich denn vorgehen?
Gruss dani

AW: Problem mit Schleife

24.05.2005 12:15:59

Hallo,


Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngFind As Range
On Error Resume Next
Set rngFind = Sheets("Tabelle3").Range("A:A").Find(Me.TextBox2)
On Error GoTo 0
If rngFind Is Nothing Then
MsgBox "Nicht gefunden."
Cancel = True
Me.TextBox2.SetFocus
Me.TextBox2 = ""
Me.TextBox3 = ""
Else
Me.TextBox3 = rngFind.Offset(0, 1)
End If
End Sub

Gruß
Geist ist geil!