Mellem flere tal

Hvis du har tallene stående i kolonne A begyndende i A2 kan du bruge nedenstående makro.

Sub AddNumber()
LastRow = Range("A65536").End(xlUp).Row
For x = 2 To LastRow
If Cells(x, 1) <= 500 Then
Cells(x, 1) = Cells(x, 1) + 0.5
Else
If Cells(x, 1) > 500 And Cells(x, 1) <= 1000 Then
Cells(x, 1) = Cells(x, 1) + 1
Else
If Cells(x, 1) > 1000 And Cells(x, 1) <= 2000 Then
Cells(x, 1) = Cells(x, 1) + 2
Else
If Cells(x, 1) > 2000 Then
Cells(x, 1) = Cells(x, 1) + 3
End If
End If
End If
End If
Next
End Sub

Alternative kan det også laves uden makro med

=A2+0,5*(A2<=500)+1*(AND(A2>500;A2<=1000))+2*(AND(A2>1000;A2<=2000))+3*(A2>2000)

kan man få den til returner værdien i et andet felt ?


Denne =A2+0,5*(A2<=500)+1*(AND(A2>500;A2<=1000))+2*(AND(A2>1000;A2<=2000))+3*(A2>2000) kan jeg ikke få til at virke, den returner dette i min cell "#NAVN?"

Ja, det er der ikke noget i vejen for. I hvilken kolonne skal tallet returneres?
Jeg kan se du har en dansk version. Prøv at udskifte "AND" med OG"

I Kolonne E

Og hvis jeg skifter AND ud med OG så virker den også

Du får lige den rettede makro:

Sub AddNumber()
Dim LastRow As Long
Dim x As Long
LastRow = Range("A65536").End(xlUp).Row
For x = 2 To LastRow
If Cells(x, 1) <= 500 Then
Cells(x, 5) = Cells(x, 1) + 0.5
Else
If Cells(x, 1) > 500 And Cells(x, 1) <= 1000 Then
Cells(x, 5) = Cells(x, 1) + 1
Else
If Cells(x, 1) > 1000 And Cells(x, 1) <= 2000 Then
Cells(x, 5) = Cells(x, 1) + 2
Else
If Cells(x, 1) > 2000 Then
Cells(x, 5) = Cells(x, 1) + 3
End If
End If
End If
End If
Next
End Sub