neuer Zelleneitrag -- Formeln kopieren
01.11.2014 18:29:06
Claudia
Hallo zusammen,
ich bitte um Hilfe da ich leider nicht weiterkomme, alle Versuche sind bisher gescheitert.
Wenn ich einen neuen Eintrag in Spalte C tätige (die Tabelle wird täglich erweitert), sollen die vorhandenen Formeln in den Spalten J und K bis zum letzten Eintrag in Spalte C runterkopiert werden.
Habe schon mit folgender Function gearbeitet aber funzt nicht.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Bei einem neuen Eintrag in Spalte C, sollen die vorhandenen Formeln
'in den Spalten J bis K bis zum letzten Eintrag in Spalte C runterkopiert werden.
Dim RowC As Long, RowJ As Long
If Target.Column = 3 Then
RowC = [A65536].End(xlUp).Row
RowJ = [E65536].End(xlUp).Row
'nur wenn in Spalte C mehr Einträge sind
If RowC > RowJ Then
Range(Cells(RowJ, 10), Cells(RowJ, 11)).AutoFill Destination:= _
Range(Cells(RowJ, 10), Cells(RowC, 11)), Type:=xlFillDefault
End If
End If
Resume Next
End Sub
Die Formeln stehen in Spalte J und K
Wie muss mein obiges Makro angepasst werden? Könnt Ihr mir bitte helfen.
Danke und Gruß Claudia