[Excel] Het grote Excel vragen topic #25

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
  zaterdag 19 maart 2011 @ 16:50:37 #151
152215 ManAtWork
Maar nu even niet,...
pi_94337687
quote:
1s.gif Op zaterdag 19 maart 2011 16:46 schreef crossover het volgende:
Wie heeft er een goede tutorial om te leren werken met draaitabellen?
Beste manier om het te leren, is gewoon proberen. Dan leer je het meest en onthoudt je het het beste. (Is mijn bescheiden mening.)
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_94337840
Ja daar heb je gelijk in, ik heb echter geen idee waar ik zou moeten beginnen _O-

Ik zal deze powerpoint eens volgen: http://www.soweb.be/office2007/excel2007/draaitabellen.pdf
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
pi_94338299
Ah, het is inderdaad vrij simpel. Ik heb hier een mooi oefenbestand gevonden, eerste hit:

http://www.google.nl/sear(...)&fp=f76b4a446a36e0f5
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
  zaterdag 19 maart 2011 @ 17:16:09 #154
152215 ManAtWork
Maar nu even niet,...
pi_94338655
quote:
11s.gif Op zaterdag 19 maart 2011 17:06 schreef crossover het volgende:
Ah, het is inderdaad vrij simpel. Ik heb hier een mooi oefenbestand gevonden, eerste hit:

http://www.google.nl/sear(...)&fp=f76b4a446a36e0f5
Wat is google toch een geweldige uitvinding, he? ;)
Als toeval niet bestaat, waarom hebben ze er dan een woord voor uitgevonden?
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
pi_94339223
filetype:xls wtf !
pi_94340710
Ik heb naar de voorbeelden gekeken. Lukt allemaal prima en snap ik ook.
Helaas lukt het nog steeds niet.

Ik loop vast op het feit dat in mijn medewerker tabblad in de eerste kolom een lijst met namen heb (deze is uniek) en dat de codes die in de validatielijst moeten komen in de kolommen achter de medewerkers staan. Ik loop steeds vast in de verwijzing naar die kolommen. Als ik de voorbeelden volg zou ik per regel een naamlijst moeten maken ??
pi_94369889
quote:
1s.gif Op zaterdag 19 maart 2011 18:11 schreef Lorne het volgende:
Ik heb naar de voorbeelden gekeken. Lukt allemaal prima en snap ik ook.
Helaas lukt het nog steeds niet.

Ik loop vast op het feit dat in mijn medewerker tabblad in de eerste kolom een lijst met namen heb (deze is uniek) en dat de codes die in de validatielijst moeten komen in de kolommen achter de medewerkers staan. Ik loop steeds vast in de verwijzing naar die kolommen. Als ik de voorbeelden volg zou ik per regel een naamlijst moeten maken ??
Hey, je hebt gelijk. Ik heb het ook even geprobeerd te bouwen maar het lijkt wel inderdaad of je per namen-rijtje

Jan 1
Jan 12
Jan 4

Een Name moet definiėren...ik vraag me af of je namen kan laten afhangen van de waarde van een andere cel (dus dat de Name 'A' verwijst naar B2:B4 als er Jan staan, maar naar B5:B7 als er Henk staat).
Ik zou deze even bij MrExcel.com neerleggen...die weten nogal eens wat :')
Wel met screenshots das allemaal duidelijker.
pi_94372447
Hoe maak ik een in excel-bestand een functie (of een macro?) aan dat getallen worden gesplitst in bruto, netto en btw?
Dus dat ik in tabel A een bedrag invul, en er in tabel B automatisch verschijnt (dat bedrag gedeeld door 1,19) en in tabel C (bedrag van tabel A gedeeld door 6,263). En dan dat ze onderaan de tabellen dan automatisch opgeteld worden?

Ik ben een enorme digibeet, dus het echt de klunzen-uitleg nodig :@ , en ik heb Microsoft Office 2003.
pi_94378731
quote:
7s.gif Op zondag 20 maart 2011 12:24 schreef DaFan het volgende:

[..]

Hey, je hebt gelijk. Ik heb het ook even geprobeerd te bouwen maar het lijkt wel inderdaad of je per namen-rijtje

Jan 1
Jan 12
Jan 4

Een Name moet definiėren...ik vraag me af of je namen kan laten afhangen van de waarde van een andere cel (dus dat de Name 'A' verwijst naar B2:B4 als er Jan staan, maar naar B5:B7 als er Henk staat).
Ik zou deze even bij MrExcel.com neerleggen...die weten nogal eens wat :')
Wel met screenshots das allemaal duidelijker.
Bedankt voor de suggestie.
Ik heb mijn vraag daar net op het forum geplaats. http://www.mrexcel.com/forum/showthread.php?p=2653048#post2653048
  zondag 20 maart 2011 @ 16:59:05 #160
62215 qu63
..de tijd drinkt..
pi_94380930
quote:
5s.gif Op zondag 20 maart 2011 13:34 schreef Laureline het volgende:
Hoe maak ik een in excel-bestand een functie (of een macro?) aan dat getallen worden gesplitst in bruto, netto en btw?
Dus dat ik in tabel A een bedrag invul, en er in tabel B automatisch verschijnt (dat bedrag gedeeld door 1,19) en in tabel C (bedrag van tabel A gedeeld door 6,263). En dan dat ze onderaan de tabellen dan automatisch opgeteld worden?

Ik ben een enorme digibeet, dus het echt de klunzen-uitleg nodig :@ , en ik heb Microsoft Office 2003.
In kolom A vul je je bedrag in. In kolom B komt "=A/1,19" (zonder de "" dan he ;)). In kolom C komt "=A/6,263" (wederom zonder de "").

