ich fülle eine ComboBox mit gewollt doppelten Werten.
Jetzt möchte ich mit dem ComboBox_Change Ereignis diverse TextBoxen
eines UserForms füllen.
Hierzu verwende ich diesen Code:
Private Sub ComboBox1_Change() 'Daten suchen bei Änderung der Nummer
If ComboBox1.Value "" Then 'Wenn Combobox nicht leer, dann ...
Range("D:D").Select 'Spalte D auswählen
With UserForm5
Selection.Find(what:=.ComboBox1.Value, LookIn:=xlValues, _
lookat:=xlWhole, searchorder:=xlByRows).Activate
.TextBox1.Value = ActiveCell.Offset(0, -3).Value
.TextBox2.Value = ActiveCell.Offset(0, -1).Value
.TextBox4.Value = ActiveCell.Offset(0, 1).Value
.TextBox4.Text = Format(TextBox4, "#,##0.00")
End With
End If
End Sub
Wenn ich jetzt in der ComboBox Werte doppelt habe, wird mein UserForm bei
diesem Code aber immer nur mit den Daten gefüllt, die in der Zeile stehen in der
der ausgewählte Wert des 1. Mal verkommt. Wie müsste ich den Code ändern
um die Daten z. B. aus der Zeile zu bekommen in der der doppelte Wert zum
2. Mal auftaucht?
Bin erst wieder Montag morgen online, deshalb jetzt schon mal vielen Dank
für Eure Hilfe.
Viele Grüße
Jürgen