bei eintragen des Datums ab Zelle C6 sollen die Formeln eingetragen werden.
Leider rührt sich garnichts.
Danke!
Gruß
Sigi
https://www.herber.de/bbs/user/113921.xlsm
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 3 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Cells(Target.Row - 1, 2).Copy Cells(Target.Row, 2)
Range(Cells(Target.Row - 1, 8), Cells(Target.Row - 1, 12)).Copy _
Range(Cells(Target.Row, 8), Cells(Target.Row, 12))
Application.CutCopyMode = False
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 3 Or Target.Row """",R[-1]C+1,"""")"
Target.Offset(0, 5) = "=IF(RC[1]"""",RC[-2]-RC[1],"""")"
Target.Offset(0, 6) = "=IF(RC[-5]=""A"","""",IF(AND(RC[-3]"""",RC[-2]""""),(RC[-3] _
*RC[-2])/(100+RC[-2]),""""))"
Target.Offset(0, 7) = "=IF(RC[1]"""",RC[-4]-RC[1],"""")"
Target.Offset(0, 8) = "=IF(RC[-7]=""E"","""",IF(AND(RC[-5]"""",RC[-4]""""),(RC[-5] _
*RC[-4])/(100+RC[-4]),""""))"
Target.Offset(0, 9) = "=IF(RC[-8]"""",IF(COUNT(RC[-4]:RC[-3])=0,R[-1]C-RC[-6],IF( _
COUNT(RC[-4]:RC[-3])=2,R[-1]C+RC[-6],"""")),"""")"
Fehler:
Application.EnableEvents = True
End Sub