mit Zellwert Variable Zelle anweisen
12.02.2015 17:05:06
Rafa
ich habe mit dem Macrorecorder ein Macro aufgezeichnet und bin gerade dabei es für meine Bedürfnisse anzupassen. Leider kenne ich mich kaum mit VBA aus.
Mein Hauptproblem liegt darin dass ich Zellbereiche variabel Anweisen möchte. Die Zeile soll dabei aus einer vorgegebenen Zelle ausgelesen werden.
Im Prinzip möchte ich also in der Anweisung Range("A1") die "1" gegen den Wert cells(1,1).Value austauschen.
Wäre toll wenn mir jemand helfen könnte.
Danke
Sub Sektor1()
Range("L21").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("K21:L21"), Type:=xlFillDefault
Range("K21:L21").Select
Range("K21").Select
Selection.AutoFill Destination:=Range("K21:K44"), Type:=xlFillDefault
Range("K21:K44").Select
Range("Q21").Select
ActiveCell.FormulaR1C1 = _
"=PERCENTILE(INDIRECT(""K""&R11C5):INDIRECT(""K""&R11C6),1-(1/R16C4))"
Application.Run "Simulation.xlsm!Wiederholen"
ActiveCell.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub