was läuft hier falsch?
01.08.2019 12:41:12
kili
Private Sub Worksheet_Calculate()
Dim z As Long
z = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(z, 1) [A1] Then
Range(Cells(z + 1, 1), Cells(z + 1, 20)) = Range("A1:T1")
End If
End Sub