[Excel] Het grote Excel vragen topic #34

Index

» digital corner

» software

actieve topics nieuwe topics
abonnement Unibet Coolblue
pi_119640003
En wat gebeurt er als er 1 leverancier toegevoegd wordt, dan lopen je forumels al in de soep.
pi_119640036
quote:
0s.gif Op maandag 26 november 2012 15:18 schreef draadstalig het volgende:
De kolommen staan als volgt en kan ik niet wisselen:

Huidig Leverancier 1 Leverancier 2 Leverancier 3 etc.
10¤ 20¤ 15¤ 8¤

Indien 8 de goedkoopste is moet er dus Alternatief 3 uitkomen.
Ik ben even uitgegaan van dat de bedragen in cellen A3 tm E3 staan en de tekst in cel A2:E2

Onderstaande functie vraagt de waarde op van de cel in regel 2 van de cel die overeenkomt met de minimumwaarde uit A3:E3

=INDIRECT(ADDRESS(2,MATCH(MIN(A3:E3),A3:E3,0)))

In stapjes:
MATCH(MIN(A3:E3).A3:E3,0) zoeet welke cel uit de range A3:E3 precies (daar is de 0 voor)overeenkomt met de minimale waarde uit die zelfde range.
De uitkomst hiervan is 4, namelijk: de vierde cel in de range A3:E3 bevat de laagste waarde

ADDRESS(2,4)
ADDRESS is een andere manier om eenc elverwijzing op te schrijven.De alternatieven staan in regel twee dus vraag je het adres op van regel 2, kolom 4

de waarde die in deze cel staat (D2) vraag je op middels de functie INDIRECT

In het nederlands:
=INDIRECT(ADRES(2;VERGELIJKEN(MIN(A3:E3);A3:E3;0)))
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 26 november 2012 @ 15:31:07 #178
346939 Janneke141
Green, green grass of home
pi_119640062
Als je leveranciers en bedragen in de cellen A2:B37 staan, dan kun je de volgende formule gebruiken:

=INDEX(A2:B37;VERGELIJKEN(MIN(B2:B37);B2:B37;0);1)
Opinion is the medium between knowledge and ignorance (Plato)
pi_119640827
Koning. Hij werkt :) Thnx
Een hoertje dat aan de belastingadviseur vraagt of ze nog wat kan aftrekken, is nooit grappig...
pi_119641135
quote:
0s.gif Op maandag 26 november 2012 15:57 schreef draadstalig het volgende:
Koning. Hij werkt :) Thnx
welke?
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 26 november 2012 @ 16:08:04 #181
62215 qu63
..de tijd drinkt..
pi_119641159
In Word kan je zogenaamde bouwstenen toevoegen, in Excel is dat niet te vinden. Ik wil namelijk het aantal keer dat het document is opgeslagen laten zien. Hoe doe ik dat nu t makkelijkst? Is het uit te lezen met VBA? Met =CEL() lukt t iig niet..

-edit-

Dit dus :) http://msdn.microsoft.com(...)8v=office.12%29.aspx

Even een UDF-je schrijven :s)

-edit2-

Deze werkt niet.. Iemand een idee waarom niet?
1
2
3		Public Function RN() As Long
value = ActiveWorkbook.BuiltinDocumentProperties(8)
End Function


[ Bericht 35% gewijzigd door qu63 op 26-11-2012 16:21:52 ]
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_119641905
vervang value eens door RN?
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 26 november 2012 @ 16:33:20 #183
62215 qu63
..de tijd drinkt..
pi_119642031
quote:
3s.gif Op maandag 26 november 2012 16:29 schreef Deetch het volgende:
vervang value eens door RN?
Nope..

