Hallo,
ich habe in mein Excel Dokument einen Button eingebaut, den ich mit einem Makro verbinden möchte, der eine neue Zeile einfügt und eine darüberliegende vorhandene Zeile Kopiert bzw. nach unten zieht, um in dieser neue Werte eintragen zu können.
Funktioniert soweit auch ....
ABER natürlich verschieben sich die Bezüge durch das einfügen neuer Zeilen und die Makros, welche sich auf Zeilen unter dem ersten Makro beziehen, funktionieren nicht mehr an gewünschter Stelle...
In Visual Basic habe ich versucht die "Range" Bezüge zu ändern, habe aber nur den ansatz für einzelne zellen gefunden z.b. "ActiveCell.Offset(1,0).Range("A1").Select"
Auf dem Bild soll jeweils das blaue kreuzchen eine neue Zeile einfügen, siehe Zeile Opex.
Folgendes ist mein VB Quelltext bei dem sich immer alles verschiebt:
Sub add_cost_netrent()
'
' dada Makro
'
'
Rows("9:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("D8:H8").Select
Selection.Copy
Range("D9").Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
Range("U8:Y8").Select
Application.CutCopyMode = False
Selection.Copy
Range("U9").Select
ActiveSheet.Paste
End Sub