Avatar billede Peter Praktikant
04. august 2009 - 22:05 Der er 5 kommentarer og
1 løsning

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

Hej alle,

jeg har en række celler som indeholder noget lignende:

2:30 Noget tekst

Jeg har brug for at hive 2:30 ud af dette, men det skal ende som 2,5.
De 2:30 er timer og minutter.

Timerne kan være to-cifret. Minutterne er 00, 15, 30 eller 45.

Derudover har jeg en anden tekst:
[12345] Noget tekst

Det er altid 5 cifre. Hvordan hiver jeg lettest tallet ud af dette, det behøver ikke være som en int?
Avatar billede lerskov Praktikant
04. august 2009 - 23:22 #1
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.
Avatar billede kabbak Professor
05. august 2009 - 08:20 #2
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
Avatar billede Peter Praktikant
11. august 2009 - 16:48 #3
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.
Avatar billede kabbak Professor
12. august 2009 - 08:11 #4
;-))
Avatar billede lerskov Praktikant
07. september 2009 - 20:57 #5
det må være kabbaks.
Avatar billede lerskov Praktikant
15. september 2009 - 22:17 #6
lukketid ?? :-)
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
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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