Jag använder mig av ett filterfunktion som tillåter mig att använda multipla värden i en cell där den avgränsar multipla värden med ett komma och mellanslag. Är det bara ett värde så blir det inget kommatecken och mellanslag.

Det jag behöver är att ändra svenska texter till norska

Så om cell a2 = Röd, grön

Så vill jag att cell b2 = Rød, grøn

Samt om cell a2 bara är = Röd

Så ska cell b2 bara vara = Rød

Jag använder mig just nu av en VBA-kod som tillåter mig att göra detta ifrån en färdigdefinierad lista med värden.

Det jag undrar är om detta går att lösa med lite if-formler tillsammans med vlookup (har en färdig lista med norska och svenska värden på samma rad)

Eller är detta en VBA-kod som bör skrivas?

Använder mig av följande kod nu:



'=====Copy from here down
' Developed by Contextures Inc.
' www.contextures.com
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String

'run code if only one cell was changed
If Target.Count > 1 Then GoTo exitHandler

Select Case Target.Column
Case 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16 'this Case line works for column B only
'Case 2, 5, 6 'this Case line works for multiple columns
On Error Resume Next
'check the cell for data validation
Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler

If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If oldVal <> "" Then
If newVal <> "" Then
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If

End Select

exitHandler:
Application.EnableEvents = True
End Sub
'=====End Copy here