Plide Postad 19 december, 2017 Share Postad 19 december, 2017 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. Länk till kommentar Dela på andra webbplatser More sharing options...
Plide Postad 20 december, 2017 Trådskapare Share Postad 20 december, 2017 Perfekt! Tack! Länk till kommentar Dela på andra webbplatser More sharing options...
Plide Postad 20 december, 2017 Trådskapare Share Postad 20 december, 2017 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 Länk till kommentar Dela på andra webbplatser More sharing options...
Cecilia Postad 20 december, 2017 Share Postad 20 december, 2017 1 timme sedan, Plide säger: Perfekt! Tack! Längst till vänster finns det bockar framför svarsinläggen och om du klickar på en sådan bock kommer det inlägget att markeras som lösning/bästa svar, vilket kan underlätta för någon annan som undrar samma sak som du i framtiden. Cecilia Moderator Länk till kommentar Dela på andra webbplatser More sharing options...
Rekommendera Poster
Arkiverat
Det här ämnet är nu arkiverat och är stängt för ytterligare svar.