Ich benötige wieder einmal Eure Hilfe, da ich bei einem Problem nicht weiterkomme.
Ich möchte eine Fehlermeldung ausgeben, wenn ich etwas abspeichere und die gleiche Kundennummer am gleichen Datum vorliegt.
Bis jetzt wird mir eine Fehlermeldung angezeigt, wenn die Kundennummer gleich ist, aber auch wenn das Datum ein anderes ist.
Private Sub Button5_DatensatzErfassen_Click()
Worksheets("Maschine 1").Activate
Set WkSh = ThisWorkbook.Worksheets("Maschine 1")
If TextBox5.Value "" Then
With WkSh.Columns(4)
Set rZelle = .Find(TextBox5.Value, Lookat:=xlWhole, LookIn:=xlValues)
End With
With WkSh.Columns(1)
Set dZelle = .Find(Datum.Value, Lookat:=xlWhole, LookIn:=xlValues)
End With
If Not rZelle Is Nothing Then
If MsgBox("Die Kundennummer ist bereits vergeben! Bitte geben Sie diese erneut ein.", vbExclamation + vbOKOnly) = vbOK Then Exit Sub
TextBox5.SetFocus
End If
End If
Hier zur Sicherheit noch eine Beispieldatei: https://www.herber.de/bbs/user/153712.xlsm
Wie jedes Mal: vielen Dank für Eure Unterstützung!
Grüße Max