Sub CommandButton3_Click()
Dim loLetzte As Long
With Worksheets("Dokumentation")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If loLetzte <= 7 Then loLetzte = 7
If Not loLetzte.Row >= 27 Then
.Cells(loLetzte, 1).Value = TextBox6
.Cells(loLetzte, 2).Value = TextBox7
.Cells(loLetzte, 3).Value = TextBox8
Else
MsgBox "Eintrag in der Liste nicht möglich, diese Liste ist voll."
End If
End With
End Sub