Onderaan in kolom A op rij 31 zet je som(A1:A30), datzelfde doe je bij kolom B en C (maar dan som(B1:B30) en som(C1:C30). Als je meer dan 30 rijen hebt dan pas je dat natuurlijk aan ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94381856
quote:
1s.gif Op zondag 20 maart 2011 16:02 schreef Lorne het volgende:

[..]

Bedankt voor de suggestie.
Ik heb mijn vraag daar net op het forum geplaats. http://www.mrexcel.com/forum/showthread.php?p=2653048#post2653048
Betere uitleg dan hier, maar ik weet het niet ;(
Ik heb wel een idee in welke richting de oplossing is, maar ik weet niet hoe het moet.
pi_94382068
Ze willen daar dat je ook stukken van je sheet post en hebben er een plugin voor gemaakt. Was dus wel verplicht om het toch wat uitgebreider te beschrijven. (dacht dat mijn vraag hier ook wel redelijk duidelijk gesteld was ;-) ).

Volgens mij ben ik er ook wel dicht bij, maar toch loop ik steeds vast.
Heb ook nog zitten denken om het blad waar de validatie moet komen ergens in de kolommen uit het zicht een kopie te maken van de codes die op het andere blad staan, zodat ik kan verwijzen naar een lijst op hetzelfde blad, maar vind dit eigenlijk geen nette oplossing.

Zal in ieder geval wel melden als het gelukt is.
pi_94382738
Wat je zou kunnen doen dmv een hulpblad, is een lijst te maken van alle namen die voorkomen (horizontaal) en daaronder (per naam dus) een kolom van alle codes die per naam voorkomen (dat kan allebei met dynamische formules - zoek op "multiple hits vlookup" oid).
Die kolommen kan je dan weer een Dynamic named range geven, maar dan nog ontkom je er niet aan dat je voor elke naam een Named range moet aanmaken. Wat natuurlijk superonhandig is.

MrExcel doet je soms echt versteld staan dus ik ben benieuwd wat ze voorstellen!
pi_94385152
Klinkt inderdaad niet echt heel handig :-)

Wacht nog even mrexcel af. Ben benieuwd.
pi_94411081
quote:
1s.gif Op vrijdag 18 maart 2011 15:51 schreef Goldfish80 het volgende:

[..]

Dan krijg je er allemaal nullen achter.
Dus in plaats van dit :1,24235E+14
Krijg je dan: 124235000000000,00
Dat is toch ook wat er staat? Of is het originele getal dat je importeert 12423589372154728 oid en rond excel dat automatisch voor je af?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  maandag 21 maart 2011 @ 11:28:16 #166
62215 qu63
..de tijd drinkt..
pi_94412910
quote:
1s.gif Op maandag 21 maart 2011 10:26 schreef Deetch het volgende:

[..]

Dat is toch ook wat er staat? Of is het originele getal dat je importeert 12423589372154728 oid en rond excel dat automatisch voor je af?
Is het niet gewoon zo dat je cel te klein is voor het getal?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94413649
quote:
1s.gif Op maandag 21 maart 2011 11:28 schreef qu63 het volgende:

[..]

Is het niet gewoon zo dat je cel te klein is voor het getal?
Mijn excelversie houd na vijftien getal er mee op.
1234567890123456789 wordt dan eerst 1.23457E+18 en als ik er dan weer een getal van maak blijft er 1234567890123450000 over.
Volgens mij is dat een bekende beperking van excel.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_94417906
Hallo FOK collega's

Ik heb de volgende vraag,

In excel Heb ik 2 checkboxjes, Het volgende moet gebeuren als de 1ste is aangevinkt en ik vink de andere aan moet de 1ste uitgaan hoe krijg ik dit voor elkaar, ik heb al wat tijd in gestoken om het te vinden maar niks gevonden

Groetjes Problemexcel

Ps. ik gebruik excel 2007 nl versie

[ Bericht 1% gewijzigd door ProblemExcel op 21-03-2011 16:43:35 ]
pi_94422060
quote:
1s.gif Op zondag 20 maart 2011 16:59 schreef qu63 het volgende:

[..]

In kolom A vul je je bedrag in. In kolom B komt "=A/1,19" (zonder de "" dan he ;)). In kolom C komt "=A/6,263" (wederom zonder de "").

Onderaan in kolom A op rij 31 zet je som(A1:A30), datzelfde doe je bij kolom B en C (maar dan som(B1:B30) en som(C1:C30). Als je meer dan 30 rijen hebt dan pas je dat natuurlijk aan ;)
Dankjewel, ik zat nog even een tijd te vogelen hoe je nou percies in kolom B en C die "A=A/1,19" 'doet' (ik heb er maar SUM voorgedaan, anders deed hij het niet) :') , maar het is gelukt! Mijn eerste excel-kindje :P !
  maandag 21 maart 2011 @ 21:31:12 #170
62215 qu63
..de tijd drinkt..
pi_94442260
quote:
17s.gif Op maandag 21 maart 2011 15:34 schreef Laureline het volgende:

[..]

Dankjewel, ik zat nog even een tijd te vogelen hoe je nou percies in kolom B en C die "A=A/1,19" 'doet' (ik heb er maar SUM voorgedaan, anders deed hij het niet) :') , maar het is gelukt! Mijn eerste excel-kindje :P !
Je hoeft er niets voor te doen.. En als je mijn tekst precies overneemt zou het moeten werken! In je post zeg je "A=A/1,19", zo zei ik het niet! ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94460067
Ik ben bezig met conditional formatting en ik wil alle velden waarin tekst staat highlighten, als het getallen bevat hoeft er niets te gebeuren. Heeft iemand enig idee hoe ik dat voor elkaar krijg in Excel 2003? :)
pi_94461592
quote:
1s.gif Op dinsdag 22 maart 2011 10:39 schreef Misan het volgende:
Ik ben bezig met conditional formatting en ik wil alle velden waarin tekst staat highlighten, als het getallen bevat hoeft er niets te gebeuren. Heeft iemand enig idee hoe ik dat voor elkaar krijg in Excel 2003? :)
Kun je iets met de functie ISNUMBER of ISTEXT? Dit werkt alleen als je celinhoud of een getal is of een tekst.
Met een tekst waarin ook getallen staan kan deze functie niks. Dan moet je een eigen functie definieren: http://www.ozgrid.com/VBA/ExtractNum.htm
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  dinsdag 22 maart 2011 @ 11:57:49 #173
1592 Puckzzz
Bitch please!
pi_94462425
Hoi Deetch.

