Anzeige des Zellinhaltes in MsgBox
02.09.2018 21:20:39
Uwe
mal wieder habe ich ein Problemchen.
In einem Userform sollen Daten eingetragen und an die Tabelle übergeben wereden. Im Textfeld "Serial" soll ausser der Prüfung numerisch, 8 Ziffern auch nach bereits vorhandener Serialnummer gesucht werden. Ich habe das soweit hinbekommen, dass ich bei vorhandener SN eine MSG box bekomme. MsgBox Inhalt: This Serial Number already exist in RMA
Nach RMA in der Boxmeldung soll jedoch noch die Nummer der RMA erscheinen, eingetragen in der selben Zeile der gefundenen Serialnummer in Spalte B.
Die MsgBox soll eine Yes/No Abfrage sein. Soll der Datensatz angelegt werden (Yes) soll nichts passieren, nur die MsgBox schliessen, Soll der Datensatz nicht angelegt werden soll das Userform schließen.
Soweit bin ich jedoch ohne Erfolg:
'Prüfung Textfeld Serial Number auf Fehler: Pflichtfeld, nur Zahlen erlaubt, Länge 8 Zeichen, _
Ausnahme: "no SN" ist erlaubt
Private Sub cbo_Serial_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'If Not IsNumeric(cbo_Serial) Or Len(cbo_Serial) 8 Then cbo_Serial.BackColor = RGB(255, 0, 0) _
_
_
_
_
Else cbo_Serial.BackColor = RGB(255, 255, 255)
'If cbo_Serial.Text = "no SN" Then cbo_Serial.BackColor = RGB(255, 255, 255)
' If cbo_Serial.Text = "" Then
' MsgBox "Serial Number is required!"
' cbo_Serial.SetFocus
' End If
Dim D_Serial
Dim f As Range
D_Serial = cbo_Serial.Text ' _
definiert das RMA-Textfeld als Prüfwert
Set f = Sheets("B&O Issue Log").Columns(8).Find(What:=D_Serial, LookAt:=xlWhole) 'SVerweis des _
_
_
_
_
Prüfwertes auf die Tabelle, Spalte Serial
If Not f Is Nothing Then
MsgBox "This Serial Number already exist in RMA." f -2
'Bei vorhandenen Suchergebnis erfolgt eine Fehlermeldung
Me.cbo_Serial = ""
Me.cbo_Serial.BackColor = RGB(255, 0, 0)
cbo_Serial.SetFocus
Else:
If Not IsNumeric(cbo_Serial) Or Len(cbo_Serial) 8 Then cbo_Serial.BackColor = RGB(255, 0, _
_
_
_
_
0) Else cbo_Serial.BackColor = RGB(255, 255, 255)
If cbo_Serial.Text = "" Then
MsgBox "Serial Number is required!"
RMA.SetFocus
End If
End If
End Sub
Vielen Dank für Eure Hilfe
Gruß
Uwe