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
|