AW: Duplikatsprüfung
15.11.2022 11:57:27
Rudi
Hallo,
Private Sub CmBEinsatzSpeichern_Click()
Dim neueZeile As Long
Dim vntAdresse, i As Integer
Call Einsatz_Unprotect
'Prüfung ob alle Felder befüllt sind
If TextBoxName.Value = "" Or TextBoxNummer.Value = "" Or ComboBoxAdresse.Value = "" Then
MsgBox "Bitte alle Pflichtfelder befüllen!", , ""
Exit Sub
End If
'Adresse prüfen
With Einsatzübersicht
vntAdresse = .Range(.Cells(10, 14), .Cells(Rows.Count, 14).End(xlUp)).Resize(, 2)
For i = 1 To UBound(vntAdresse)
If Join(Array(vntAdresse(i, 1), vntAdresse(i, 2)), "|") = Join(Array(ComboBoxAdresse, TextBoxHN), "|") Then
MsgBox "Adresse bereits vorhanden!", , "gebe bekannt..."
Exit Sub
End If
Next i
End With
'Daten in TAbelle übernehmen
With Einsatzübersicht
neueZeile = .Cells(Einsatzübersicht.Rows.Count, 11).End(xlUp).Row + 1
.Cells(neueZeile, 11).Value = TextBoxID.Value
.Cells(neueZeile, 12).Value = TextBoxName.Value
.Cells(neueZeile, 13).Value = TextBoxNummer.Value
.Cells(neueZeile, 14).Value = ComboBoxAdresse.Value
.Cells(neueZeile, 15).Value = TextBoxHN.Value
.Cells(neueZeile, 16).Value = Now
.Cells(neueZeile, 17).Value = Date
.Cells(neueZeile, 18).Value = ComboBoxEA.Value
.Cells(neueZeile, 19).Value = ComboBoxEUA.Value
.Cells(neueZeile, 20).Value = TextBoxSachverhalt.Value
.Cells(neueZeile, 38).Value = ComboBoxEinbringer.Value
End With
Call Einsatz_Blattschutz
'Userform schließen
Unload Me
End Sub
Gruß
Rudi