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