Hallo zusammen,

ich habe eine Frage:

Ich arbeite gerade an einem Excel-Makro und bin auch schon am Ende angelangt, es fehlt mir nur noch eine Überprüfung:

Bei Start des Makros wird als erstes eine "Losnummer" eingegeben, als zweites wird eine "Rückgabenummer" eingegeben und es soll jetzt überprüft werden ob die "Rückgabenummer" zur "Losnummer" passt. (Es gibt eine Vorgabedatei womit die eingegebenen Werte überprüft werden und die zwei Nummern sind immer in der gleichen Zeile (Losnummer in Spalte A und Rückgabenummer in Spalte C).

Kann mir jemand von euch helfen wie ich das am besten machen kann?

Hier mein Code:

Sub EingabeFenster()

Dim eingabe_losnummer As String
Dim eingabe_rückmeldenummer As String
Dim c_losnummer As Range
Dim c_rückmeldenummer As Range

Worksheets("MakroStart").Range("K13:K17").Clear

'InputBox mit Dialogfeld für LosNr
eingabe_losnummer = InputBox("Bitte geben Sie eine Losnummer ein:")

'Eingabewert mit Vorgabewert vergleichen
With Worksheets("Vorgabedatei").Range("A1:A2150")
 Set c_losnummer = .Find(eingabe_losnummer, LookIn:=xlValues)
 If c_losnummer Is Nothing Then
    MsgBox ("Eingabe nicht gefunden, bitte erneut eingeben")
 Else
    If c_losnummer = eingabe_losnummer Then
        'Eingabewert in eine Zelle schreiben
        Worksheets("MakroStart").Range("K13").Value = eingabe_losnummer
        Worksheets("MakroStart").Range("K13").Interior.ColorIndex = 4
        
        
        'InputBox für Rückmeldenummer
        eingabe_rückmeldenummer = InputBox("Bitte geben Sie eine Rückmeldenummer ein:")
        
        'Eingabewert mit Vorgabe vergleichen
        With Worksheets("Vorgabedatei").Range("C1:C2150")
        Set c_rückmeldenummer = .Find(eingabe_rückmeldenummer, LookIn:=xlValues)
            If eingabe_rückmeldenummer = "" Or c_rückmeldenummer Is Nothing Then
                MsgBox ("Keine Eingabe betätigt, bitte eine Nummer eingeben")
            Else
                If c_rückmeldenummer = eingabe_rückmeldenummer Then
                    'Eingabewert in Zelle schreiben
                    Worksheets("MakroStart").Range("K14").Value = eingabe_rückmeldenummer
                    Worksheets("MakroStart").Range("K14").Interior.ColorIndex = 4
                Else
                    MsgBox ("Eingabe nicht gefunden, bitte erneut eingeben")
                End If
            End If
            
        End With
    
    Else
        MsgBox ("Eingabe nicht gefunden, bitte erneut eingeben")
    End If
    End If
End With
End Sub