Ga naar inhoud

emielDS

Lid
  • Items

    765
  • Registratiedatum

  • Laatst bezocht

Berichten die geplaatst zijn door emielDS

  1.  

    ja maak nog een range bij
     

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

    verander dan ook Dim r1 ,r2 ,r3 as Range

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