Ontzettend bedankt voor je bestandje met de macro erin. Het lukt redelijk.
Wat er niet lukt is het feit dat ik 'm als sjabloon opsla (dan heb ik de datum en tijd uit de cel gehaald) en als ik dan de sjabloon weer open vult hij niet automatisch de datum en tijd weer in.

Ik nie snap nie....ik blijf editen :') Dit doet ie inmiddels goed :)

Oh en nog een vraagje. Als ik nu het sjabloon opnieuw open geeft hij het d.m.v. een volgnummer een nieuwe naam. Is er aan manier om dat naar eigen wens aan te passen? Eventueel bij het opslaan? Zodat ie 'm wegschrijft in een bepaalde map met bijvoorbeeld de naam: Venray-52148-Naam monteur.xls

Al die informatie staat in het bestand dus daar zou het dan naar moeten verwijzen tijdens het opslaan.

[ Bericht 26% gewijzigd door Puckzzz op 22-03-2011 12:25:47 ]
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
pi_94463436
quote:
1s.gif Op dinsdag 22 maart 2011 11:32 schreef Deetch het volgende:

[..]

Kun je iets met de functie ISNUMBER of ISTEXT? Dit werkt alleen als je celinhoud of een getal is of een tekst.
Met een tekst waarin ook getallen staan kan deze functie niks. Dan moet je een eigen functie definieren: http://www.ozgrid.com/VBA/ExtractNum.htm
dank je :) ik ga wel even kijken of ik het voor elkaar krijg met ISNUMBER of ISTEXT idd. VBA is voor programmeurs, daar ga ik me echt niet aan wagen ;)

Uiteindelijk voor elkaar gekregen met ISTEXT() :)
=IF(ISTEXT(H5);TRUE;FALSE)

Zonder dollartekens, aangezien ik het over meerdere cellen tegelijk wilde toepassen :)

[ Bericht 15% gewijzigd door Misan op 22-03-2011 12:58:33 ]
pi_94465758
=istext() geeft al true of false terug dus de IF is niet nodig'
pi_94465831
quote:
17s.gif Op dinsdag 22 maart 2011 11:57 schreef Puckzzz het volgende:
Hoi Deetch.

Ontzettend bedankt voor je bestandje met de macro erin. Het lukt redelijk.
Wat er niet lukt is het feit dat ik 'm als sjabloon opsla (dan heb ik de datum en tijd uit de cel gehaald) en als ik dan de sjabloon weer open vult hij niet automatisch de datum en tijd weer in.

Ik nie snap nie....ik blijf editen :') Dit doet ie inmiddels goed :)

Oh en nog een vraagje. Als ik nu het sjabloon opnieuw open geeft hij het d.m.v. een volgnummer een nieuwe naam. Is er aan manier om dat naar eigen wens aan te passen? Eventueel bij het opslaan? Zodat ie 'm wegschrijft in een bepaalde map met bijvoorbeeld de naam: Venray-52148-Naam monteur.xls

Al die informatie staat in het bestand dus daar zou het dan naar moeten verwijzen tijdens het opslaan.
Je kunt code toevoegen aan waar nu de worksheet open code ook staat. Dus rechtsklikken op je tabje en dan view code This workbook

1
2
3
4
5
6
7
8
9		Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   Dim opslagnaam As String
   
   opslagnaam = "C:\Data\Temp\" & Range("B5").Value & "-" & Range("B6").Value & "-" & Range("B7").Value
   opslagformaat = 56

   ActiveWorkbook.SaveAs opslagnaam, opslagformaat
   ActiveWorkbook.Saved = True
End Sub
Wat de code doet is de gegevens uit cel B5, B6 en B7 samenvoegen en er een directory mapnaam voor zetten. B5 = plaats, B6 = volgnummer en B7 is monteur

Op het moment dat de bonmaker het bestand wil opslaan wordt het bestand automatisch opgeslagen in excel97-2003 format (opslagformaat is 56)
Als je wilt opslaan in standaard 2007 formaat dan verander je de 56 in 50.

Vervolgens krijgt de monteur het standaard opslaan venster en kan hij zelf ook nog kiezen voor een locatie om op te slaan. Dit gebeurt in het standaard formaat waarin de excel van de monteur is geconfigureerd.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  dinsdag 22 maart 2011 @ 15:25:28 #177
1592 Puckzzz
Bitch please!
pi_94468866
quote:
1s.gif Op dinsdag 22 maart 2011 13:46 schreef Deetch het volgende:

[..]

Je kunt code toevoegen aan waar nu de worksheet open code ook staat. Dus rechtsklikken op je tabje en dan view code This workbook

[ code verwijderd ]

Wat de code doet is de gegevens uit cel B5, B6 en B7 samenvoegen en er een directory mapnaam voor zetten. B5 = plaats, B6 = volgnummer en B7 is monteur

Op het moment dat de bonmaker het bestand wil opslaan wordt het bestand automatisch opgeslagen in excel97-2003 format (opslagformaat is 56)
Als je wilt opslaan in standaard 2007 formaat dan verander je de 56 in 50.

Vervolgens krijgt de monteur het standaard opslaan venster en kan hij zelf ook nog kiezen voor een locatie om op te slaan. Dit gebeurt in het standaard formaat waarin de excel van de monteur is geconfigureerd.
Hij heeft een probleem met de opslagnaam: "C:\Data\Temp\"
Ikw erk op een server dus ik denk dat het daar aan ligt? kan ik niet rechtstreeks verwijzen naar de map waar het bestand in moet komen? dat is toch altijd dezelfde map.

Edit: volgens de foutopsporing gaat er hier iets niet goed:
ActiveWorkbook.SaveAs opslagnaam, opslagformaat

[ Bericht 4% gewijzigd door Puckzzz op 22-03-2011 15:37:36 ]
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
pi_94469038
quote:
1s.gif Op dinsdag 22 maart 2011 13:44 schreef DaFan het volgende:
=istext() geeft al true of false terug dus de IF is niet nodig'
ah thanks :)
pi_94471262
die
quote:
17s.gif Op dinsdag 22 maart 2011 15:25 schreef Puckzzz het volgende:

[..]

Hij heeft een probleem met de opslagnaam: "C:\Data\Temp"
Ikw erk op een server dus ik denk dat het daar aan ligt? kan ik niet rechtstreeks verwijzen naar de map waar het bestand in moet komen? dat is toch altijd dezelfde map.

Edit: volgens de foutopsporing gaat er hier iets niet goed:
ActiveWorkbook.SaveAs opslagnaam, opslagformaat
De tekst "C:\Data\Temp\" kun je naar believen aanpassen naar de gewenste mapnaam (incl. schijfnaam)
Je krijgt de foutmelding omdat die map C:\data\temp waarschijnlijk niet bestaat.

Ik neem aan dat je de celverwijzingen ook naar jouw situatie hebt aangepast?
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
  dinsdag 22 maart 2011 @ 17:05:05 #180
1592 Puckzzz
Bitch please!
pi_94472593
quote:
1s.gif Op dinsdag 22 maart 2011 16:30 schreef Deetch het volgende:
die

[..]

De tekst "C:\Data\Temp" kun je naar believen aanpassen naar de gewenste mapnaam (incl. schijfnaam)
Je krijgt de foutmelding omdat die map C:\data\temp waarschijnlijk niet bestaat.

Ik neem aan dat je de celverwijzingen ook naar jouw situatie hebt aangepast?
Ik heb hem aangepast naar dit:
quote:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim opslagnaam As String

opslagnaam = " Z:\Project\Service en onderhoud\Storingen\ " & Range("B5").Value & "-" & Range("B6").Value & "-" & Range("B35").Value
opslagformaat = 56

ActiveWorkbook.SaveAs opslagnaam, opslagformaat
ActiveWorkbook.Saved = True
End Sub
Maar ik blijf een foutmelding krijgen -O-
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
  dinsdag 22 maart 2011 @ 17:49:54 #181
62215 qu63
..de tijd drinkt..
pi_94474199
quote:
17s.gif Op dinsdag 22 maart 2011 17:05 schreef Puckzzz het volgende:

[..]

Ik heb hem aangepast naar dit:

[..]

Maar ik blijf een foutmelding krijgen -O-
Er zit een spatie voor Z:\, misschien kan het daar aan liggen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94477966
En erna, mapnamen mogen niet met een spatie beginnen.
pi_94483342
quote:
1s.gif Op maandag 21 maart 2011 13:55 schreef ProblemExcel het volgende:
Hallo FOK collega's

Ik heb de volgende vraag,

In excel Heb ik 2 checkboxjes, Het volgende moet gebeuren als de 1ste is aangevinkt en ik vink de andere aan moet de 1ste uitgaan hoe krijg ik dit voor elkaar, ik heb al wat tijd in gestoken om het te vinden maar niks gevonden

Groetjes Problemexcel

Ps. ik gebruik excel 2007 nl versie
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15		Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
    CheckBox2.Value = False
End If

End Sub

Private Sub CheckBox2_Click()

If CheckBox2.Value = True Then
    CheckBox1.Value = False
End If

End Sub
Kan je niet beter Radiobuttons gebruiken dan?
pi_94500092
quote:
7s.gif Op dinsdag 22 maart 2011 20:43 schreef DaFan het volgende:

[..]
[ code verwijderd ]

Kan je niet beter Radiobuttons gebruiken dan?
Bedankt ^O^

En idd lijkt me mischien beter om radiobuttons voor in de plaats te gebruiken
  woensdag 23 maart 2011 @ 10:04:40 #185
1592 Puckzzz
Bitch please!
pi_94501435
quote:
1s.gif Op dinsdag 22 maart 2011 17:49 schreef qu63 het volgende:

[..]

Er zit een spatie voor Z:\, misschien kan het daar aan liggen?
Het lag aan de spaties. Werkt nu perfect! Thnx iedereen :*
Hey! Het is OK om alleen je eerste twee teennagels te lakken als je van plan bent peeptoes te gaan dragen!
pi_94507842
quote:
17s.gif Op woensdag 23 maart 2011 10:04 schreef Puckzzz het volgende:

[..]

Het lag aan de spaties. Werkt nu perfect! Thnx iedereen :*
^O^
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_94513121
Hallo

Ik zit nu met het volgende probleem, Ik heb 3 cellen Naam Aantal en prijs, en de 2 checkboxjes, als ik de 1ste checkboxje aanvinkt moet de informatie van de 3 cellen in sheet 2 te komen te staan en als ik de andere aanklikt moet die in sheet 3 komen, enig idee hoe ik dat voor elkaar krijg?

groetjes ProblemExcel
  woensdag 23 maart 2011 @ 15:38:07 #188
62215 qu63
..de tijd drinkt..
pi_94513377
quote:
1s.gif Op woensdag 23 maart 2011 15:32 schreef ProblemExcel het volgende:
Hallo

Ik zit nu met het volgende probleem, Ik heb 3 cellen Naam Aantal en prijs, en de 2 checkboxjes, als ik de 1ste checkboxje aanvinkt moet de informatie van de 3 cellen in sheet 2 te komen te staan en als ik de andere aanklikt moet die in sheet 3 komen, enig idee hoe ik dat voor elkaar krijg?

groetjes ProblemExcel
Wat heb je zelf al geprobeerd?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94516508
Heb al zelf geprobeerd met hyperlink en met de informatie zelf erin iets te linken dat lukt wel maar langs checkbox wil het maar niet lukken
pi_94516575
Probeer het maar eens met google. Ik heb je antwoord zo gevonden.
'Expand my brain, learning juice!'
<a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank">Last.fm</a>
  woensdag 23 maart 2011 @ 17:13:55 #191
