Überprüfen ob Name in Liste vorhanden
31.03.2016 17:19:45
Michael
ich komme mal wieder nicht weiter. Ich versuche mich schon seid Stunden an der Lösung, leider Erfolglos.
Wie unten zu sehen füge ich über eine userform Daten aus Textboxen in einem Tabellenblatt hinzu.
Jetzt möchte ich aber, dass vorher überprüft wir, ob in dieser Zeile:
Tabelle1.Cells(intErsteLeereZeile, 3).Value = Me.txtName.Value
der Name schon vorhanden ist! Wenn ja, soll eine Msg kommen und die Übertragung der Daten soll abgebrochen werden.
Private Sub cmdEingabe_Click()
Dim intErsteLeereZeile As Long
'Fragt ab der Mitarbeiter wirklich hinzugefügt werden soll
If MsgBox("Möchtest du den Mitarbeiter wirklich hinzufügen?", vbYesNo) = vbNo Then
Unload Me
FormularMitarbeiter.Show
Else
'Sucht die letzte Zeile
intErsteLeereZeile = Tabelle1.Cells(Rows.Count, 3).End(xlUp).Row + 1
'Fügt neuen Mitarbeiter hinzu und schliesst das Formular
Tabelle1.Cells(intErsteLeereZeile, 1).Value = Me.txtPersonalnummer.Value
Tabelle1.Cells(intErsteLeereZeile, 2).Value = Me.txtVorname.Value
Tabelle1.Cells(intErsteLeereZeile, 3).Value = Me.txtName.Value
Tabelle1.Cells(intErsteLeereZeile, 4).Value = Me.txtGeburtsdatum.Value
Tabelle1.Cells(intErsteLeereZeile, 5).Value = Me.txtEintritt.Value
Tabelle1.Cells(intErsteLeereZeile, 7).Value = Me.txtBeruf.Value
Tabelle1.Cells(intErsteLeereZeile, 8).Value = Me.txtAbteilung.Value
Tabelle1.Cells(intErsteLeereZeile, 9).Value = Me.txtEntgeltgruppe.Value
Tabelle1.Cells(intErsteLeereZeile, 10).Value = Me.txtStufe.Value
Tabelle1.Cells(intErsteLeereZeile, 11).Value = Me.txtSchlüsselnummer.Value
Tabelle1.Cells(intErsteLeereZeile, 14).Value = Me.txtLeistungsbeurteilung.Value
Tabelle1.Cells(intErsteLeereZeile, 16).Value = Me.txtKF.Value
Tabelle1.Cells(intErsteLeereZeile, 23).Value = Me.txtKostenstelle.Value
Unload FormularMitarbeiter
FormularMitarbeiter.Show
End If
End Sub
Gruss aus dem Bergischen Land
Michael