zuerst wähle ich in einer ComboBox einen Teile Typ aus meiner Excel Tabelle aus, es sind mehrere Teile mit gleichem Namen. Deswegen sollen dann alle Lieferanten angezeigt werden, die dieses Teil liefern. Es soll in einer UserForm angezeigt werden um danach weiter berechnen zu können welcher Lieferant welchen Preis hat.
Der Code für die Anzeige in den TextBox:
Private Sub ComboBox1_Change()
Dim s As String
Dim erg As String
'erg = 0
Set frm = UserForm12
s = frm.ComboBox1.Text
Dim i As Integer
Dim iMax As Integer
Application.ScreenUpdating = False
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 5 To iMax
If Worksheets("All Parts").Cells(i, 2) = s Then
erg = Worksheets("All Parts").Cells(i, 6)
Else
frm.TextBox1.Text = Format(erg, "Text")
End If
Next i
frm.TextBox2.Text = Format(erg, "Text")
Application.ScreenUpdating = True
End Sub
Leider zeigt es mir bei der 2. Textbox den gleichen lieferanten wie in der 1. an. Da sollte eigentlich der andere stehen...
Hoffentlich kann mir dabei jemand helfen. Oder hat einen Vorschlag, wie ich es anders machen kann.
Danke
Brunito