62215 qu63
..de tijd drinkt..
pi_94517309
quote:
1s.gif Op woensdag 23 maart 2011 16:54 schreef ProblemExcel het volgende:
Heb al zelf geprobeerd met hyperlink en met de informatie zelf erin iets te linken dat lukt wel maar langs checkbox wil het maar niet lukken
Hyperlink? Je bedoelt de functie =hyperlink()? Dan zou ik de omschrijving daarbij nog maar eens goed lezen. Daarnaast, als je checkboxes gebruikt zal je wel VBA nodig hebben om het te laten werken dus dan zou =hyperlink toch al niet werken.

Welke code heb je nu gebruikt?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94568378
quote:
1s.gif Op zondag 20 maart 2011 18:43 schreef Lorne het volgende:
Klinkt inderdaad niet echt heel handig :-)

Wacht nog even mrexcel af. Ben benieuwd.
De reply die je hebt gekregen is hetzelfde als ik gaf, names geven aan alle ranges per persoon.
Kan natuurlijk wel een Change event, dat wel.
pi_94730792
Hallo, ik hoop dat jullie mij kunnen helpen.
Kan via de zoekfunctie/google er helemaal niks over terugvinden...

Taal: Nederlands
Versie: 2007

Goed, ik heb meerdere tabbladen in één excel bestand. En op het eerste tabblad wil ik graag een snelkoppeling/hyperlink om bijvoorbeeld tabblad 2 af te drukken (alleen het afdrukbereik wat ik op tabblad 2 heb aangegeven, maar ik ga ervan uit dat hij dit automatisch doet).
En zo ook een snelkoppeling/hyperlink om alléén tabblad 3 af te drukken, etc, etc.

Wie kan mij helpen?
pi_94820863
Kun je dit niet als macro opnemen en die macro aan een button koppelen?
Waar loop je dan nog tegenaan?
pi_94844121
quote:
1s.gif Op woensdag 30 maart 2011 19:18 schreef hendrik2009 het volgende:
Kun je dit niet als macro opnemen en die macro aan een button koppelen?
Waar loop je dan nog tegenaan?
waarschijnlijk niks. Goed advies lijkt me.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_94933769
Inderdaad topadvies, duurde even maar werkt perfect! :D mijn dank is groot. 2e vraagje: zou je formules die je in excel hebt staan kunnen vergrendelen. Dus als men gaat knippen kopiėren plakken de formule altijd blijft staan...
  zaterdag 2 april 2011 @ 10:29:09 #197
62215 qu63
..de tijd drinkt..
pi_94935180
quote:
1s.gif Op zaterdag 2 april 2011 07:18 schreef Peter1612 het volgende:
Inderdaad topadvies, duurde even maar werkt perfect! :D mijn dank is groot. 2e vraagje: zou je formules die je in excel hebt staan kunnen vergrendelen. Dus als men gaat knippen kopiėren plakken de formule altijd blijft staan...
Ken je de "$" in een formulue?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_94949962
Even selecteren en op F4 drukken.
pi_94970269
quote:
Op zaterdag 2 april 2011 10:29 schreef qu63 het volgende:

[..]

Ken je de "$" in een formulue?
Ben ik niet bekend mee, zal de tip van Henk is proberen :)
  zondag 3 april 2011 @ 10:41:18 #200
62215 qu63
..de tijd drinkt..
pi_94971036
quote:
1s.gif Op zondag 3 april 2011 09:31 schreef Peter1612 het volgende:

[..]

Ben ik niet bekend mee, zal de tip van Henk is proberen :)
Die tip van Hendrik gooit een of meerdere $'s in je formule.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_95022861
Ik heb een voor jullie wellicht makkelijke vraag:

Ik zoek een formule voor het volgedende:

Als de waarde (tekst) in cel P7 gelijk is aan "Piet B.V." of "Kees B.V." dan wil ik dat de gegevens van cel C7 worden overgenomen.

Ik was met de ALS formule begonnen, maar krijg het niet voor elkaar... misschien een andere formule ?

Alvast bedankt !
pi_95024365
quote:
1s.gif Op zondag 3 april 2011 10:41 schreef qu63 het volgende:

[..]

Die tip van Hendrik gooit een of meerdere $'s in je formule.
en daarmee zet je de celverwijzing vast.

stel in cel B1 heb je een formule staan =2*A1

als je deze dan kopieert naar cel C2 wordt de formule = 2*B2 (verwijzing schuift mee)

Zet je in B1 echter =2*$A$1 en kopieer je die naar C2 dan blijft de formule =2*$A$1.
Zet je in B1 echter =2*$A1 en kopieer je die naar C2 dan wordt de formule =2*$A2. (dus het rijnummer verschuift mee)
Zet je in B1 echter =2*A$1 en kopieer je die naar C2 dan wordt de formule =2*B$1. (dus het kolomnummer verschuift mee)
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_95024412
quote:
1s.gif Op maandag 4 april 2011 14:33 schreef PAYPROF het volgende:
Ik heb een voor jullie wellicht makkelijke vraag:

Ik zoek een formule voor het volgedende:

Als de waarde (tekst) in cel P7 gelijk is aan "Piet B.V." of "Kees B.V." dan wil ik dat de gegevens van cel C7 worden overgenomen.

Ik was met de ALS formule begonnen, maar krijg het niet voor elkaar... misschien een andere formule ?

Alvast bedankt !
=als(of(P7="Piet B.V.";P7="Kees B.V.");C7;"")
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_95026932
Dank je wel,hier was ik idd naar op zoek.

Heb er nog een...

Ik wil graag de duur van een dienst uitrekenen, maar een nachtdienst pakt excel niet om reden dat het dan negatief rekent. enig idee hoe dit op te lossen ?

8:30 17:00 = 8:30
22:45 7:00 = ######

