17.12.2015, 13:27
Code:
Private Sub CommandButton1_Click()
Dim suche As Range
If ComboBox6.Text = "" Or ComboBox7.Text = "" Then
MsgBox "leere Eingabefelder vorhanden!"
Exit Sub
End If
C_mstrDatenblatt = ComboBox6.Text
mlngLast = Worksheets(C_mstrDatenblatt).Cells(Rows.Count, 1).End(xlUp).Row
' Stop
If Not ComboBox9 = "" Then
Set suche = Worksheets(C_mstrDatenblatt).Range("D3:D" & mlngLast).Find(ComboBox9.Text)
If Not suche Is Nothing Then
ComboBox1.Value = suche.Offset(0, 2).Value ' usw. bis 13 oder so
ComboBox4.Value = suche.Offset(0, 3).Value
TextBox6.Value = suche.Offset(0, 4).Value
TextBox7.Value = suche.Offset(0, 5).Value
TextBox8.Value = suche.Offset(0, 6).Value
TextBox9.Value = suche.Offset(0, 7).Value
TextBox10.Value = suche.Offset(0, 8).Value
TextBox11.Value = suche.Offset(0, 9).Value
TextBox12.Value = suche.Offset(0, 11).Value
ComboBox3.Value = suche.Offset(0, 12).Value
For loSpalte = 14 To 145
Me.Controls("TextBox" & loSpalte + 9).Value = suche.Offset(0, loSpalte) ' zweite UF-Seite
Next loSpalte
Else
MsgBox ComboBox9.Text & " nicht gefunden."
End If
Else
Set suche = Worksheets(C_mstrDatenblatt).Range("C3:C" & mlngLast).Find(ComboBox8.Text)
If Not suche Is Nothing Then
ComboBox1.Value = suche.Offset(0, 3).Value ' usw. bis 13 oder so
ComboBox4.Value = suche.Offset(0, 4).Value
TextBox6.Value = suche.Offset(0, 5).Value
TextBox7.Value = suche.Offset(0, 6).Value
TextBox8.Value = suche.Offset(0, 7).Value
TextBox9.Value = suche.Offset(0, 8).Value
TextBox10.Value = suche.Offset(0, 9).Value
TextBox11.Value = suche.Offset(0, 10).Value
TextBox12.Value = suche.Offset(0, 12).Value
ComboBox3.Value = suche.Offset(0, 13).Value
For loSpalte = 15 To 146
Me.Controls("TextBox" & loSpalte + 8).Value = suche.Offset(0, loSpalte) ' zweite UF-Seite
Next loSpalte
Else
MsgBox ComboBox8.Text & " nicht gefunden."
End If
End If
End Sub
Wenn meine Teilenummer leer ist, dann sucht er nach RFQ. Das passt.
Wenn Teilenummer allerdings gefüllt ist, kann er nicht zwischen den beiden Teilenummern unterscheiden und läd wieder den unteren der beiden Einträge (also vom Prinzip genauso wie vorher nur nicht mit RFQ, sondern mit Teilenummer)
Bestimmt passt in meinem Code etwas nicht ganz ::D
Gruß
Jan