makro immer eine spalte weiter rechts ausführen
23.11.2016 21:52:59
Dr.Inks
ich möchte Daten per Sverweis suchen, sie dann hart kopieren und das immer eine Zelle weiter rechts ausführen, bei jedem neuen Befehl.
Kann mir jemand weiterhelfen, wie ich das untenstehende Makro ergänzen muss, damit der Befehl immer eine Spalte weiter rechts ausgeführt wird?
Sub contrneu()
' contrneu Makro
ActiveCell.FormulaR1C1 = _
"=VLOOKUP([@[P&L accounts-Raw Data]],plrawdata,2,FALSE)*-1"
Range("C2").Select
ActiveCell.FormulaR1C1 = _
"=IFNA(VLOOKUP([@[P&L accounts-Raw Data]],plrawdata,2,FALSE)*-1+VLOOKUP([@[P&L accounts- _
_
Raw Data]],plrawdata,3,FALSE)*1,"""")"
Range("C2").Select
Selection.AutoFill Destination:=Range("BSconvertion[Spalte2]")
Range("BSconvertion[Spalte2]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C2").Select
End Sub
Besten Dank im Voraus
Gruß