Forums Neueste Beiträge
 

Zeile einfügen & formeln übernehmen

31/01/2008 - 09:37 von Johnny Hartmannsgruber | Report spam
Hallo,

ich habe eine Tabelle mit spalten von A:U.
In einigen Spalten befinden sich formeln...

ich würde nun gerne in eine beliebige zeile gehen und dann mit ausführen des
makros eine neue zeile darunter einfügen, die die formeln & formate der
ausgewàhlten zeile übernimmt bzw. fortführt.

Beispiel:
ich wàhle die zelle A33 aus - starte das makro - es wird eine neue zeile
darunter eingefügt (A34) - formate und formeln wurden übernommen.

wie bekommt man das am besten hin?

Danke, Johnny
 

Lesen sie die antworten

#1 Peter Schleif
31/01/2008 - 11:15 | Warnen spam
Hallo Johnny.


ich würde nun gerne in eine beliebige zeile gehen und dann mit ausführen des
makros eine neue zeile darunter einfügen, die die formeln & formate der
ausgewàhlten zeile übernimmt bzw. fortführt.



Bei unten stehendem Code werden auch Zahlenreihen automatisch erhöht.
Wenn dich das stört, müssen wir noch was àndern.

Peter


Sub NeueZeile()

Dim zeile As Integer

zeile = ActiveCell.Row

Rows(zeile + 1).Insert Shift:=xlDown

Rows(zeile).AutoFill Destination:= _
Range(Rows(zeile), Rows(zeile + 1)), Type:=xlFillDefault

End Sub

Ähnliche fragen