Jag hämtar data (text) från en db till Excel. Då får jag med radbrytningstecken = fyrkanter. Hur få bort dem? Lena, Tack, men det funkar ändå inte. Jag får till svar att ingen matchning kan göras... vet inte vad det beror på. Lena, Lena,Ta bort radbrytningstecken...
Sv: Ta bort radbrytningstecken...
-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-DennisSv: Ta bort radbrytningstecken...
Hälsningar Lena.Sv: Ta bort radbrytningstecken...
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-DennisSv: Ta bort radbrytningstecken...
...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