Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Tijden  (gelezen 25 keer)

0 leden en 1 gast bekijken dit topic.

Offline Sunnybat

  • Ervaren lid
  • ***
  • Berichten: 322
  • Geslacht: Man
  • Oplossing.be
Tijden
« Gepost op: Vandaag om 09:23:34 »
Hoi,
ik had een klein vraagje

is het mogelijk als je in een cel 8,20 of 8.21 in vult altijd in de cel 8:21 komt dus altijd een tijd?
Excel 365 NL

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.666
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Tijden
« Reactie #1 Gepost op: Vandaag om 10:04:35 »
Hallo Sunnybat,

Het is echt geen klein vraagje.

Excel heeft geen ingebouwde instelling die alles wat je intypt automatisch als tijd interpreteert. Het programma maakt onderscheid tussen getallen, tekst en datum/tijdwaarden, en dat is juist de kracht van een rekenblad als Excel.

Als je zegt: bepaalde kolommen of rijen waar alle invoer in jou voorbeeld moet omgezet worden naar tijden zijn bekend, dan kan je met een Worksheet_Change() macro werken.

Onderstaande macro kijkt na elke invoer:

of de invoer gebeurt in bepaalde kolommen  (door jou in te stellen in de macro)
of de invoer numeriek is 8.20 of 8,21

en veranderd die invoer in tijden  (soort dooor jou eenmalig aan te passen in de macro)

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    ' Pas dit aan naar de kolom die je wilt (bv. kolom A)
    If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
        Application.EnableEvents = False
        For Each c In Target
            If IsNumeric(c.Value) Then
                ' Zet 1,36 of 1.36 om naar tijd
                Dim txt As String
                txt = Replace(c.Value, ".", ":")
                txt = Replace(txt, ",", ":")
                c.Value = CDate(txt)
                'Formaat aanpassen naar jou behoeften, geldt voor alle invoer.
                c.NumberFormat = "hh:mm"
            End If
        Next c
        Application.EnableEvents = True
    End If
End Sub

Laat maar horen....

:) SoftAid :)             
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !
Office 2024 Pro Plus Nederlands

Offline xps350

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Domme vragen bestaan niet, domme antwoorden wel
Re: Tijden
« Reactie #2 Gepost op: Vandaag om 10:43:48 »
Groeten,

Peter

Offline Haije

  • Excel-Expert
  • Volledig lid
  • *****
  • Berichten: 245
  • Geslacht: Man
  • Oplossing.be
Re: Tijden
« Reactie #3 Gepost op: Vandaag om 10:51:40 »
Neem bij autocorrecties op ++ vervangen door :

en geef tijden in als 8++21, excel maakt er dan 8:21 van

zie bijlage
|-|aije

ik gebruik Office 2016 Professional Plus

 


www.combell.com