Avatar billede Nervatos Seniormester
05. december 2018 - 21:23 Der er 2 kommentarer og
2 løsninger

VBA - fjerne 0 foran uger

Hej med Jer

Jeg har en udfordring, hvor jeg via et ekstern program indlæser uger med 0 foran - vel og mærket til og med uge 9.

Er der en måde, som kan opfange dette?

Min A kolonne kan se således ud:
Uge 03-05 + 08-09
Uge 01
Uge 04-10
Uge 05-06
Uge 05-07 + 09-12

Fandt denne VBA kode, men den kan desværre ikke opfange det, så den altid får Uge.

Function RemoveFirstChar(RemFstChar As String) As String
    Dim TempString As String
    TempString = RemFstChar
    If Left(RemFstChar, 1) = "0" Then
        If Len(RemFstChar) > 1 Then
            TempString = Right(RemFstChar, Len(RemFstChar) - 1)
        End If
    End If
    RemoveFirstChar = TempString
End Function

Men hvis det kan bruges, eller bygges ind. Så er det helt perfekt.

Tak for hjælpen og god aften!
06. december 2018 - 05:53 #1
Det behøver du vel ikke VBA til - hvad med formlen

=UDSKIFT(UDSKIFT(A1;" 0";" ");"-0";"-")

Og i VBA udgave (som funktion)

Function fjernnul(celle As String)
    fjernnul = Replace(Replace(celle, " 0", " "), "-0", "-")
End Function
Avatar billede Jan Hansen Ekspert
06. december 2018 - 08:44 #2
En anden løsning


Dim myArray() As String
Dim iCount As Integer
Dim sTemp As String
Function FjernUgeNull(Uge As String) As String
    Uge = Replace(Uge, "-", " - ")
    Uge = Replace(Uge, "+", " + ")
    myArray = Split(Uge)
    For iCount = 0 To UBound(myArray)
        Select Case IsNumeric(myArray(iCount))
            Case True
                sTemp = sTemp & FjernNull(myArray(iCount))
            Case Else
            sTemp = sTemp & myArray(iCount)
            If iCount = 0 Then sTemp = sTemp & " "
        End Select
    Next
    FjernUgeNull = sTemp
    sTemp = ""
End Function
Private Function FjernNull(Nr As String) As Integer
    FjernNull = Nr * 1
End Function


Jan
Avatar billede Nervatos Seniormester
06. december 2018 - 12:51 #3
Tusind tak begge to, de virker begge to perfekt.
Glædelig jul.
Avatar billede Jan Hansen Ekspert
06. december 2018 - 15:52 #4
Velbekomme
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester