vind spatie

[pasan]

Hallo
Ik moet handmatig een lijst plakken in een excel sheet met als eerste aantal karakters een tijdsaanduiding.
Met tekst naar kolom word de lijst verdeeld maar dit werkt alleen goed als de uren zoals hieronder alleen bestaat uit dubbele uur aanduiding.
Een enkele uur heeft geen 0 ervoor maar wel een spatie als eerste plek zeg maar.
Hoe krijg ik nu een 0 op de plek van de eerste spatie dus helemaal links van de cel en ook een 0 voor de 2e tijdsaanduiding mits deze uit 1 cijfer bestaat

zo is het nu (het streepje is eigenlijk een spatie en hier geplaatst ter verduidelijking)
-8:46 9:04
-9:04 9:21
-9:56 10:12
10:12 10:55
10:55 11:17
11:17 11:35

zo moet het eigenlijk worden voordat ik tekst naar kolom toepas
08:46 09:04
09:04 09:21
09:56 10:12
10:12 10:55
10:55 11:17

De lijst wordt geplakt in kolom A in cel A2 en de kolom lengte is variabel
De regels bevatten meer tekst maar door de 0 die ontbreekt in het eerste stukje gaat het mis
Iemand tijd om me hiermee te helpen?

 

[snb]

gebruik tekst naar kolommen.

 

[HSV]

Test het eens pasan.

Option Explicit
Sub hsv()
Dim cl As Range
For Each cl In Sheets("Blad1").Cells(1).CurrentRegion
If Left(cl, 1) = " " Then cl = Replace(cl, " ", 0, 1, 1)
cl.TextToColumns Destination:=cl, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
cl.Resize(, 2).NumberFormat = "hh:mm"
Next cl
End Sub

 

[pasan]

Dank je HSV morgen kan ik hiermee verder ik laat je weten of ik hiermee tot een goed resultaat kom.
helaas kan ik dit thuis niet testen

 

[pasan]

HSV helemaal goed
met nog een paar aanpassingen per cl krijg ik de tekst naar kolom bij 3 verschillende lijsten elke keer goed