Private
Sub
Button_Take_Click()
With
ActiveSheet
If
.Cells(.Rows.Count, 1).
End
(xlUp).Row > 1
Then
_
Range(.Cells(2, 1), .Cells(.Rows.Count, 1).
End
(xlUp)).Resize(, 3).Cut .Cells(3, 1)
.Cells(2, 1).Value =
CDate
(BFK_Team.Text_Datum.Value)
.Cells(2, 2).Value = BFK_Team.Text_Bezeichnung.Value
.Cells(2, 3).Value = BFK_Team.Text_Beschluss.Value
End
With
End
Sub