VBA - fjerne 0 foran uger
Hej med JerJeg 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!