van 22.45 tot 7 zou hij dus als uitkomst 8.15 weer moeten geven.

Alvast bedankt
pi_95028492
stel in A1 de starttijd en in B1 de eindtijd

berekeningsformule: =IF(B1<A1,1-A1+B1,B1-A1)
celformat van de berekening even aanpassen naar tijd en klaar ben je
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_95029974
geweldig!

nog 1 mbt een range voor onregelmatigheidsdiensten:

van maandag 0.00 uur tm vrijdag 0.00 uur aan het einde van de dienst ORT uren berekenen.
vervolgens op zaterdag de uren en op zondag de uren
ORT op werkdagen is van 6 to 8 in de ochtend en van 18 tot 22 uur in de avond
op Zaterdag gehele dag ORT volgens x percentage en op zondag gehele dag ORT volgens x percentage.

dus als de eindtijd van een dienst van maandag op dinsdag eindigt om 7 uur dan krijgt de medewerker 1 uur ORT op doordeweekse werkdag.

Als de dienst op vrijdagavond begint om 22.45 uur en duurt tot zaterdag ochtend 7 uur, krijgt de medewerker 7 uur ORT op zaterdag

Begint de dienst op zaterdag om 22.45 uur tot zondag ochtend 7 uur, dan krijgt de medewerker 1.25 uur ORT op zaterdag en 7 uur ORT op zondag

en zo ook als de diensten eindigen tussen 18 en 22 uur...

ideetje hoe dit aan te pakken ?
pi_95050817
zie bijvoegd plaatje.

Ik wil uit een rooster voor leraren, per leraar zijn of haar klassen en vakken halen.

Invoer is wat ik binnenkrijg, en uitvoer is hoe het er uit moet komen te zien.


'VoorbeeldRooster' door thesteelgeneral

Kan ik dat met een formule doen, of zijn er macro's hiervoor?
Of iets anders?
Overpeinzingen van een erfgenaam van de Che Guevara gedachte
pi_95059707
ik zou voor een database toepassing gaan.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_95060019
quote:
1s.gif Op maandag 4 april 2011 17:20 schreef PAYPROF het volgende:
geweldig!

nog 1 mbt een range voor onregelmatigheidsdiensten:

van maandag 0.00 uur tm vrijdag 0.00 uur aan het einde van de dienst ORT uren berekenen.
vervolgens op zaterdag de uren en op zondag de uren
ORT op werkdagen is van 6 to 8 in de ochtend en van 18 tot 22 uur in de avond
op Zaterdag gehele dag ORT volgens x percentage en op zondag gehele dag ORT volgens x percentage.

dus als de eindtijd van een dienst van maandag op dinsdag eindigt om 7 uur dan krijgt de medewerker 1 uur ORT op doordeweekse werkdag.

Als de dienst op vrijdagavond begint om 22.45 uur en duurt tot zaterdag ochtend 7 uur, krijgt de medewerker 7 uur ORT op zaterdag

Begint de dienst op zaterdag om 22.45 uur tot zondag ochtend 7 uur, dan krijgt de medewerker 1.25 uur ORT op zaterdag en 7 uur ORT op zondag

en zo ook als de diensten eindigen tussen 18 en 22 uur...

ideetje hoe dit aan te pakken ?
Hiervoor heb je in ieder geval de datum nodig. Het mooiste zou zijn dat in zowel begin als eindtijd zowel de datum als de tijd staat: dd-mm-yyyy hh:mm. Als je deze notatie gebruikt kun je de eind en begintijd altijd zo van elkaar af trekken (dan vervalt dus de vorige IF functie)
De dag van de week bepaal je door de functie: =weekday(A1,2) dan is maandag 1 en zondag 7.
in A2 heb je de start datum en tijd en in B2 de einddatum en tijd. De zaterdag/zondag ORT bereken je dan als volgt:

=IF(OR(WEEKDAY(A2,2)=6,WEEKDAY(A2,2)=7),1-MOD(A2,1),0)+IF(OR(WEEKDAY(B2,2)=6,WEEKDAY(B2,2)=7),MOD(B2,1),0)

WEEKDAY bepaalt de dag van de week (,2) betekent maandag = 1 en zondag = 7
MOD bepaalt het restant als je hebt gedeeld door (in dit geval) 1 dus het aantal uren van de dag.
De eerste IF kijkt of de begindag een zaterdag of zondag is en bepaald dan hoeveel uren er gewerkt is vanaf de starttijd tot 0:00.
De tweede IF kijkt of de einddag een zaterdag of zondag is en berekent hoeveel uren er die dag is gewerkt.

De andere dagen moet je maar even zelf uitzoeken. Deze functie kan op de plek waar nu de 0 staat aan het einde van de IF functies.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_95060500
Bedankt, ik ga vandaag eens kijken of ik het voor elkaar krijg !
pi_95121442
Ziet iemand de fout in dit script? Ik wil een voorwaardelijke opmaak voor meer dan 3 voorwaarden.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
With c
Select Case .Value
Case Is = "rv"
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
Case Is = "av"
.Font.ColorIndex = 2
.Interior.ColorIndex = 28
Case Is = "5110a"
.Interior.ColorIndex = 1
Case Is = "5122a"
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
Case Is = "5123a"
.Font.ColorIndex = 5
.Interior.ColorIndex = 28
Case Is = "5124a"
.Interior.ColorIndex = 1
Case Is = "5125a"
.Font.ColorIndex = 2
.Interior.ColorIndex = 5
Case Is = "5126a"
.Font.ColorIndex = 2
.Interior.ColorIndex = 4
Case Is = "5128a"
.Interior.ColorIndex = 1
Case Is = "" 'cel leeg gemaakt
.Font.ColorIndex = 0
.Interior.ColorIndex = xlNone
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
Next c
End Sub
pi_95123877
Hoi,

