Tijd automatisch omschrijven

[88Koentje88]

Goedenmiddag,

Ik ben een klein beetje aan het stoeien met Excel met het volgende; voor het bijhouden van wedstrijdresultaten (en het maken van een bijbehorend klassement etc) is het wat onhandig om bij elke tussen- en eindtijd de : en , goed te zetten. Graag zou ik willen dat 2356 23,56 word en 12589 1:25,89 (dus mm:ss,00). Iemand die hier een oplossing voor weet?

Bij voorbaat dank

 

[Quiby]

zoiets? dit onverteerd het getal in cel A1

=ALS(LENGTE(A1)=4;LINKS(A1;2)&","&RECHTS(A1;2);ALS(LENGTE(A1)=5;LINKS(A1;1)&":"&DEEL(A1;3;2)&","&RECHTS(A1;2);ALS(LENGTE(A1)=6;LINKS(A1;2)&":"&DEEL(A1;3;2)&","&RECHTS(A1;2))))

Dit werk bij waarden met 4,5 of 6 getallen

 

[88Koentje88]

Ja, zoiets. Maar heb je ook zo'n code in een soort macro/VBA waardoor het helemaal 'automatisch' gaat in een bepaald bereik?

 

[Quiby]

Met de volgende code worden de waarden in kolom A overschreden naar de tijdswaarde. Het bereik dat gehanteerd wordt is a1 t/m de volgende lege cel in kolom a

Sub Tijd()

Aantal = Range("A1").End(xlDown).Row

For x = 1 To Aantal
Waarde = Range("a" & x)
Lengte = Len(Range("a" & x))
If Lengte = 4 Then Range("a" & x) = Left(Waarde, 2) & "," & Right(Waarde, 2)
If Lengte = 5 Then Range("a" & x) = Left(Waarde, 1) & ":" & Mid(Waarde, 3, 2) & "," & Right(Waarde, 2)
If Lengte = 6 Then Range("a" & x) = Left(Waarde, 2) & ":" & Mid(Waarde, 3, 2) & "," & Right(Waarde, 2)
Next x


End Sub

 

[HSV]

In moduleblad van toepassing.
Werkt direct na invoer.

Private Sub Worksheet_Change(ByVal Target As Range)
 Target.NumberFormat = IIf(Len(Target) < 5, "00\:00", "00\:00\,00")
End Sub

 

[88Koentje88]

Yes gelukt. Heel erg bedankt voor jullie snelle reactie

 

[robdgr]

Zonder VBA: in autocorrectie-opties ** wijzigen in :