Worksheet_Change Änderungen in veränderter Zeile
26.07.2006 08:29:13
JBecker
wie kriege ich es hin, daß dieses Makro nicht nur für eine bestimmte Zelle sondern zeilenweise für die gesamte Spalte A gilt und dort jeweils nur für die aktuelle Zeile?
Mit ActiveCell bin ich nicht weitergekommen, falls man die Zelle mit der Pfeiltaste nach unten verlässt schreibt er in die falsche Zeile
Besten Dank für die Hilfe
Jörg
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Zwoelf 'Makroaufruf
Range("A1").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[2]:RC[13])"
End If
Application.EnableEvents = True
End Sub
Sub zwoelf()
Range("C1").Select
'ActiveCell.Offset(0, 2).Select
ActiveCell.FormulaR1C1 = "=ROUNDDOWN(R1C1/12,0)"
' weitere Schritte
End Sub