16.10.2017, 20:48
Hallo Leute,
Ich bin am verzweifeln... Ich suche nach einer Möglichkeit bei meiner Erstellten Tabelle eine Funktion einzubauen, bei der eine Zeile unterhalb hinzufügen kann.
Die neue Zeile sollte die gleiche Formatierung (Formeln) haben wie die oberhalb.
Bsp. Meine Tabelle enthält verschiedene Berechnungsgänge in einer Zeile, sobald ich fertig bin sollte mittels Schaltfläche (Makro) die Tabelle unterhalb der fertigen Zeile mit den obigen Formeln erweitert werden.
Mit dem unteren Makro, erfolgt die automatische Eingabe immer wieder in der Zelle 18 :s
Sub Zeile_Einfügen()
'
' Makro2 Makro
'
'
Rows("18:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("17:17").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Range("A21").Select
Application.CutCopyMode = False
End Sub
Ich hoffe es ist einigermaßen verständlich.
Gruss
Adi
Ich bin am verzweifeln... Ich suche nach einer Möglichkeit bei meiner Erstellten Tabelle eine Funktion einzubauen, bei der eine Zeile unterhalb hinzufügen kann.
Die neue Zeile sollte die gleiche Formatierung (Formeln) haben wie die oberhalb.
Bsp. Meine Tabelle enthält verschiedene Berechnungsgänge in einer Zeile, sobald ich fertig bin sollte mittels Schaltfläche (Makro) die Tabelle unterhalb der fertigen Zeile mit den obigen Formeln erweitert werden.
Mit dem unteren Makro, erfolgt die automatische Eingabe immer wieder in der Zelle 18 :s
Sub Zeile_Einfügen()
'
' Makro2 Makro
'
'
Rows("18:18").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("17:17").Select
Selection.Copy
Range("A18").Select
ActiveSheet.Paste
Range("A21").Select
Application.CutCopyMode = False
End Sub
Ich hoffe es ist einigermaßen verständlich.
Gruss
Adi