Private Sub CommandButton5_Click()
'============Registrierung================
Dim ws As Worksheet
Dim lZeile As Long
Set ws = ThisWorkbook.Sheets("Benutzerdaten")
lZeile = Application.WorksheetFunction.CountA(ws.Range("A:A"))
Set User = ThisWorkbook.Sheets("Benutzerdaten").Range("J:J").Find(Me.TextBox6 & "/" & Me.TextBox7, , xlValues, xlWhole)
If Me.TextBox6 & "/" & Me.TextBox7 = User Then
Me.TextBox6.ForeColor = vbRed
Me.TextBox7.ForeColor = vbRed
Me.Label46.Caption = "!"
Me.Label47.Caption = "!"
MsgBox "Hallo" & " " & Label17.Caption & "," & Chr(13) & Chr(10) & "ein Zugang für diesen Mitarbeiter existiert bereits." & Chr(13) & Chr(10) & "Bitte die Benutzerdaten aufrufen.", vbInformation, "Administrator"
Exit Sub
End If
'Zeilen auswählen für die eintragungen
ws.Range("A" & lZeile + 1).Value = "=Row()-1" 'laufender Eintrag
ws.Range("B" & lZeile + 1).Value = Me.TextBox6.Value 'Name
ws.Range("C" & lZeile + 1).Value = Me.TextBox7.Value 'Vorname
ws.Range("D" & lZeile + 1).Value = Me.ComboBox6.Value 'Ausbildung
ws.Range("E" & lZeile + 1).Value = Me.TextBox8.Value 'Benutzername
ws.Range("F" & lZeile + 1).Value = Me.TextBox9.Value 'Passwort
If Me.OptionButton1.Value Then ws.Range("G" & lZeile + 1).Value = "Mitarbeiter" 'Mitarbeiter
If Me.OptionButton2.Value Then ws.Range("G" & lZeile + 1).Value = "Aushilfe" 'Aushilfe
If Me.OptionButton3.Value Then ws.Range("G" & lZeile + 1).Value = "Auszubildender" 'Auszubildender
ws.Range("H" & lZeile + 1).Value = Me.ComboBox7.Value 'ja (Erfassen)
ws.Range("I" & lZeile + 1).Value = Me.ComboBox8.Value ' nein (Auswerten außer Admin)
ws.Range("J" & lZeile + 1).Value = Me.TextBox6 & "/" & Me.TextBox7 ' Datenabgleich
'=====================Schließen und Leeren=====================
Me.MultiPage1.Visible = False
Me.TextBox6.Value = ""
Me.TextBox6.ForeColor = vbBlack
Me.TextBox7.Value = ""
Me.TextBox7.ForeColor = vbBlack
Me.TextBox8.Value = ""
Me.TextBox9.Value = ""
Me.TextBox10.Value = ""
Me.ComboBox6.Value = ""
Me.Label38.Caption = ""
Me.TextBox10.ForeColor = vbBlack
Me.Label40.Caption = ""
Me.Label46.Caption = ""
Me.Label47.Caption = ""
UserForm3.Width = 243
'=====================Nachricht gespeichert====================
MsgBox "Hallo" & "," & Chr(13) & Chr(10) & "deine Eingaben wurden gespeichert." & Chr(13) & Chr(10) & "Du kannst dich jetzt Einloggen", vbInformation, "Administrator"
Me.txt_Benutzername.Enabled = True
Me.txt_Passwort.Enabled = True
CB_Login.Enabled = True
UserForm3.Left = 480
End Sub