suche ich aus einer umfangreichen Excel-Tabelle den der Eingabe
entsprechenden Datensatz und fülle die Userform Ergebnis damit.
Das klappt auch solange nicht nach Zahlen (also Kundennummer oder sowas gesucht wird).
Wo ist der Feher. Anbei mein Beispiel.
s3 ist die erste Zelle die mit dem Textboxinhalt verglichen werden soll. Danach wird solange gesprungen bis eine Leerzelle
erreicht ist oder der Suchbegriff gefunden.
Private Sub CommandButton1_Click()
Ergebnis.Kreditor.Value = Eingabenummer.TextBox1.Value
Sheets("NU-Liste allgemein").Select
Range("s3").Select
Do While ActiveCell <> TextBox1
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
Unload Eingabenummer
InfoEinzelanzeige.Show
Exit Sub
Else: Unload InfoEinzelanzeige
End If
Loop
Ergebnis.Gewerk.Value = ActiveCell.Offset(0, -18)
Ergebnis.Straße.Value = ActiveCell.Offset(0, -16)
Ergebnis.PLZ.Value = ActiveCell.Offset(0, -15)
Ergebnis.Ort.Value = ActiveCell.Offset(0, -13)
Ergebnis.Einsatz.Value = ActiveCell.Offset(0, -8)
Ergebnis.QMBwert.Value = ActiveCell.Offset(0, -7)
Ergebnis.StandQM.Value = ActiveCell.Offset(0, -6)
Ergebnis.Preisstufe.Value = ActiveCell.Offset(0, -5)
Ergebnis.Name1.Value = ActiveCell.Offset(0, -17)
Unload Vorauswahl
Range("a1").Select
Ergebnis.Show
End Sub