-
Privacywetgeving
Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.
tyd invoer aanpassen zodat deze ook de . pakt?
- Onderwerp starter buckeru
- Startdatum
- Status
ExcelAmateur
Terugkerende gebruiker
- Lid geworden
- 25 aug 2010
- Berichten
- 3.333
buckeru,
Op je vraag weet ik geen antwoord maar heb wel een macro voor je.
Je zet de tijd b.v.b. als 1315 en hij maakt er 13:15 van.
Zet de macro achter het betreffende blad en pas het bereik aan.
Voor de zekerheid test het eerst op een leegblad zodat je niet in de problemen kom.
Op je vraag weet ik geen antwoord maar heb wel een macro voor je.
Je zet de tijd b.v.b. als 1315 en hij maakt er 13:15 van.
Zet de macro achter het betreffende blad en pas het bereik aan.
Voor de zekerheid test het eerst op een leegblad zodat je niet in de problemen kom.
Code:
Private Sub Worksheet_Change(ByVal target As Range)
'invoeren van tijd in gehele getallen
On Error Resume Next
If Intersect(target, Range("B7:C16")) 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 SubVia deze code zal dat wel gaan, je kan de tijd ingeven zonder of . of :
1100 wordt 11:00
1100 wordt 11:00
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A50")) Is Nothing Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
ingave = Target.Value
Application.EnableEvents = False
If Hour(ingave) <> 0 Or Minute(ingave) <> 0 Then
Target = Hour(ingave) & ":" & Minute(ingave)
Application.EnableEvents = True
Exit Sub
End If
If Int(ingave / 100) < 0.1 Then
Target = "00:" & ingave
Else
Target = Int(ingave / 100) & ":" & Right(ingave, 2)
End If
Application.EnableEvents = True
End Sub
Laatst bewerkt:
Haije
Terugkerende gebruiker
- Lid geworden
- 24 mrt 2009
- Berichten
- 4.419
- Besturingssysteem
- Windows 11
- Office versie
- Office 2016 Professional Plus en Office 2010 Home & Student
via autocorrectie
buckeru,
een alternatief mbv autocorrectie dat ik al jaren gebruik:
geef bij autocorrectie op dat je ++ vervangen wilt hebben door : en elke keer dat je ++ typt maakt excel daar : van, dus je typt 9++00 en dat wordt dan 9:00.
In mijn geval voldoet dit perfect!
buckeru,
een alternatief mbv autocorrectie dat ik al jaren gebruik:
geef bij autocorrectie op dat je ++ vervangen wilt hebben door : en elke keer dat je ++ typt maakt excel daar : van, dus je typt 9++00 en dat wordt dan 9:00.
In mijn geval voldoet dit perfect!
Laatst bewerkt:
- Status
