Zeile einfuegen
19.03.2019 15:29:44
Al
ich möchte gern, dass in meiner Liste am Ende immer ein Zeile durch Drücken eines Buttons erzeugt wird. Hierbei sollen die Funktionen/Formeln der Zeile darüber übernommen werden.
Ich habe einen entsprechenden Code gefunden. Leider wird mit diesem nur dort eine neue Zeile erzeugt, wo eine Zelle markiert ist. Die Zeile soll aber am untersten ( beschriebenen ) Ende der Liste eingefügt werden.
Hat jemand eine zündende Idee?
Code:
Sub Zeile_einf?gen()
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
End Sub
Danke.Gruss
Al