Ik ben al een heel eind met de ORT, maar op werkdagen zoek ik nog naar een formule voor een tijdspanne.
Dus als de uren van de dienst voorkomen in de range tussen 22 uur en 6 uur 's ochtends dan die betreffende aantal uren berekenen. datum en tijd zijn inmiddels samengevoegd in 1 cel.

voorbeeld: een dienst begint om 22.45 uur en eindigt om 7 uur 's ochtends = 7.15 uur ORT (1.15+6)
een dienst begint om 21.00 uur en eindigt om 5 uur 's ochtends = 7 uur ORT (2+5)

Ik hoop dat je me kunt helpen
pi_95124945
Hai, excel leek hier :@

Ik heb 2 tabbladen met data: ced_users & sheet1.

Op beide staan data met de volgende colommen: voornaam/achternaam/tweede voornaam/toestel/telefoon/e-mail.

Nu wil ik beide tabbladen vergelijken met elkaar. Dus ik wil een lijstje met namen die wel op a staan, maar niet op b en omgekeerd.

En eigenlijk wil ik het liefst ook weten hoe ik excel kan laten controleren of er op tabblad ced_users lege velden zijn en deze laten vullen met data van sheet1.

En nu heb ik eigenlijk maar 1 vraag: hoe pak ik dit aan? :@

excel 2007, engelse taal
pi_95125908
Heb je hier iets aan? http://www.ehow.com/how_6(...)e-columns-excel.html
'Expand my brain, learning juice!'
&lt;a href="http://www.last.fm/user/crossover1" rel="nofollow" target="_blank"&gt;Last.fm&lt;/a&gt;
pi_95126061
Ik loop vast als ik die code uit dat artikel moet ombouwen naar een code die ik wil gebruiken :@ :@
  woensdag 6 april 2011 @ 17:09:10 #216
62215 qu63
..de tijd drinkt..
pi_95126213
quote:
1s.gif Op woensdag 6 april 2011 15:15 schreef Goldfish80 het volgende:
Ziet iemand de fout in dit script? Ik wil een voorwaardelijke opmaak voor meer dan 3 voorwaarden.

[knip]
Moet dat per se met VB?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  woensdag 6 april 2011 @ 17:12:05 #217
62215 qu63
..de tijd drinkt..
pi_95126332
quote:
1s.gif Op woensdag 6 april 2011 17:05 schreef Puala het volgende:
Ik loop vast als ik die code uit dat artikel moet ombouwen naar een code die ik wil gebruiken :@ :@
Wat gaat er mis dan?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_95126360
MBT ORT heb ik inmiddels het volgende in elkaar weten te zetten, afzonderlijk werken ze goed dus ik kan ze eventueel opnemen in 2 aparte kolommen voor de resultaten, maar weet iemand hoe ik deze 2 formules samen kan voegen zodat ik maar 1 kolom nodig heb ??

als dienst van ma tm vr voor 22 uur begint voor ORT 22-06
=ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr"));AX11<22;AY11>0;AR11<AU11);1-REST(BN$1;1))+ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr"));AX11<22;AY11>0;AY11<6;AR11<AU11);1-REST(24-E11;1);0)+ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr"));AX11<22;AY11>0;AY11>6;AR11<AU11);1-REST(24-$BN$2;1);0)

als dienst van ma tm vr na 22 uur begint voor ORT 22-06
=ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr");AX11>22;AY11>0;AY11>6);1-REST(24-$BN$2;1);0)+ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr");AX11>22;AY11>0;AY11<6);1-REST(24-E11;1);0)+
ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");(OF($AU10="ma";AU11="di";AU10="wo";AU11="do";AU11="vr"));AX11>22;AY11>0);1-REST(C11;1);0)
pi_95126405
quote:
1s.gif Op woensdag 6 april 2011 17:12 schreef qu63 het volgende:

[..]

Wat gaat er mis dan?
Ik weet niet wat ik hier in moet vullen: (cell to match,cells to match with,0)),"",cell to match)

Ik ga namelijk van tabblad 1 naar tabblad 2 en ik snap niet wat ik dan in moet vullen..
pi_95134304
Goldfish
Je moet hem niet in Workbook_Sheetchange zetten maar in Worksheet_change

dus
1
2
3
4
5		Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
For Each c In Target.Cells
With c
Select Case .Value

Daarnaast kan je Case Is = "rv" ombouwen tot
1
2
3
4
5		Select Case .Value

Case "rv"
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
etc

Het werkt hetzelfde en is korter.

En je kan dit deel
1
2
3		Dim c As Range
For Each c In Target.Cells
With c
omzetten in
1With Target
Let erop dat je aan het eind ook Next c weghaalt.
Je kan dan alleen niet meer meerdere cellen tegelijk iets in plaatsen, dus als dat je bedoeling was dan moet je het gewoon zo laten natuurlijk!

