Variabele input, variabele output

[pepijndb]

Hallo,

Ik ben bezig met een macro welke waarden uit een tabel pakt, bijvoorbeeld een tabel die van cellen A1 tot A100 loopt.
Deze moet de macro kopiëren in een berekening, waarna deze vervolgens de uitkomst van berekening in cel B1 tot B100 moet plakken.

Alvast bedankt voor de hulp!

MVG!

 

[edmoor]

Glazen bol situatie als je niet d.m.v. een voorbeeld document laat zien wat je al hebt.

 

[pepijndb]

Glazen bol situatie als je niet d.m.v. een voorbeeld document laat zien wat je al hebt.

Beste Edmoor,

Hierbij het voorbeeldbestand. In het echt hangt er natuurlijk een flink zware berekening achter. Daarom zie ik dit als de beste oplossing.

Ik hoop dat je mij via dit voorbeeld verder kan helpen!

Alvast bedankt voor de hulp!

 

[VenA]

Om welke berekening gaat het?

Sub VenA()
  With Sheets("Blad1")
    ar = .ListObjects(1).DataBodyRange
    For j = 1 To UBound(ar)
    .Cells(2, 6) = ar(j, 1)
    ar(j, 2) = .Cells(4, 6)
    Next j
    .ListObjects(1).DataBodyRange = ar
  End With
End Sub

 

[pepijndb]

Om welke berekening gaat het?

Sub VenA()
  With Sheets("Blad1")
    ar = .ListObjects(1).DataBodyRange
    For j = 1 To UBound(ar)
    .Cells(2, 6) = ar(j, 1)
    ar(j, 2) = .Cells(4, 6)
    Next j
    .ListObjects(1).DataBodyRange = ar
  End With
End Sub

Het gaat om een kostenberekening van een proces. Waarbij er 1 waarde wordt ingevoerd, hierop past het proces zich aan en komt er een uiteindelijke kostenpost uitrollen.

 

[snb]

Svp niet citeren/quoten.

Waarom staat de berekening er niet in ?
Werk je voor de AIVD ?
Hoa lang werk je al met Excel ?