Zeilen m. Formeln automat. i.d. Folgenden kopieren
20.11.2006 12:43:12
Wissensdurst
heute plagt mich wieder mal ein kleines, aber nerviges Problem.
Ich möchte auf einem Tabellenblatt automatisch Formeln ergänzen lassen und zwar folgendermaßen:
In Zeile neun und zehn (Blatt1) befinden sich mehrere Formeln, die alle auf die Zeile 2 eines anderen Tabellenblattes (Blatt2) verweisen. Wenn nun auf Blatt2 in Zelle A3 geschrieben wird, sollen auf Blatt1 automatisch die Formeln der Zeilen neun und zehn in die Zeilen 11 und 12 kopiert werden. Wird auf Blatt2 in Zelle A4 geschrieben, dann sollen auf Blatt1 die Zeilen 11 und 12 in die Zeilen 13 und 14 kopiert werden usw..
Ich hatte schonmal einen Code, der Formeln aus Spalte D und E auf einem Tabellenblatt immer dynamisch mit in die nächste Zeile gezogen hat, aber ich krieg es einfach nicht hin, den so anzupassen. Hier mal der alte Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
Application.EnableEvents = False
Range(Cells(Target.Row - 1, 4), Cells(Target.Row - 1, 5)).AutoFill _
Destination:=Range(Cells(Target.Row - 1, 4), Cells(Target.Row, 5)), _
Type:=xlFillDefault
Application.EnableEvents = True
End If
End Sub
Ich hoffe mal, ihr könnt damit mehr anfangen als ich. Vielen Dank im Voraus.
Mit freundlichen Grüßen
Christian