Succes.
pi_95136838
PAYPROF:
1ALS(EN(OF($AR11="ma";AR11="di";AR11="wo";AR11="do";AR11="vr");OF($AU11="ma";AU11="di";AU11="wo";AU11="do";AU11="vr")
Kan je herschrijven.
Stel in A1:A5 staat ma/di/wo/do/vr
1=IF(SUM(--(AR11:AU11=A1:A5))>0;1;0)
Bevestigen met Ctrl-Shift-Enter
Dat ruimt dan al een heel stuk op ;)
Wel even vertalen!!

Ik denk dat je ook een stuk kunt winnen door dit stukje:
AX11<22;AY11>0;AR11<AU11
buiten de formule haalt.
Maw je test al direct of dit waar is (er wordt 4x op getest!) en zo niet dan FALSE.

En nu doet mn hoofd pijn van je formule :')

Als je hem even herschrijft gewoon zo dat er A1, B1 etc staat dan kan ik het ook toepassen op een eigen sheet, dat werkt gemakkelijker.
pi_95176154
quote:
1s.gif Op woensdag 6 april 2011 17:09 schreef qu63 het volgende:

[..]

Moet dat per se met VB?
Ja, anders kun je maar 3 voorwaarden gebruiken.
pi_95208895
PAYPROF:
Ik heb er nog eens naar gekeken maar om het in een formule te krijgen wordt erg ingewikkeld.
Je kunt daarom beter een functie definieren in visual basic die alle checks voor je doet. Gelukkig is het op vrijdag wel rustig dus heb ik het al voor je gedaan

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117		Function ORT(start, eind)

dagA = Application.WorksheetFunction.Weekday(start, 2)
dagZ = Application.WorksheetFunction.Weekday(eind, 2)
tijdA = Hour(start) + Minute(start) / 60
tijdZ = Hour(eind) + Minute(eind) / 60

'Uitgangspunten
'zaterdag en zondag is hele dag ORT
'doordeweekse tijdgrenzen OD=6:00, ND=22:00
OD = 6
ND = 22

'check of start en einddatum wel goed zijn ingevuld
If start > eind Then
    ORT = "Starttijd later dan eindtijd"
    Exit Function
End If

'langer dan 24 uur werken mag niet
If eind - start > 1 Then
    ORT = "Werktijd langer dan 24 uur"
    Exit Function
End If

Select Case dagA
Case 1 To 4
    If dagZ = dagA Then
        If tijdA <= OD Then
            If tijdZ <= ND Then
                ORT = (OD - tijdA) / 24
            Else
                ORT = (OD - tijdA + tijdZ - ND) / 24
            End If
        Else
            If tijdA >= ND Then
                ORT = (tijdZ - tijdA) / 24
            Else
                If tijdZ > ND Then
                    ORT = (tijdZ - ND) / 24
                Else
                    ORT = 0
                End If
            End If
        End If
    Else
        If tijdA <= OD Then
            If tijdZ <= OD Then
                ORT = (OD - tijdA + 2 + tijdZ) / 24
            Else
                ORT = (OD - tijdA + 24 - ND + OD) / 24
            End If
        Else
            If tijdA >= ND Then
                If tijdZ <= OD Then
                    ORT = (24 - tijdA + tijdZ) / 24
                Else
                    ORT = (24 - tijdA + OD) / 24
                End If
            Else
                If tijdZ <= OD Then
                    ORT = (24 - ND + tijdZ) / 24
                Else
                    ORT = (24 - ND + OD) / 24
                End If
            End If
        End If
    End If

Case 5
    If dagZ = dagA Then
        If tijdA <= OD Then
            If tijdZ <= ND Then
                ORT = (OD - tijdA) / 24
            Else
                ORT = (OD - tijdA + tijdZ - ND) / 24
            End If
        Else
            If tijdA >= ND Then
                ORT = (tijdZ - tijdA) / 24
            Else
                If tijdZ > ND Then
                    ORT = (tijdZ - ND) / 24
                Else
                    ORT = 0
                End If
            End If
        End If
    Else
        If tijdA <= OD Then
            ORT = (OD - tijdA + 24 - ND + tijdZ) / 24
        Else
            If tijdA >= ND Then
                ORT = (24 - tijdA + tijdZ) / 24
            Else
                ORT = (24 - ND + tijdZ) / 24
            End If
        End If
    End If

Case OD
    ORT = eind - start

Case 7
    If dagZ = dagA Then
        ORT = eind - start
    Else
        If tijdZ > OD Then
            ORT = (24 - tijdA + OD) / 24
        Else
            ORT = (24 - tijdA + tijdZ) / 24
        End If
    End If
       
End Select

End Function
Bovenstaande code plak je in een visual basic module. Vervolgens kun je in die spreadsheet de functie aanroepen door in een cel het volgende te typen =ORT(A2,B2) waarbij A2 de cel is met begin datum en tijd en B2 de cel met einddatum en tijd.

Het voordeel is dat je het visual basic deel kunt vergrendelen en aanpassingen in de functie een stuk eenvoudiger zijn. In de spreadsheet zie je vervolgens ook alleen een functie ORT staan en geen hele onoverichtelijke brei van IF's.

[ Bericht 1% gewijzigd door Deetch op 08-04-2011 10:41:58 ]
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
pi_95210749
ok... dank je wel, maar de ORT moet ook nog eens opgesplitst worden per kolom omdat er verschillende percentages/bedragen aanhangen.

ma tm vrij 06-08 uur (aan het einde van een dienst) 3.24 euro
ma tm vrij 18-22 uur (niet perse aan het einde van de dienst) 3.24 euro
ma tm vrij 22-06 uur (niet perse aan het einde van de dienst 6.49 euro
Zaterdag 00-24 uur 6.49 euro
Zondagen 00-24 uur 10.54 euro

overigens krijg ik in de cel als resultaat #naam? te zien, moet ik in VB ook de functies naar het Nederlands vertalen misschien ? en waar je , hebt gebruikt moet ik ; neerzetten heb ik gemerkt, ook dat in VB aanpassen ?
pi_95215633
Ik denk dat je alleen de weekday in het begin moet veranderen in weekdag. De rest van de functies zijn vba functies dus die hoef je niet te vertalen.

In de macro worden alle verschillende tijdblokken apart berekend (even goed zoeken in de code zoeken waar, wat en welke dat is) daar kun je dan ook nog een bedrag aan koppelen.

VB werkt gewoon met , daar hoef je dus geen ; van te maken.

Ik zie overigens wel dat ik het doordeweekse blok van 18-22 ben vergeten. Die kun je op vergelijkbare wijze toevoegen in het deel case 1 to 4 en case 5.

Probeer eerst zelf maar eens de code te doorgronden, dan kun je waarschijnlijk de meeste aanpassingen zelf wel doen.
Supra Groningam Nihil
Postjubilea: 10.000 15.000 20.000 25.000
Sit jou kop in die koei se kont en wag tot die bul jou kom holnaai
Wat niemand je vertelt over de bioindustrie, geen bloed maar feiten
actieve topics nieuwe topics
abonnement Unibet Coolblue Bitvavo
[Excel] Het grote Excel vragen topic #25
Index

» digital corner

» software

Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')