Sub alpha1()
neuNn = Application.InputBox("Namen eingeben: ", "Test")
NeuVn = Application.InputBox("VNamen eingeben: ", "Test")
alter = Application.InputBox("Alter eingeben: ", "Test")
If Cells(1, 1).Value > neuNn Then
MsgBox Cells(1, 1).Value
ze = 1
Else
anz = WorksheetFunction.CountIf(Range("a:a"), neuNn)
ze = WorksheetFunction.Match(neuNn, Range("A:A"), 1) - anz + 1
If anz > 0 Then
If Cells(ze, 2).Value < NeuVn Then ze = ze + WorksheetFunction.Match(NeuVn, Cells(ze, 2).Resize(anz), 1)
End If
End If
Rows(ze).Insert
Cells(ze, 1).Value = neuNn
Cells(ze, 2).Value = NeuVn
Cells(ze, 3).Value = alter
End Sub