VBA-Beispiel 069
mail schreiben
mail schreiben

per VBA in Excel automatisch Formeln kopieren
Bei einem neuen Eintrag in Spalte A, sollen die vorhandenen Formeln in den Spalten E bis H bis zum letzten Eintrag in Spalte A runterkopiert werden.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RowA As Long, RowE As Long

On Error GoTo Hell

If Target.Column = 1 Then
    RowA = [A65536].End(xlUp).Row
    RowE = [E65536].End(xlUp).Row
     'nur wenn in Spalte A mehr Einträge sind
      If RowA > RowE Then
        Range(Cells(RowE, 5), Cells(RowE, 8)).AutoFill Destination:= _
        Range(Cells(RowE, 5), Cells(RowA, 8)), Type:=xlFillDefault
      End If
End If

Exit Sub

Hell:
    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Error:"
Resume Next

End Sub

die Exceltabelle
Download:   vba069.zip
relevante Links:

top