Automatisch een getal veranderen

[dionikink]

Hallo,

Ik heb een klein probleem met Excel. Ik heb namelijk een aantal functies gemaakt die gemaakte uren berekenen. Nu is het probleem dat ik gewend ben om tijden met een komma in te vullen (dus 12,00), in plaats van met een dubbele punt (dus 12:00). Is er toevallig een formule die 12,00 automatisch kan veranderen naar 12:00?

Bij voorbaat dank

 

[Haije]

dionikink,

het isniet helemaal wat je vraagt, maar deze oplossing gebruik ik al tijden voor hetzelfde probleem:

Kies voor Opties > AutoCorrectie-opties
Voeg op tab AutoCorrectie toe
onder Vervang: ++
onder Door: :

Als je nu ipv 12,00 12++00 (allemaal aanwezig op het numerieke toetsenbord) dan wijzigt Excel dat automatisch in 12:00

Het is ven wennen aan die ++ maar voor mij werkt het perfect!

 

[zapatr]

Nu is het probleem dat ik gewend ben om tijden met een komma in te vullen (dus 12,00), in plaats van met een dubbele punt (dus 12:00).

En dan voer je 2 uur en 43 minuten in als 2,7166666 ?
Niet erg handig lijkt mij om dat steeds te moeten omrekenen.
Invoer zoals die van jou (waarbij Excel 'denkt' dat het om het tienstallig stelsel gaat) is vragen om moeilijkheden en daarom ten stelligste af te raden.

 

[dionikink]

dionikink,

het isniet helemaal wat je vraagt, maar deze oplossing gebruik ik al tijden voor hetzelfde probleem:

Kies voor Opties > AutoCorrectie-opties
Voeg op tab AutoCorrectie toe
onder Vervang: ++
onder Door: :

Als je nu ipv 12,00 12++00 (allemaal aanwezig op het numerieke toetsenbord) dan wijzigt Excel dat automatisch in 12:00

Het is ven wennen aan die ++ maar voor mij werkt het perfect!

Zal het proberen, van harte bedankt!

EDIT: Werkt perfect! Bedankt!

En dan voer je 2 uur en 43 minuten in als 2,7166666 ?
Niet erg handig lijkt mij om dat steeds te moeten omrekenen.
Invoer zoals die van jou (waarbij Excel 'denkt' dat het om het tienstallig stelsel gaat) is vragen om moeilijkheden en daarom ten stelligste af te raden.

Ik heb al een formule om dat om te rekenen naar tijd-eenheden.

 

[michaelaupers]

Dat is vrij makkelijk. Selecteer alle cellen waarin je die 'fout' hebt gemaakt. Ga naar start in Excel en daarna naar de sectie getal. Druk dan op de droplist en druk dan op tijd.
Ik zal even een foto uploaden om het duidelijker te maken.

 

[dionikink]

Dat zou in principe werken, maar aangezien de formules dan eerst niet meer werken is dat niet erg praktisch voor mij. Toch bedankt.

 

[schuurar]

Ik heb ooit eens een code van het forum gehaald die perfect werkt!!! :thumb:
Als je 12:00 nodig hebt vul je gewoon 1200 in dankomt het goed.
Hier de code:

Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen

On Error Resume Next
If Intersect(target, Range("d12:z198")) Is Nothing Then GoTo Einde
If IsEmpty(target) Then GoTo Einde

If Hour(target.Value) <> 0 Or Minute(target.Value) <> 0 Then GoTo Einde
Application.EnableEvents = False
If Int(target.Value / 100) < 0.1 Then
target = "00:" & target.Value
Else
target = Int(target.Value / 100) & ":" & Right(target.Value, 2)
End If
Application.EnableEvents = True

Einde:
ActiveSheet.Calculate
End Sub

Misschien heb je hier wat aan!
Als je nog vragen hebt hoor ik het wel!

 

[dionikink]

Hartelijk bedankt, hier heb ik waarschijnlijk wat aan. Eén vraag; hoe voer ik dit in?

 

[schuurar]

Als je alt+ f11 klikt kom je in programma code
Daar kan je deze code invoeren.
Je moet even het bereik zelf aangeven (staat nu op d12 tot z198)

Als je nu in een cel je tijd achter elkaar in tikt word er een tijd met : van gemaakt.

Als het niet lukt hoor ik het wel

Succes

 

[dionikink]

Als je alt+ f11 klikt kom je in programma code
Daar kan je deze code invoeren.
Je moet even het bereik zelf aangeven (staat nu op d12 tot z198)

Als je nu in een cel je tijd achter elkaar in tikt word er een tijd met : van gemaakt.

Als het niet lukt hoor ik het wel

Succes

Helemaal geweldig! Werkt perfect. :thumb:

 

[schuurar]

Mooi dat het gelukt is. Vraag was al als opgelost gegeven maar wilde dit toch ff delen nog.

 

[dionikink]

Mooi dat het gelukt is. Vraag was al als opgelost gegeven maar wilde dit toch ff delen nog.

Ik heb toch nog wat problemen. Als ik 1420 intype verandert ie dat naar 0:00 i.p.v. naar 14:20. Ik heb zelf al even naar de code gekeken, maar zie zo op het eerste gezicht niets.

Hier is de code:

Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen

On Error Resume Next
If Intersect(target, Range("C6:D100")) Is Nothing Then GoTo Einde
If IsEmpty(target) Then GoTo Einde

If Hour(target.Value) <> 0 Or Minute(target.Value) <> 0 Then GoTo Einde
Application.EnableEvents = False
If Int(target.Value / 100) < 0.1 Then
target = "00:" & target.Value
Else
target = Int(target.Value / 100) & ":" & Right(target.Value, 2)
End If
Application.EnableEvents = True

Einde:
ActiveSheet.Calculate
End Sub

 

[schuurar]

Als ik het zo lees dan denk ik dat je de ingevulde tijd buiten het bereik van de formule intypt. Waarschijnlijk staat de cel eigenschappen wel op tijd.
Daardoor maakt hij er dan 0:00 van.

Kijk er even naar en als het niet zo is kun je dan anders het bestand plaatsen dan kijk ik er naar waar het aan ligt.

 

[dionikink]

Als ik het zo lees dan denk ik dat je de ingevulde tijd buiten het bereik van de formule intypt. Waarschijnlijk staat de cel eigenschappen wel op tijd.
Daardoor maakt hij er dan 0:00 van.

Kijk er even naar en als het niet zo is kun je dan anders het bestand plaatsen dan kijk ik er naar waar het aan ligt.

Ik heb 't al gevonden. Excel schakelt de macro's uit en die moet je dan handmatig aanzetten

Sorry