doppelte Einträge !! Gruß Chaos

Sub TextBox1_AfterUpdate()
Dim Bereich As String
Dim Name As String
Dim Vorname As String
Dim Passwort As String
Dim KRZ As String
Name = Userverwaltung.TextBox1.Value
Vorname = Userverwaltung.TextBox2.Value
Passwort = Userverwaltung.TextBox3.Value
Bereich = Userverwaltung.ComboBox1.Value
KRZ = Userverwaltung.TextBox4.Value
Dim Letzte As Long, zeile As Long
Dim s As String, t As String, a As String
Dim b As Integer, zeile1 As Integer
s = Userverwaltung.TextBox1.Value
t = Userverwaltung.TextBox2.Value
If Sheets("PW").Range("A65536").Value = "" Then
Letzte = Sheets("PW").Range("A65536").End(xlUp).Row
Else
Letzte = 65536
End If
For zeile = Letzte To 1 Step -1
If Sheets("PW").Cells(zeile, 1).Value = Userverwaltung.TextBox1.Value Then
If Sheets("PW").Cells(zeile, 2).Value = Userverwaltung.TextBox2.Value Then
MsgBox (" Benutzer " & s & " " & t & " ist schon vorhanden")
Userverwaltung.TextBox1.Value = ""
Userverwaltung.TextBox2.Value = ""
Userverwaltung.TextBox3.Value = ""
Userverwaltung.ComboBox1.Value = ""
Userverwaltung.TextBox4.Value = ""
Exit Sub
Else
a = 1
End If
Else
a = 1
End If
Next zeile
If a = 1 Then
Sheets("PW").Range("A65536").End(xlUp).Offset(1, 0) = Name ' Hier die kannst du dann  _
rausnehmen, wenn nicht unten oder
Sheets("PW").Range("B65536").End(xlUp).Offset(1, 0) = Vorname ' den auch
Sheets("PW").Range("C65536").End(xlUp).Offset(1, 0) = Passwort
Sheets("PW").Range("D65536").End(xlUp).Offset(1, 0) = Bereich
Sheets("PW").Range("E65536").End(xlUp).Offset(1, 0) = KRZ
b = Sheets("PW").Range("A65536").End(xlUp).Offset(0, 0).Row
For zeile1 = b To 1 Step -1
If Sheets("PW").Cells(zeile1, 1).Value  "" And Sheets("PW").Cells(zeile1, 2). _
Value = "" Then
Sheets("PW").Cells(zeile1, 1).EntireRow.Delete
End If
Next zeile1
End If
End Sub

Gruß
HOLGI