Fjern tegn og tal fra en celle, uden at fjerne hele tallet

Hvis du har tallet i A1

=HVIS(VENSTRE(A1;1)="+";MIDT(A1;6;8);A1)

=HVIS(VENSTRE(A1;1)="+";MIDT(A1;5;LÆNGDE(A1)-7);"")

Tja, endnu engang for langsom...

Jeg kan ikke rigtig få det til at fungere, kan man ikke lave det som en macro der løber igennem kolonne A? Og ændre tallene.

Den siger #NAME? til dem begge

Sub test()
Slut = Range("A65536").End(xlUp).Row
Range("A1").Select
For I = 1 To Slut
    If Left(ActiveCell.Value, 1) = "+" Then
        ActiveCell.Range("B1").Value = Mid(ActiveCell.Value, 5, Len(ActiveCell.Value) - 7)
    End If
    ActiveCell.Range("A2").Select
Next
End Sub

Eller hvis det blot er værdien i A der skal ændres:

Sub test()
Slut = Range("A65536").End(xlUp).Row
Range("A1").Select
For I = 1 To Slut
    If Left(ActiveCell.Value, 1) = "+" Then
        ActiveCell.Value = Mid(ActiveCell.Value, 5, Len(ActiveCell.Value) - 7)
    End If
    ActiveCell.Range("A2").Select
Next
End Sub

du har engelsk version

jeg kan ikke huske om ; skal være ,
=IF(LEFT(A1;1)="+";MID(A1;6;8);A1)

Hvis det er en større mængde data er et array betydelig hurtigere:

Sub test()
Dim Slut As Long, I  As Long, DitArray
Slut = Range("A65536").End(xlUp).Row
DitArray = Range("A1:A" & Slut)
For I = 1 To Slut
    If Left(DitArray(I, 1), 1) = "+" Then
        DitArray(I, 1) = Mid(DitArray(I, 1), 5, Len(DitArray(I, 1)) - 7)
    End If
Next
Range("A1:A" & Slut) = DitArray
End Sub

Akyhne jeg ændrede til ActiveCell.Range("A1").Value = Mid(ActiveCell.Value, 6, Len(ActiveCell.Value) - 8)

Fra dit første forslag - Og så virker det!
Hit med et svar og du får point - Og rigtig mange tak! :-)

Tak for dit foreslag kabbak :-)

Giv dem til kabbak. Han var her først. Jeg skulle blot se om jeg kunne komme først.

Som sagt, hvis det er en lang kolonne af data, så brug: 16/08-2007 09:26:52

nix, giv dem til akyhne, det er hans kode du brugte ;-))

Ok, Ping.

Skal vi lukke?

Undskyld det tog lidt tid med at acceptere...