Jag hämtar data (text) från en db till Excel. Då får jag med radbrytningstecken = fyrkanter. Hur få bort dem?

Lena,

-Markera område med data
- Välj kommandot Redigera | Ersätt
- För att skriva in  i texten somska ersättas använder du dig av
tangentbordskombinationen ALT+0129 (Plustecknet ska inte vara med!)
- I fältet för "Ersätt med" anges ingeting.
- Välj knappen "Ersätt alla".

Gick detta bra?


Mvh
XL-Dennis

Tack, men det funkar ändå inte. Jag får till svar att ingen matchning kan göras... vet inte vad det beror på.
Hälsningar Lena.

Lena,

Att ingen matchning kan hittas beror troligtvis på att
 -tecknet du anger i sökbegreppet inte stämmer överens
med -tecknet som återfinns i cellerna.

Har du möjlighet att maila mig privat ett exempel på datautfallet
för att undersöka vilket tecken som avses.

Troligtvis kan tipset jag refererar till vara dig behjälplig.

Mvh
XL-Dennis

Mail är skickat till dej!

Lena,

...och jag har svarat :-)

För trådens värde visas här den föreslagna lösningen:

<code>
Option Explicit

Sub Konvertera_Text()
'© 2002 Alla rättigheter XL-Dennis
Dim VaData As Variant
Dim rnOmrade As Range, rnCell As Range
Dim lnAntal As Long, lnGammal As Long
Dim sVarde As String

Application.ScreenUpdating = False

Set rnOmrade = ActiveSheet.Range(Range("A1"), Range("A65536").End(xlUp))

VaData = rnOmrade.Value

For lnAntal = 1 To UBound(VaData, 1)
'Rensar textsträng och tar bort tomma teckenplatser
sVarde = Trim(WorksheetFunction.Clean(VaData(lnAntal, 1)))
Do
lnGammal = Len(sVarde)
sVarde = Replace(sVarde, Space$(2), Space$(1))
Loop While Len(sVarde) <> lnGammal
VaData(lnAntal, 1) = sVarde
Next lnAntal

rnOmrade.Value = VaData
End Sub
</code>

Som vanligt är alla välkomna att kommentera koden :-)

Mvh
XL-Dennis