Tijd en ploegnummer

[patrickje]

Nu ben ik een tijd rooster aan het maken voor draai uren en of storings uren van een machine.
ik werk met begin en eind tijden. (zie voorbeeld)
Als ik geen tijd heb ingevuld geeft hij in de lege cellen 00:00 aan,
Hoe kan ik dit weglaten >????
Ook moet ik nu een : tussen de tijd ingeven is dit aan te passen zodat ik b.v. 0620 kan invullen en dat hij er dan 06:20 van maakt.

M.V.G.

 

[HSV]

Misschien dat het hiermee lukt.

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = False
     On Error Resume Next 'voor het verwijderen van verkeerde tijd in cel
       If Target.Column = 5 Then
      x = IIf(Len(Target) = 3, "0" & Left(Target.Value, 1), Left(Target.Value, 2))
     Y = Right(Target.Value, 2)
    Target.Value = x & ":" & Y
   End If
  Application.EnableEvents = True
End Sub

 

[patrickje]

Als ik deze code ingeef en dan als voorbeel 0645 in toest dan krijg ik 00:00 te zien

Wat doe ik fout ????

Gr.

Patrick

 

[HSV]

In het bestandje wat ik heb geplaatst?

 

[patrickje]

nee daar doet hij het goed als ik de code kopieer naar mij

Ik heb een voorbeeldje erbij zitten er komt iets raars in mijn formule balk te staan

misschien heb jij een idee

 

[HSV]

Heb je de 5 ook veranderd in 13?

If Target.Column = 5 Then

If Target.Column = 13 Then

 

[patrickje]

Dan doet hij precies hetzelfde

ik zal morgen even mijn excel file posten

alvast bedankt voor je snelle reacties

gr.

Patrick

 

[patrickje]

Ok ik ben er aan uit het werkt nu

Alleen als ik geen invoer heb gedaan dus de rijeen leeg laat blijft er een : staan

Kan ik dit toevallig ook nog weg halen ????

Gr.

Patrick

 

[HSV]

If Len(Target) = 0 Then Exit Sub

Maar Excel houdt op met het runnen van de Event na een delete en opnieuw invoeren van een waarde.
Dus echt lekker loopt het niet.