Ga naar inhoud

vba tijd invoeren


lscb
 Delen

Aanbevolen berichten

hallo 

ik wil ( voorbeeld ) in b2:b5 en c2:c5 en f2:f5 en g2:g5 tijden in voeren

maar met vba ....ik voer in 830 en er komt te staan 8:30 dit per cel 

ik heb wel een code gevonden maar dit is voor een kolom dat is het dus niet  het moet echt per cel in te voeren zijn

wij kan mij hier aan helpen

Link naar reactie
Delen op andere sites

aangepast code vergeten sorry

 

tik in kolom a een tijd zonder puntjes en je ziet wat ik bedoel maar wat ik wil is dat dit voor enkele cellen is                                         de formule werkt alleen voor een colom
zodra ik er iets ander in tik dan tijd werkt de formule niet meer                                                
 

map5.01.xlsm

Link naar reactie
Delen op andere sites

Probeer deze eens

Private Sub Worksheet_Change(ByVal target As Range)
Dim r1, r2 As Range
Set r1 = Range("B2:C5")
Set r2 = Range("F2:G5")
    If Not Intersect(target, Union(r1, r2)) Is Nothing And Not IsEmpty(target) Then
        Application.EnableEvents = False
            target = Replace(Format(target / 100, "00.00"), ",", ":")
        Application.EnableEvents = True
    End If
End Sub

 

Link naar reactie
Delen op andere sites

44 minuten geleden, dotchiejack zei:

Private Sub Worksheet_Change(ByVal target As Range)

de regel komt bij nog 1 keer voor is dat aan te passen de code hier boven lijkt op wat ik heb

alleen is de code die ik al had is iets uitgebreider

aangepast door lscb
Link naar reactie
Delen op andere sites

Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.