Het staat in Module1, als ik em in thisworkbook gooi krijg ik een #NAAM-fout als ik =RN() doe..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 26 november 2012 @ 16:44:08 #184
62215 qu63
..de tijd drinkt..
pi_119642464
Hmm, met deze code
1
2
3		Public Function RN(ByVal prop As Integer)
RN = ActiveWorkbook.BuiltinDocumentProperties(prop)
End Function
en =RN(1) in Excel krijg ik wel netjes de titel van m'n document te zien.
Blijkbaar werkt de 8e optie (volgens http://msdn.microsoft.com(...)8v=office.12%29.aspx ) dus niet -O-

Iemand al lid van Excelforum.com? Daar schijnt wel een werkende functie te staan.. http://www.excelforum.com(...)erties-on-sheet.html
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_119642466
Uit de help van de functie:

If Microsoft Excel doesn't define a value for one of the built-in document properties, reading the Value property for that document property causes an error.

Misschien kun je een on error resume next toevoegen want onderstaande macro werkt wel:
1
2
3
4
5
6
7
8
9
10
11
12
13		Sub tst()

On Error Resume Next

rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    Cells(rw, 1).Value = p.Name
    Cells(rw, 2).Value = p.Value
    rw = rw + 1
Next

End Sub
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_119642513
optie 8 is je revision number, maar dan moet je dat wel aanzetten voor dit bestand.
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 26 november 2012 @ 16:50:12 #187
62215 qu63
..de tijd drinkt..
pi_119642686
quote:
3s.gif Op maandag 26 november 2012 16:45 schreef Deetch het volgende:
optie 8 is je revision number, maar dan moet je dat wel aanzetten voor dit bestand.
Waar doe ik dat dan? Het is niet hetzelfde als 'wijzigingen bijhouden' iig..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_119642800
quote:
0s.gif Op maandag 26 november 2012 16:44 schreef qu63 het volgende:
Hmm, met deze code
[ code verwijderd ]

en =RN(1) in Excel krijg ik wel netjes de titel van m'n document te zien.
Blijkbaar werkt de 8e optie (volgens http://msdn.microsoft.com(...)8v=office.12%29.aspx ) dus niet -O-

Iemand al lid van Excelforum.com? Daar schijnt wel een werkende functie te staan.. http://www.excelforum.com(...)erties-on-sheet.html
hmmz nope, wel van ozgrid, misschien staat ie ook daar?
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_119642971
quote:
0s.gif Op maandag 26 november 2012 16:50 schreef qu63 het volgende:

[..]

Waar doe ik dat dan? Het is niet hetzelfde als 'wijzigingen bijhouden' iig..
De property is er blijkbaar nog wel maar hij wordt niet automatisch bijgehouden voor exdcel bestanden. http://support.microsoft.com/kb/214393

Aan dit document heb je misschien ook iets aan?
http://www.google.nl/url?(...)deWb1L9a1o-xr3CNcEnQ

Volgens mij moet je bij het opslaan het revisie nummer zelf updaten via vba en dan kun je hem uitlezen.
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 26 november 2012 @ 16:58:59 #190
62215 qu63
..de tijd drinkt..
pi_119643068
quote:
3s.gif Op maandag 26 november 2012 16:52 schreef Deetch het volgende:

[..]

hmmz nope, wel van ozgrid, misschien staat ie ook daar?
Er staan wel werkende voorbeelden, althans volgens de reacties, maar hij blijft bij mij "0" als output geven..

Alternatieve opties zijn er zeker niet?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 26 november 2012 @ 17:05:51 #191
62215 qu63
..de tijd drinkt..
pi_119643326
quote:
3s.gif Op maandag 26 november 2012 16:56 schreef Deetch het volgende:

[..]

De property is er blijkbaar nog wel maar hij wordt niet automatisch bijgehouden voor exdcel bestanden. http://support.microsoft.com/kb/214393

Aan dit document heb je misschien ook iets aan?
http://www.google.nl/url?(...)deWb1L9a1o-xr3CNcEnQ

Volgens mij moet je bij het opslaan het revisie nummer zelf updaten via vba en dan kun je hem uitlezen.
Heb de code uit dat document gecopy-pasted, maar helaas zonder resultaat..
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
  maandag 26 november 2012 @ 22:16:32 #192
62215 qu63
..de tijd drinkt..
pi_119656918
Workaround gevonden:
1
2
3		Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("A8") = Range("A8") + 1
End Sub
A8 heb ik nu aangepast opgemaakt met "Versie: "#, nu doet t precies wat ik wilde :s)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_119669452
Weet iemand hoe ik een datum kan laten zien op de volgende manier

Za 6 juli

?
Just say hi!
pi_119669856
quote:
0s.gif Op dinsdag 27 november 2012 12:17 schreef Chandler het volgende:
Weet iemand hoe ik een datum kan laten zien op de volgende manier

Za 6 juli

?
Custom format aanmaken "ddd dd mmm"

Dus rechtsklikken op de cel die je wilt aanpassen, "format cells" kiezen, Custom (aangepast) format aanmaken.
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_119670067
Top! dat werkt inderdaad goed, is er ook nog een mogelijkheid om de v van vrijdag als hoofdletter te krijgen?
Just say hi!
pi_119670394
quote:
0s.gif Op dinsdag 27 november 2012 12:41 schreef Chandler het volgende:
Top! dat werkt inderdaad goed, is er ook nog een mogelijkheid om de v van vrijdag als hoofdletter te krijgen?
bij mij doet ie dat automatisch (engelse versie)
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_119670490
Hier niet :( NL versie :P
Just say hi!
pi_119670551
quote:
0s.gif Op maandag 26 november 2012 22:16 schreef qu63 het volgende:
Workaround gevonden:
[ code verwijderd ]

A8 heb ik nu aangepast opgemaakt met "Versie: "#, nu doet t precies wat ik wilde :s)
Onderstaande codes werken in excel 2010 ook (getest een Deetch approved ;-) ). In principe doet jouw workaround hetzelfde alleen hou je het getal bij in de verborgen gegevens van je spreadsheet in plaats van op cel A8.
Als iemand cel A8 verwijderd en dan opslaat wordt het revisienummer gereset naar 1.

1
2
3
4
5
6
7
8
9
10
11		Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'voor het opslaan de revision number met 1 ophogen

ActiveWorkbook.BuiltinDocumentProperties(8).Value = ActiveWorkbook.BuiltinDocumentProperties(8).Value + 1
End Sub

Private Sub Workbook_Open()
'zet revisie nummer op moment van openen in cel A1

ActiveSheet.Range("A1").Value = "Huidige versie: " & ActiveWorkbook.BuiltinDocumentProperties(8).Value
End Sub
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_119670578
quote:
0s.gif Op dinsdag 27 november 2012 12:58 schreef Chandler het volgende:
Hier niet :( NL versie :P
Dan zal hij dat bij een donderdag ook wel niet doen. Niets aan te doen tenzij je zelf een ingewikkelde functie wilt gaan schrijven in vba?
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_119670822
Nah, dan laat ik het lekker zo. Wel raar dat dat per land anders kan zijn ;)
Just say hi!
actieve topics nieuwe topics
abonnement Unibet Coolblue
[Excel] Het grote Excel vragen topic #34
Index

» digital corner

» software

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