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

Formule om uren * valuta te berekenen

Status
Niet open voor verdere reacties.

shalhevet

Gebruiker
Lid geworden
9 okt 2007
Berichten
245
Hallo,

Zoals ik al zei ben ik echt slecht met breuken en rekenen :p

In mijn factuur bestand heb ik in kolom D de aantal uren (totaal, dus bijv. 8). Getal notatie van de cel is standaard.

In kolom E staat de tarief (standaard, bijv. 15).

In kolom F worden kolom E*D berekend. (getal notatie is valuta)

Dat werkt prima totdat ik een niet hele getal invul, bijv. 8:15 in kolom D.

De som in kolom F werkt dan niet meer naar behoren.

Enig idee hoe moet ik dit oplossen?
 
Hallo

Kijk eens of dit is wat je bedoelt.

mvg Peter
 

Bijlagen

Code:
=(A1*24)*B1

=A1*24*B1

=A1*(B1*24)
Zoals ik al zei ben ik echt slecht met breuken en rekenen
Alle formules geven hetzelfde resultaat maar voor de duidelijkheid zou ik kiezen voor de laatste
 
Dan moet je in kolom D de uren van 8:15 omzetten naar 8,25 of 8.25
 
Alweer wat geleerd :-)

trouwens, weet iemand hier of het mogelijk is om de tijd in te zetten zonder de ":" in de cel?

Ik bedoel, als ik 9:00 uur wil zetten in de cel moet ik op het toetsenbord echt "9" + ":" + 0 intoetsen.

Wat ik zou willen is gewoon 900 en dat hij dat automatisch snapt dat een dubbele punt tussen moet komen.

Is dat mogelijk?
 
Hallo

Zet dit sukje code in je werkblad. Pas eventueel het bereik (in het rood) aan.
De dubbele punt wordt nu automatisch geplaats en excel kan dus ook nog met deze waarden rekenen.

Code:
Private Sub Worksheet_Change(ByVal target As Range)

On Error Resume Next
If Intersect(target, Range("[COLOR="#FF0000"]B1:B16[/COLOR]")) 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

Mvg Peter.
 
alternatief

wat ook kan, is het volgende:
neem in de Autocorrectie-opties het volgende op
++ vervangen door:

9:00 geef je nu in als 9++00 en Excel maakt daarvan 9:00

Voordeel hiervan is dat het in alle Excel-sheets werkt.
Aangezien de (ook) op het numerieke deell van je toetsenbord voorkomt, direct bij de cijfers werkt dit super.
 
Dit heb ik ook zo ingesteld
Werkt inderdaad SUPER!!!!!
 
Peter,

Thanks!! Je code werkt perfect :thumb:

-------------*************------------------

Haije

Ik snap het niet helemaal. Zie foto als bijlage.

Zo bedoel je dat? Of doe ik iets verkeerd?

ik werk met Excel 2007 (weet niet of dat wat uit maakt).

Als ik het doe zoals op de foto en ik toets in de cel:

9++ blijft het 9++

Als ik probeer 9++00 blijft het ook hetzelfde.

Wat doe ik verkeerd?

Autocorrectie.jpg

-------------*************------------------

En als jullie toch al bezig zijn, mag ik nog vragen hoe ik het met de datum kan instellen?

Nu moet ik elke keer (12) + (-) + (12) + (-) + (13) om de resultaat te krijgen: 12-12-2013

Hoe kan ik het zo instellen dat als ik 121213 intoets snapt Excel dat het een datum betreft?
 
Laatst bewerkt:
++ vervangen door : en niet door (zoals in je afbeelding staat) 00

Als je 12-12 in tikt wordt het vanzelf 12-12-2013
 
Ohh, nu snap ik het... vervangen door dubbele punt (:).

Duidelijk.

Dat klopt, 12-12 wordt vanzelf 12-12-2013 maar ik werk ook met bestanden waarbij datums van vorige jaren of volgend jaar al staan en voor het gemak zou ik dus 121213 (12-12-2013), 121214 (12-12-2014) of zelfs 121203 (12-12-2003) willen intoetsen zonder elke keer die streepje tussen te moeten zetten
 
En hoeveel honderden van die datums moet jij wel achter elkaar intikken?
 
Dat kan ik niet zeggen, soms erg veel, soms minder.
Ik zal een voorbeeld geven:

Als iemand bij mij nu komt (we zitten inmiddels in augustus) met een map van zijn administratie vanaf januari en vraagt om deze te ordenen en digitaliseren. Wat ik dan doe is alle inkomend post in een Excel bestand tikken, zonder ze eerst op volgorde te zetten. Daarna sorteer ik in het Excel bestand op datum en krijgt iedere boeking eigen nummer in de map.

Administratie, brieven en andere correspondentie vanaf januari = best veel datums na elkaar :-(
 
wellicht is dit een werkbare optie:
voeg aan autocorrectie toe vervang ,, door -

Hierbij ga ik er van uit dat je instellingen zodanig zijn dat de "." bij de nummerieke toetsen een "," geeft en geen "."
 
Laatst bewerkt:
Haije,

Ja dat klopt, mijn numerieke toetsen geven idd een komma en geen punt.

Maar ik werk vaak met de laptop en daar heb ik geen numerieke toetsenbord, daarom zocht ik naar een code of iets die het iets makkelijker maakt om datums in te typen.

Bedankt in ieder geval voor de moeite.

Ik zet deze status als opgelost maar mocht iemand nog een tip hebben hoor ik het graag
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan