Private Sub CommandButton1_Click()
Dim loLetzte As Long
With Worksheets("Vorschlag V+V")
.Unprotect Password:="verpack21"
.ListObjects("Tabelle1").ListRows.Add
loLetzte = .ListObjects("Tabelle1").DataBodyRange.Rows.Count + 2
.Range("G" & loLetzte).NumberFormat = "m/d/yyyy"
.Range("M" & loLetzte).NumberFormat = "m/d/yyyy"
.Protect Password:="verpack21", AllowSorting:=True
End With
End Sub