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.
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
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.
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.