• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

functie ABS in vba

Status
Niet open voor verdere reacties.
D

don42

Gebruiker
Lid geworden
25 apr 2014
Berichten
764
beste helpers,
wie weet de oplossing voor deze?

ik heb dit :

in cel e2 staat
Code: 
=ABS(D2-$I$3)

Dit wil ik graag in VBA hebben
dus in cel e2 tm e 58



Don
 
Laatst bewerkt:
Code: 
Sub M_snb()
   [C1:C3] = [index(abs(A1:A3),)]
End Sub
 
Stapje verder

Code: 
Range("e2").Value = Abs(Range("d2") - Range("i3"))
Range("e3").Value = Abs(Range("d3") - Range("i3"))
Range("e4").Value = Abs(Range("d4") - Range("i3"))
Range("e5").Value = Abs(Range("d5") - Range("i3"))
Range("e6").Value = Abs(Range("d6") - Range("i3"))
Range("e7").Value = Abs(Range("d7") - Range("i3"))
Range("e8").Value = Abs(Range("d8") - Range("i3"))
Range("e9").Value = Abs(Range("d9") - Range("i3"))
Range("e10").Value = Abs(Range("d10") - Range("i3"))
Range("e11").Value = Abs(Range("d11") - Range("i3"))
Range("e12").Value = Abs(Range("d12") - Range("i3"))
Range("e13").Value = Abs(Range("d13") - Range("i3"))
Range("e14").Value = Abs(Range("d14") - Range("i3"))
Range("e15").Value = Abs(Range("d15") - Range("i3"))
Range("e16").Value = Abs(Range("d16") - Range("i3"))
Range("e17").Value = Abs(Range("d17") - Range("i3"))
Range("e18").Value = Abs(Range("d18") - Range("i3"))
Range("e19").Value = Abs(Range("d19") - Range("i3"))

maar hoe doe ik dit tot regel 58, dit kan vast veel handiger
 
Laatst bewerkt:
Nee dat niet
maar zie toch niet hoe ik het zou moeten doen
 
Wat is er eigenlijk mis met een simpele formule in cel E2:E58?
 
zoiets?

Code: 
For i = 2 To 58
    Range("E" & i).Value = Abs(Range("D" & i).Value - Range("I3").Value)
Next

Maar Jan-Karel heeft het handigste advies volgens mij!
 
Je kan de code van @snb toch wel aanpassen/uitbreiden?

Code: 
[e2:e58] = [index(abs(d2:d58-i2:i58),)]
 
#8
Sorry ik zag het niet
Maar beide oplossingen werken perfect #7

Bedankt voor jullie hulp
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan