Splitte string op med vba, string indeholder tal og text.

Public Sub spilt()

For i = 1 To Range("a65000").End(xlUp).Row
    tid = Split(Cells(i, 1), " ")
    klok = Split(tid(0), ":")
    Min = klok(1)
    Select Case Min
    Case "15"
    minut = "25"
    Case "30"
    minut = "50"
    Case "45"
    minut = "75"
    Case "00"
    minut = "00"
    End Select
    Cells(i, 2) = CDbl(klok(0) & "," & minut)
    Cells(i, 3) = Right(Cells(i, 1), Len(Cells(i, 1)) - Len(tid(o)) - 1)
Next i
End Sub

Den nederst del bør du kunne klare med tekst til kolonner.

kan koges ned til

Public Sub Opdel()
    Dim Tid As Date
    For i = 1 To Range("a65000").End(xlUp).Row
        Tid = Split(Cells(i, 1), " ")(0)
        Cells(i, 2) = Tid * 24
        Cells(i, 3) = Split(Cells(i, 1), " ")(1)
    Next
End Sub

Hej igen,

det virkede fint. Jeg brugte kabbak's løsning da den jo ser lidt pænere ud.
Men hvis i begge vil ligge et svar får i begge nogle point da begge løsninger jo fungerer.

Tak for hjælpen.

;-))

det må være kabbaks.

lukketid ?? :-)