Erstatte linieskift tegn med mellemrum i celle

Hvad med chr(10) (svarer til linefeed, hvor chr(13) svarer til carriage return). Det er bare et gæt, så jeg ved ikke om det virker.

Det er i øvrigt muligt at "Søg og erstat" slet ikke kan klare problemet, da linieskiftet måske opfattes som en formatering, og derfor søges der ikke på det.

Nu har jeg undersøgt det lidt nærmere, og det er rent faktisk et linefeed (dvs. chr(10)) der står som linieskift i cellerne. Så prøv med den. :-)

Skulle du få brug for en makro, så kan nedenstående klare sagen:

Sub ErstatLineFeed()
Dim ErstatOmråde As Range

Set ErstatOmråde = Worksheets("Ark1").Range("A1:B2")
For Each c In ErstatOmråde
    NyCelleVærdi = Null
    GlCelleVærdi = c.Value
    For i = 1 To Len(GlCelleVærdi)
        If Left(GlCelleVærdi, 1) <> Chr(10) Then
          NyCelleVærdi = NyCelleVærdi & Left(GlCelleVærdi, 1)
        End If
        GlCelleVærdi = Right(GlCelleVærdi, Len(GlCelleVærdi) - 1)
    Next i
    c.Value = NyCelleVærdi
Next

End Sub

'Uden linieskift
Selection.WrapText = FALSE

'Med linieskift
Selection.WrapText = ´TRUE

Johs_j - ja men det hjælper ikke på mit problem, det er det nogle koder der skal ud af teksten.

superjab.
Du er en guttermand - men jeg må tilstå at jeg er lidt skuffet. Fordi det er chr(13) der skal stå hehe... tak for hjælpen.

OK. Jeg prøvede kun med chr(10) og det hjalp (jeg prøvede ikke med chr(13) - den havde du jo prøvet). Det er sådan set lige meget. Godt det virker. :-)