ich prüfe mit einem Makro in Spalte B, ob eine Belegnummer schon vorhanden ist.
If Range("B:B").Find(Sheets("Einkauf").Range("C4")) Is Nothing Then
GoTo ohnenr
Else
If MsgBox("Die Belegnummer ist bereits vorhanden," & Chr(13) & "sollen die Daten überschrieben werden?", vbQuestion + vbYesNo, "Frage?") = vbNo Then
Exit Sub
End If
End If
Da es vielleicht mal eine Belegnr-Nr. von zwei unterschiedlichen Firmen genutzt wird, möchte ich zur Sicherheit auch noch das Datum überprüfen.
Das Datum soll in Spalte D:D gesucht werden und kommt aus Range("C5")
Vielen Dank für Eure immer sehr geschätzte Hilfe.
Gruß, Larissa