Hoe voegt u automatisch een dubbele punt tussen getallen in om ze weer te geven als tijdnotatie in Excel?
Bij het invoeren van tijdstippen in Excel-werkbladcellen is het vervelend om telkens handmatig dubbele punten te typen—bijvoorbeeld „12:34” in plaats van simpelweg „1234”. Gebruikers zoeken dan ook vaak naar een handige manier om getallen snel om te zetten naar standaardtijdnotaties. Deze handleiding behandelt praktische methoden om automatisch dubbele punten tussen getallen in te voegen en deze direct als tijd in Excel op te maken, zodat u minder werk hebt en fouten bij het invoeren van gegevens worden verminderd—of u nu schema’s, tijdstempels of duurlogs verwerkt.
➤ Automatisch getallen omzetten naar tijdnotatie tijdens invoer met VBA-code
➤ Alternatief: Methode Tekst naar kolommen
Voeg een dubbele punt tussen getallen in om ze als tijdnotatie weer te geven met formules
Als u al een kolom met getallen heeft en deze automatisch wilt omzetten naar tijdnotatie — bijvoorbeeld „915” naar „09:15” of „121530” naar „12:15:30” — zonder de dubbele punten handmatig in te voeren, dan helpen Excel-formules u deze transformatie vlot uit te voeren. Deze methode is ideaal als u op zoek bent naar een eenvoudige manier om numerieke gegevens in bulk te verwerken die al in uw werkblad staan.
Hieronder vindt u twee formuleoplossingen, afhankelijk van het aantal cijfers in uw numerieke gegevens. Gebruik de formule die overeenkomt met uw gegevenstype voor optimale resultaten.
Als de getallen uit3 of4 cijfers bestaan, kunt u deze formule gebruiken:
Voer deze formule in de aangrenzende cel in (bijvoorbeeld: als uw getal in cel A1 staat, voert u de formule in B1 in):
=TIME(LEFT(A1,LEN(A1)-2),RIGHT(A1,2),0)Nadat u de formule hebt ingevoerd, drukt u op Enter om te bevestigen. Sleep vervolgens de vulgreep naar beneden vanuit de rechterbenedenhoek van de formulecel om deze automatisch op andere rijen toe te passen. Deze aanpak werkt het beste voor getallen zoals „915” (wordt 9:15) of „1234” (wordt 12:34). Zie voorbeeldresultaat:
Belangrijk: De formule haalt het uur uit de eerste cijfers en de minuten uit de laatste twee cijfers, en stelt de seconden in op nul.
Als de getallen5 of6 cijfers bevatten, probeer dan deze formule:
Voer deze formule in de bijbehorende cel in (bijv.: als „123456” in cel A1 staat, voert u deze in B1 in):
=(INT(A1/10000)&":"&INT(MOD(A1,10000)/100)&":"&MOD(A1,100))+0Bevestig met Enter en sleep de vulgreep naar beneden om de resterende cellen in te vullen. Deze formule werkt voor getallen zoals „123456” (wordt 12:34:56) of „93005” (wordt 9:30:05). Een voorbeeld van de resultaten ziet u hieronder:
In de formule worden uur, minuut en seconde geëxtraheerd, samengevoegd met dubbele punten en vervolgens wordt er 0 bij opgeteld om Excel te dwingen dit als een tijdwaarde te herkennen.
Nadat u bovenstaande formules hebt toegepast en de uitvoer verschijnt als een serienummer (bijv. „0,3875”) in plaats van als tijd, moet u de resultaten opmaken als tijd: selecteer het bereik met de resultaten, ga naar het tabblad Start, klik op de vervolgkeuzelijst Getalnotatie (vaak gelabeld als „Standaard”) en kies Tijd. Zo wordt het resultaat weergegeven in de juiste tijdnotatie:
Praktische tips:
• Zorg ervoor dat de celverwijzing (bijv. A1) overeenkomt met de daadwerkelijke locatie van uw gegevens. Pas de formuleverwijzingen zo nodig aan.
• Controleer of al uw getallen voldoen aan de verwachte lengte (3–4 cijfers of 5–6 cijfers) voordat u de formules toepast.
• Om het formuleresultaat om te zetten naar statische waarden, kopieert u deze en plakt u ze als waarden via Plakken speciaal.
Beperkingen: Deze formules werken alleen voor getallen die specifiek zijn gestructureerd als uur-minuut of uur-minuut-seconde. Als de gegevens qua lengte inconsistent zijn, is handmatige aanpassing of aangepaste formules mogelijk nodig.
Als u een #WAARDE!-fout krijgt, controleer dan of er lege cellen, niet-numerieke tekens of onjuiste nummering in de broncel voorkomen. Zorg ervoor dat u alleen getallen invoert.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Automatisch getallen omzetten naar tijdnotatie tijdens invoer met VBA-code
Voor gebruikers die regelmatig numerieke waarden invoeren en willen dat Excel deze direct opmaakt als tijd met dubbele punten, kunt u het proces automatiseren met VBA-code. Deze oplossing is vooral praktisch bij het invoeren van ruwe gegevens in een vast bereik, en zorgt ervoor dat elk getal direct na invoer wordt omgezet naar tijdnotatie—herhalende taken worden verminderd en typefouten geminimaliseerd.
Volg deze stappen om de automatisering in te stellen:
1. Ga naar het werkblad waarin u getallen automatisch als tijd wilt opmaken, en klik onderaan op het bijbehorende bladtabblad.
2. Klik met de rechtermuisknop op het bladtabblad en kies Code weergeven in het menu. Hierdoor opent de editor Microsoft Visual Basic for Applications. Plak de onderstaande code in het lege codovenster dat bij uw werkblad hoort (niet in een standaardmodule):
VBA-code: Automatisch getallen omzetten naar tijdnotatie:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updateby Extendoffice 20160606
Dim xStr As String
Dim xVal As String
On Error GoTo EndMacro
If Application.Intersect(Target, Range("A1:A20")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
With Target
If Not .HasFormula Then
xVal = .Value
Select Case Len(xVal)
Case 1 ' e.g., 1 = 00:01 AM
xStr = "00:0" & xVal
Case 2 ' e.g., 12 = 00:12 AM
xStr = "00:" & xVal
Case 3 ' e.g., 735 = 7:35 AM
xStr = Left(xVal, 1) & ":" & Right(xVal, 2)
Case 4 ' e.g., 1234 = 12:34
xStr = Left(xVal, 2) & ":" & Right(xVal, 2)
Case 5 ' e.g., 12345 = 1:23:45 NOT 12:03:45
xStr = Left(xVal, 1) & ":" & Mid(xVal, 2, 2) & ":" & Right(xVal, 2)
Case 6 ' e.g., 123456 = 12:34:56
xStr = Left(xVal, 2) & ":" & Mid(xVal, 3, 2) & ":" & Right(xVal, 2)
Case Else
Err.Raise 0
End Select
.Value = TimeValue(xStr)
End If
End With
Application.EnableEvents = True
Exit Sub
EndMacro:
MsgBox "You did not enter a valid time"
Application.EnableEvents = True
End Sub
Opmerking: In het voorbeeld wordt het celbereik A1:A20 gebruikt, maar u kunt deze verwijzing aanpassen aan uw behoeften (bijvoorbeeld B2:B100, enz.). Alleen getallen die in het opgegeven bereik worden ingevoerd, worden automatisch opgemaakt. Formules worden door de macro niet gewijzigd.
3. Wanneer u nu een getal dat een tijdstip vertegenwoordigt (zoals 102319) typt binnen het doelcelbereik en op Enter drukt, interpreteert en converteert de code de invoer automatisch naar tijdnotatie (in dit voorbeeld „10:23:19 AM”). De transformatie is direct en vereist geen verdere handmatige opmaak:
Handige herinneringen:
• Als u een ongeldig getal invoert, verschijnt een pop-upbericht: „U hebt geen geldige tijd ingevoerd.”
• Zorg ervoor dat Application.EnableEvents elders in uw werkmap niet is uitgeschakeld nadat u deze macro hebt uitgevoerd; anders wordt de automatische conversie niet geactiveerd.
• Wilt u deze macro opnieuw gebruiken in een ander blad? Herhaal dan de instelstappen voor het codevenster van dat werkblad.
• Beperkingen: De code is bedoeld voor zuivere cijferreeksen (geen spaties, dubbele punten of andere scheidingstekens). Gemengde of niet-numerieke invoer wordt niet geconverteerd.
Ideale toepassing: wanneer de gebruikersinvoer in het werkblad gestructureerd is en de gegevens altijd voldoen aan de verwachte formaten en lengtes.
Probleemoplossing: Als de macro niet activeert, controleer dan of gebeurtenissen zijn ingeschakeld, of het juiste bereik is gebruikt en of de macro in het codevenster van het werkblad is geplakt. Als uw getallen een andere cijferstructuur hebben, moet u de VBA-logica mogelijk verder aanpassen.
Alternatief: Voeg een dubbele punt tussen getallen in met Tekst naar kolommen om ze om te zetten naar tijdnotatie
Een andere praktische oplossing om getallen op te splitsen in tijdcomponenten is de functie Tekst naar kolommen van Excel, vooral handig als u getallen wilt splitsen in kolommen voor uur, minuut en seconde voordat u ze opnieuw combineert tot een tijdwaarde.
Selecteer eerst de kolom met uw getallen. Navigeer naar Gegevens > Tekst naar kolommen. Kies Specificeer breedte en stel breekpunten in om uren, minuten en seconden te splitsen op basis van cijferposities. Na het splitsen gebruikt u de formule TIJD of TIJDWAARDE om ze opnieuw te combineren als tijd in een nieuwe kolom.
Voorbeeld: Als u „123456” splitst in drie kolommen — „12” (uren), „34” (minuten) en „56” (seconden) — kunt u het volgende invoeren:
=TIME(A1,B1,C1)Voordelen: Geen complexe formules of VBA nodig – perfect voor batchconversie.
Nadelen: Vereist handmatige aanpassing van scheidingspunten en hercombinatie; niet automatisch bij invoer.
Voor stapsgewijze hulp met Tekst naar kolommen, raadpleegt u de officiële Microsoft-documentatie.
Samenvattende aanbeveling: Gebruik voor eenmalige of gestructureerde conversies de formule- of Tekst naar kolommen-methode. Voor continue, real-time conversie tijdens invoer past u de VBA-automatisering toe. Controleer altijd de daadwerkelijke cijferstructuur van uw gegevens voordat u een methode kiest, en definieer duidelijk uw doelcelbereik om onverwachte resultaten te voorkomen. Maak indien nodig een back-up van uw gegevens voordat u bulktransformaties uitvoert.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins