Prüfung eines Textfeldes + zurück in die Tabelle
27.08.2018 21:17:48
Uwe
ich stehe mal wieder vor einem kleinen Problem und hoffe auf Eure Hilfr.
In eine Tabelle werden die Zeilen ausschließlich über ein Userform eingefügt.
(Anlegen einer Zeile)
Später soll die Zeile wiederum über ein zweites Userform überarbeitet werden. Suchkriterium ist die Spalte B der Tabelle. In diesem Userform werden die Zellen der Zeile in Text, Label und Comboboxen dargestellt. (Die in den Labeln gezeigten Werte dürfen nicht mehr verändert werden)
Userform1 läuft alles bestens, zum Userform2 habe ich nun zwei Probleme.
1. Die Werte der Spalte C sind numerisch, 8stellig. Gebe ich nun in das zur Bestimmung vorgegebene Textfeld die korrekte Nummer, z.B. 12345678 ein, werden alle Werte in den richtigen Feldern korrekt angezeigt. Gebe ich z. B. 87654321 ein erscheint eine MSGBox "ungültige Nummer" Soweit so gut.
Gebe ich nun nur 123 oder 456 ein, wird mir ebenfalls der Datensatz mit der Nummer 12345678 angezeigt. Das jedoch darf nicht sein. Es muss eine 100prozentige Übereinstimmung vorliegen, sonst "nicht gefunden"
Hier der Code, wie ich ihn schon habe:
Private Sub Search_RMA_Click()
Dim S_RMA
Dim c As Range
S_RMA = tb_RMA.Text
Set c = Sheets("B&O Issue Log").Columns(2).Find(S_RMA)
If Not c Is Nothing Then
lbl_Created.Caption = c.Offset(0, -1).Text
cbo_Status.Text = c.Offset(0, 1).Text
lbl_Name.Caption = c.Offset(0, 2).Text
lbl_Country.Caption = c.Offset(0, 3).Text
lbl_Item.Caption = c.Offset(0, 4).Text
lbl_Product.Caption = c.Offset(0, 5).Text
lbl_Serial.Caption = c.Offset(0, 6).Text
cbo_Responsibility.Text = c.Offset(0, 7).Text
lbl_Reason.Caption = c.Offset(0, 8).Text
lbl_Description.Caption = c.Offset(0, 9).Text
tb_Solution.Text = c.Offset(0, 10).Text
tb_Comments.Text = c.Offset(0, 11).Text
Else: MsgBox "The RMA Number does not exist."
End If
End Sub
Ich hänge gleich noch die Original Datei zur besseren Übersicht mit an.
https://www.herber.de/bbs/user/123602.xlsm
Vielen Dank vorab für die Hilfe,
Viele Grüße
Uwe