Microsoft Excel

Herbers Excel/VBA-Archiv

neuer Zelleneitrag -- Formeln kopieren

Betrifft: neuer Zelleneitrag -- Formeln kopieren von: Claudia
Geschrieben am: 01.11.2014 18:29:06

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

  

Betrifft: AW: selber gelöst Info siehe Text von: Claudia
Geschrieben am: 01.11.2014 19:57:59

Hallo zusammen,
habs dann doch geschaftt selber zu lösen, wie, siehe nachstehend.
Gruß Claudia

Sub Formel_kopieren_J()

'Formel aus J6; bis zur letzten Zeile wo in Spalte C etwas steht, kopieren

Dim LastRow As Long

LastRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("J6").AutoFill Destination:=Range("J6:J" & LastRow)

End Sub

Sub Formel_kopieren_K()

'Formel aus K6; bis zur letzten Zeile wo in Spalte C etwas steht, kopieren

Dim LastRow As Long

LastRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("K6").AutoFill Destination:=Range("K6:K" & LastRow)

End Sub



 

Beiträge aus den Excel-Beispielen zum Thema "neuer Zelleneitrag -- Formeln kopieren"