ich möchte Euch wieder einmal um Eure Hilfe bitten, komme nicht so recht weiter.
Über eine ComboBox lese ich einen Datensatz in mehrere Textboxen ein.
Hierzu benutze ich folgenden Code:
Private Sub ComboBox1_Click()
Dim rng As Range
Dim iCounter As Integer
Dim sSearch As String
sSearch = ComboBox1.Text
If sSearch = "" Then
MsgBox ("Bitte geben Sie den Suchbegriff ein!")
Call TextBoxEntleeren
ComboBox1.SetFocus
Exit Sub
End If
Set rng = Columns("C").Find( _
what:=sSearch, lookat:=xlWhole, LookIn:=xlValues)
If rng Is Nothing Then
Beep
MsgBox "Dieser Name ist nicht vorhanden!"
Call TextBoxEntleeren
ComboBox1.SetFocus
Exit Sub
End If
For iCounter = 1 To 12
frmKundenAdressen.Controls("TextBox" & iCounter).Text = _
Cells(rng.Row, iCounter)
Next iCounter
cmdDatenÄndern.Enabled = True
ComboBox1.SetFocus
cmdschließen.SetFocus
End Sub
Kommt jedoch der Begriff aus der ComboBox mehrfach vor, so werden die TextBoxen bei Auswahl eines anderen, gleichlautenden Begriffs nicht aktualisiert.
Wie muß ich den Code ändern, bzw. was muß ich ggf. hinzufügen?
Danke für Eure Hilfe.
Gruß
Dieter.K