Problem mit Schleife
24.05.2005 09:25:00
Dani
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