Zeile einfügen/löschen mit filldown
23.09.2015 09:00:24
Brandt
Benötige eine Unterstützung bei den unten aufgeführten Quellcodes.
In den Makros kann man jeweils eine Zeile löschen oder wieder einfügen und mit filldown die Formeln wieder aktualisieren. Makros funktionieren soweit
Dies wird jeweils von Zeile A17:A37 und D17:D37 realisiert.
Meine Frage: Wie kann man A37 und D37 als dynamisches Ende gestalten, denn wenn ich eine Zeile hinzufüge wird momentan die Formeln nur bis zu diesen Endwerten A34 und D34 aktualisiert.
Als Idee hatte ich daran gedacht unter A37 und D37 das Wort "Ende" zu schreiben und bis zu dieser Zelle die Aktualisierung (filldown) durchzuführen.
Private Sub cmd_Insert_cell_Click()
Dim Zelle As Range
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End( _
xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select
Range("A13:A37" & x).FillDown
Range("D13:D37" & x).FillDown
End Sub
Private Sub cmd_delete_row_Click()
Dim Zelle As Range
ActiveCell.EntireRow.Select
Rows(ActiveCell.Row).Delete
Cells(ActiveCell.Row + 1, 1).Select
Range("A13:A37" & x).FillDown
Range("D13:D37" & x).FillDown
End Sub