• 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.

dubbele punt in plaats van een punt

Status
Niet open voor verdere reacties.
S

SillyMelody

Banned
Lid geworden
23 apr 2007
Berichten
4.309
Hallo,
ik heb hier een werkblad voor me waar nogal wat tijden ingevuld moeten worden, die daarna berekend worden met uitkomsten die ook in tijd staan.
Wat ik graag zou willen is dat je niet de Shift toets met dubbele punt moet gebruiken, maar gewoon de punt en dat er dan toch een dubbele punt in de cel staat als tijdsaanduiding.
Dit scheelt een handeling, de punt wordt toch verder nergens gebruikt in het werkblad.

Waarschijnlijk en stukje VB script.

Is dit mogelijk? Ik heb het één en ander al geprobeerd, maar ik kom er niet uit.

Dus het invullen met een punt dat een dubbele punt geeft in de cel en de uitkomsten ( berekeningen ) die ook een dubbele punt geven.

Alvast bedankt.

Loony
 
Beste Loonytune ;)

Voor de dubbele punt heb je de shift-toets toch niet nodig :confused:

Tenzij je met een klavier werkt zonder nummeriek toetsenbord, is dat het ?

Groetjes Danny. :thumb:
 
Nou de dubbele punt zit op mijn toetsenbord boven de puntkomma.
En volgens mij is dit in heel Nederland zo.

Gewoon een standaard toetsenbord met nummerieke toetsen

[edit] dus een QWERTY toetsenbord [/edit]
 
Laatst bewerkt:
Wat je kunt proberen is:

Als je normale punt altijd al een komma wordt.

Menu>Extra>Opties>Spelling>.. onderaan links staat "Autocorrecties-opties" klik hier op, en in het vakje "vervang" , (komma dus, schuin boven je rechter Alt) "door" : (dubbele punt).
Klik op OK.

En als je punt altijd een punt is: punt door dubbele punt vervangen.

Succes.
 
Bedankt Harry,

eigenlijk wil ik dat ik het realtime gebeurd.
Een cel ingevuld met een punt, dat daar dan meteen een puntkomma staat.
Dus 12:45 in plaats van 12.45 maar wel 12.45 ingetikt.

De vervang optie ken ik wel, maar dat is ook weer een extra handeling.

Misschien vraag ik iets wat helemaal niet kan hoor.
Ook goed, ik kwam er ook niet uit.
 
Hoi Loony

Zoiets?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim r As Range
    Dim arr As Variant
    
    Application.EnableEvents = False
    
    For Each r In Target.Cells

        arr = Split(r.Value, ".")
            
        If UBound(arr, 1) = 1 Then
            
            r.Value = TimeSerial(arr(0), arr(1), 0)
            
        End If
        
    Next
    
    Application.EnableEvents = True

End Sub

Noot: op het moment dat de code ergens hangt, vergeet dan niet de events terug op te zetten via:

Code: 
Sub f()
Application.EnableEvents = True
End Sub

Wigi
 
Hoi Wigi,

ik ga daar morgen naar kijken. Bedankt.

Nu eerst douchen en naar bed.
 
danny147 zei:
Beste Loonytune ;)

Voor de dubbele punt heb je de shift-toets toch niet nodig :confused:

Tenzij je met een klavier werkt zonder nummeriek toetsenbord, is dat het ?

Groetjes Danny. :thumb:
Klik om te vergroten...

Danny, mogelijk is dit het geval bij een AZERTY toetsenbord, maar bij mijn QWERTY exemplaar heb ik wel de shift nodig voor een dubbele punt.
 
Bijgaande file is een tabel waarin je tijden kunt invullen en die tijden worden opgeteld.
Je hoeft er helemaal geen punt of dubbelpunt in te vullen: die wordt vanzelf zichtbaar als hij nodig is. Is dit een mogelijke oplossing voor je probleem?
 

Bijlagen

hahaHans zei:
Bijgaande file is een tabel waarin je tijden kunt invullen en die tijden worden opgeteld.
Je hoeft er helemaal geen punt of dubbelpunt in te vullen: die wordt vanzelf zichtbaar als hij nodig is. Is dit een mogelijke oplossing voor je probleem?
Klik om te vergroten...

Bedankt.
Ook hier ga ik naar kijken of dit handig te implementeren is in mijn werkblad.

Ik denk dat ik nu wel de nodige informatie heb om verder uit te werken.
 
Het is de oplossing van Wigi geworden, de oplossing van hahaHans geeft veel aanpassing aan de layout, door de extra cellen die toegevoegd moeten worden.
Het werkblad moet ook te printen zijn en dit wordt een heel geschuif om het passend op een A4 tje te krijgen.
Maar ik ga deze in de toekomst zeker een keer ergens voor gebruiken.

In iedergeval, iedereen bedankt voor de oplossing.

Loony
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan