|
Guten Tag
Ich habe ein Problem mit einer Mitteilungsbox. Zuerst soll die Prüfung der Validierung auf Doppelte Einträge stattfinden. Sobald gefunden muss eine Mitteilungsbox ausgegeben werden. Doppelter Eintrag gefunden. Danach soll eine Auswahl "JA/Nein" erfolgen. Mit Ja wird der Eintrag überschrieben und mit Nein kehrt man zur Eingabe zurück.
Wie muss mein Code unter 'Validierung Doppelte SAP Debitorennummer gefunden" anpgeasst werden damit dies möglch wird?
Gruess
M. Herbstrith
______________________________________________________________________
Function validateentries() As Boolean
validateentries = True
Dim iSAPDebitorenNummer As Variant
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("PrintPDF")
iSAPDebitorenNummer = frmForm.txtSAPDebitorenNummer.value
With frmForm
'Standard Farbe
.AddItem "SAP Debitoren Nummer"
'Validierung Doppelte SAP Debitorennummer gefunden
If Not sh.Range("C:C").Find(what:=iSAPDebitorenNummer, lookat:=xlWhole) Is Nothing Then
'Mitteilungsbox zur Eingabe der SAP-Debitorennummer
MsgBox "Doppelte SAP Debitorennummer gefunden.", vbYesNo + vbInformation, "Mit OK Daten speichern, ansonsten Abbrechen und Date überarbeiten "
If msgvalue = vbYes Then Save sub
If msgvalue = vbNo Then Exit Function
validateentries = False
.txtLizenzvertragsnummer.BackColor = vbRed
.txtLizenzvertragsnummer.SetFocus
Exit Function
End If
End With
End Function
|