worksheet change - Formel kopieren
Daniel
ich möchte Formeln per VBA zeilenweise "nach unten kopieren", sobald eine Eingabe in mindestens eine vorher zu befüllender Zellen erfolgt ist. Die genannten Zellen sind nicht zwingend Bestandteil/Variable in der zu kopierenden Formel. Sprich: in Zeile 2 steht ein Datensatz mit Eingabewerten in den Spalten A:C, Formeln stehen in D und E. Wenn in A3:C3 etwas eingetragen wird, sollen die Formeln entsprechend runterkopiert werden. Mit worksheet change geht es irgendwie, ich versuche hierfür den folgenden Code zu verstehen, aber: leider verstehe ich gerade nur "Bahnhof"
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Range(Cells(Target.Row - 1, 2), Cells(Target.Row - 1, 256)).Copy _
Range(Cells(Target.Row, 2), Cells(Target.Row, 256))
Application.CutCopyMode = False
ERRORHANDLER:
Application.EnableEvents = True
End SubWie kann ich modifizieren, dass ich auch die Bedingung, d.h. die Eingabespalten (im Beispiel oben A:C) und den Bereich, der kopiert werden soll, selbst bestimmen kann? Kann mir da jemand helfen?
Viele Grüße
Daniel
Anzeige