Celinhoud veranderen na Enteren

[Teebee]

Ik heb al liggen zoeken, maar ik kan het nergens vinden.

Is het mogelijk om een celinhoud automatisch te veranderen zonder gebruik te maken van VBA.

Voorbeeld:
In Cel B5 voer ik in: 10 (tijd in minuten)
Nu wordt dat automatisch omgevormd naar 0.16 ( 10/60 zodat het in uren staat)
Het zou op een Range B2 - B15 moeten werken.


Dus wat ik eigenlijk wil is dat als ik 10 ingeef dat het automatisch verandert in 0.16 als ik op ENTER druk.
Is dit mogelijk zonder VBA, want dan ben ik het noorden volledig kwijt.


Kan iemand mij helpen?

 

[Wigi]

Rechtstreeks in 1 cel kan dit niet.

Je kan wel die formule van delen door 60 in je cel zetten, en het getal 10 in een andere kolom invullen. Evt. verberg je die kolom later voor het zicht.

Dat je het noorden kwijt bent met VBA, is typisch een uitspraak van iemand die er ofwel weinig van kent, ofwel weinig mee gewerkt heeft. Als je weet hoe simpel het is in VBA zou je waarschijnlijk wel voor die oplossing gaan.

 

[Teebee]

Dan zal ik moeten gaan voor een VBA oplossing.

Als iemand mij op weg zou kunnen helpen zou ik dat zeer op prijs stellen

 

[Wigi]

Klik met rechts op de bladtab, onderaan je scherm. Kies Programmacode weergeven...

Plak dit in het witte scherm:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("B2:B15")) Is Nothing Then
            Application.EnableEvents = False
            Target.Value = Target.Value / 60
            Application.EnableEvents = True
        End If
    End If
End Sub

Sluit VBA af en test of het werkt.

Wigi

 

[Teebee]

Thx. Dit werkt perfect.

Kan ik de range ook vergroten naar een andere kolom bv Range B2:B15 en D215

Ik heb dit verandert maar dan doet hij dit ook op C2:C15, en dat zou niet mogen.

        If Not Intersect(Target, Range("B2:B15", "D2:D15")) Is Nothing Then

 

[Wigi]

If Not Intersect(Target, Union(Range("B2:B15"), Range("D2:D15"))) Is Nothing Then

 

[Teebee]

ik had dit ook gevonden:

  If Not Intersect(Target, Range("B2:B15,D2:D15")) Is Nothing Then

Thx Wigi, weeral een probleem getackeld

 

[Wigi]

ik had dit ook gevonden:

  If Not Intersect(Target, Range("B2:B15,D2:D15")) Is Nothing Then

Thx Wigi, weeral een probleem getackeld

Dat is idd iets meer voordehandliggend