Just nu i M3-nätverket
Gå till innehåll

Plide

Medlem
  • Antal inlägg

    3
  • Gick med

  • Senaste besök

  1. Går det att få mellanrum på de nummer som består av 5 siffror så att jag kan få postnummer på rätt format? Går det också få #värdefel att bli tomma celler? Function TextExtract(rCell As Range) As String Dim sText As String Dim vVal As Variant Dim blBreak As Boolean sText = rCell Dim i As Integer i = 1 TextExtract = "" While i <= Len(sText) vVal = Mid(sText, i, 1) If Not IsNumeric(vVal) Then TextExtract = TextExtract & vVal Else If TextExtract <> "" Then i = Len(sText) + 5 End If i = i + 1 Wend End Function
  2. Jag har en kolumn med postnummer och postort där jag vill få ut postnummer i en egen kolumn och postorten i en egen kolumn. Postnumren står i lite olika format med olika antal mellanrum osv. Jag har lagt till nedan kod som modul för att skilja ut texten i en egen kolumn men nu kommer inte sista bokstaven med, varför? Ex Ljungsbro blir Ljungsbr osv Function TextExtract(rCell As Range) As String Dim sText As String Dim vVal As Variant Dim blBreak As Boolean sText = rCell Dim i As Integer i = 1 TextExtract = "" While i < Len(sText) vVal = Mid(sText, i, 1) If Not IsNumeric(vVal) Then TextExtract = TextExtract & vVal Else If TextExtract <> "" Then i = Len(sText) + 5 End If i = i + 1 Wend End Function Tacksam om någon kan hjälpa mig med detta.
×
×
  • Skapa nytt...