ich bin neu in diesem Forum und hoffen ihr könnt mir weiter helfen.
Ich habe eine Excel Tabelle in der ständig neue Zeilen eingefügt werden müssen und die Formeln dabei von Zelle von Oben mit kopiert werden sollen.
Nicht am Ende, nicht an Anfang sondern mittendrin.
Es kann 1 Zeile oder aber mehrere Zeile sein, meistens 2 bis 6.
Nun bin auf der suche nach einem passenden Makro.
Leide habe ich so gut wie keine Ahnung von diesem.
In diesen Forum habe ich schon fast perfektes Makro gefunden, das mir aber eben nur 1 Zelle einfügt und kopiert und ich brauche mehrere.
Kann mir jemand da bitte weiter helfen.
Unten ist mal das von mir gefundene Makro aufgelistet
----------------------------------------------------
Sub zellleneinfügen()
' Aktuelle Zeile kopieren, unterhalb Zeile einfügen und Inhalte in Zellen ohne Formel löschen
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 für eure Hilfe
BG Steffi