DIG Digital Corner
Alles wat je altijd al over computers, hardware, software, internet en elektronische gadgets had willen weten, maar niet op Tweakers.net durft te vragen.
Ik word er gierend gek van. Heb een grafiek (staaf) met daarnaast op de secundaire as twee lijn-diagrammen met een totaal per eenheid (datalabels). Die laatsen worden opeens niet meer weergegeven, ook al zet ik het uit, aan, weer uit, etc. 
Iemand enig idee hoe dat te verhelpen?
Iemand enig idee hoe dat te verhelpen?
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Op de voorgrond zetten ofzo?quote:Op maandag 9 februari 2009 13:21 schreef static het volgende:
Ik word er gierend gek van. Heb een grafiek (staaf) met daarnaast op de secundaire as twee lijn-diagrammen met een totaal per eenheid (datalabels). Die laatsen worden opeens niet meer weergegeven, ook al zet ik het uit, aan, weer uit, etc.
Iemand enig idee hoe dat te verhelpen?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
[i]What would life be like without rhethorical questions?[/i]
Werkte het eerste wel Static? Als ik snel ff je voorbeeld namaak (1 staaf, 2 lijn op sec axis), kan ik gewoon datalabels toevoegen. Ook na opslaan, sluiten en openen staan ze er nog.
ManAtWork:
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
http://www.pcreview.co.uk/forums/thread-959269.phpquote:The EDate function is part of the Analysis Tool Pak add-in. To use it in
VBA, you need to first load the "Analysis Tool Pak - VBA" add-in in Excel.
Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item. Once you do this, you can access the
function directly. E.g.,
Dim Res
Res = edate(Now, 3)
Debug.Print Res
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
quote:Op maandag 9 februari 2009 12:49 schreef DaFan het volgende:
Weet je het Engelse equivalent van deze functie, ik kan hem niet vinden? Dan kan ik er wel wat mee.
quote:You can use the EDATE function to determine a date a number of months in the past or future. This function is part of the Analysis ToolPak. (This tip works with Microsoft Excel 97, Excel 2000, Excel 2002, Excel 2003, and Excel 2007.)
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.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Je was dus even iets sneller. En Fok! had het te druk om mijn post te plaatsen.quote:Op maandag 9 februari 2009 13:50 schreef DaFan het volgende:
ManAtWork:
[..]
http://www.pcreview.co.uk/forums/thread-959269.php
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
Ik ga eens puzzelen. Alvast mijn dank.
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.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Weet iemand al wat? Ik kom er echt niet uit :xquote:Op vrijdag 30 januari 2009 15:53 schreef Jaheur het volgende:
Ik heb dan een hele lastige:
Ik heb een range van A1 tot G10 (voorbeeld) in de kolommen kunnen X voorkomen, maar sommige cellen zijn leeg, maar soms kunnen er dubbelen X-en voorkomen. Hoe kan ik dit vereenvoudigen dus bijvoorbeeld
A1:A10 is gelijk aan D1:D10 dus de hele kolom van D mag verwijderd worden, maar deze vergelijking is wel random want A kan net zo goed B zijn. De vergelijking moet wel over de hele kolom gaan.
Dus je wil A1:A10 vergelijken met alle kolommen 1:10, en als ze exact identiek zijn (zeg 1 en 2 staan een X in, rest niet) dan kan de 2e kolom weg?
Het werkte allemaal prima, totdat ik een nieuew range data toevoegde. De vorige labels staan er allemaal behalve de nieuwe (heb er twee toegevoegd).
Yvonne riep ergens: [b]Static is gewoon Static, je leeft met hem of niet.
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Geen verborgen agenda's, trouw, grote muil, lief hartje, bang voor bloed, scheld FA's graag uit voor lul.[/b]
Uhm als bijvoorbeeld bij A1:A10 hetzelfde voorkomt als bij G1:G10 dan mag de gehele kolom G weg. Deze vergelijking en deleten moet doorgaan totdat er een lege kolom verschijnt.quote:Op maandag 9 februari 2009 14:39 schreef DaFan het volgende:
Dus je wil A1:A10 vergelijken met alle kolommen 1:10, en als ze exact identiek zijn (zeg 1 en 2 staan een X in, rest niet) dan kan de 2e kolom weg?
Dus in een kolom is A gelijk aan D en E en C gelijk aan G dan moet D, E en G verwijderd worden.
Een kolom verwijderen lukt me nog wel, maar de vergelijking maken is lastig.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | LastColumn = Range("IV1").End(xlToLeft).Column LastRow = Range("A65536").End(xlUp).Row j = 1 For i = 1 To LastColumn For k = i + 1 To LastColumn If Cells(j, i).Value = Cells(j, k).Value Then For j = 1 To LastRow If j = LastRow Then Sheets("Sheet1").Columns(k).EntireColumn.Delete End If Next j End If Next k Next i End Sub |
Deze werkt ook voor grotere ranges (zeg A1:Z1000), enige 2 problemen zijn:
a) Er wordt vanuit gegaan dat Kolom A is gevuld in A1 én in de laatste cel van de kolom.
b) Er wordt vanuit gegaan dat Kolom Z (in de grote range) gevuld is in Z1.
Dit kan ik aanpassen door:
a) De range vast te maken (dus altijd A1:G10)
b) De gebruiker te vragen om input te geven aan het begin wat de laatste kolom en de laatste rij is.
Dit werkt dus wel voor een macro in Excel. Helaas krijg ik het in Word niet voor elkaar.quote:Op maandag 9 februari 2009 13:50 schreef DaFan het volgende:
ManAtWork:
[..]
http://www.pcreview.co.uk/forums/thread-959269.php
Edate is de Engelse equivalent van Zelfde.dag en kan dus op deze manier in VBA worden toegepast.
Bovenstaande krijg ik niet gedaan in VBA van Word.quote:Then, open your VBA project, go to the Tools menu, choose Reference, and put
a check next to ATBVBAEN.xls item.
(Lijkt me logisch daar .xls Excel betreft,...)
Op de Knowledge Base van MS zie ik dat edate ook alleen betrekking heeft op Excel.
Iemand een alternatief?
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.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
Kan je niet door middel van Month(<datum >) de maand eruit trekken en daar het aantal maanden er bovenop tellen?
Denk dat ik het daar inderdaad in moet gaan zoeken. Alleen zal ik ook te maken krijgen met jaren.quote:Op maandag 9 februari 2009 18:15 schreef DaFan het volgende:
Kan je niet door middel van Month(<datum >) de maand eruit trekken en daar het aantal maanden er bovenop tellen?
Morgen google maar weer opstarten.
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.
Niet storen, ik ben al gestoord genoeg,...
Vrouwen zijn om van te houden, niet om te begrijpen.
ik ben bezig een berekeningsformulier (frmE) te maken en nu wil ik een listbox vullen met vaste waarden (dus in de code) zonder ergens deze waarden in een excelsheet te moeten stoppen.
de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"
In het formulier heet de listbox lstE
Ik heb het al met de volgende code geprobeerd:
Als ik dan met een macroknop de volgende code uitvoer
krijg ik op de regel "Load frmE" de foutmelding
"Runtime error 9", subscript out of range"
wat doe ik fout?
de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"
In het formulier heet de listbox lstE
Ik heb het al met de volgende code geprobeerd:
| 1 2 3 4 5 6 7 8 9 10 | Elist(0) = "nooit" Elist(1) = "zelden" Elist(2) = "soms" Elist(3) = "vaak" Me.lstE.List = Elist end sub |
Als ik dan met een macroknop de volgende code uitvoer
| 1 2 | frmE.show |
krijg ik op de regel "Load frmE" de foutmelding
"Runtime error 9", subscript out of range"
wat doe ik fout?
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
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
moet het niet dit zijn:quote:Op dinsdag 10 februari 2009 13:32 schreef Deetch het volgende:
ik ben bezig een berekeningsformulier (frmE) te maken en nu wil ik een listbox vullen met vaste waarden (dus in de code) zonder ergens deze waarden in een excelsheet te moeten stoppen.
de lijst bestaat uit vier tekstregels:
"nooit"
"zelden"
"soms"
"vaak"
In het formulier heet de listbox lstE
Ik heb het al met de volgende code geprobeerd:
[ code verwijderd ]
Als ik dan met een macroknop de volgende code uitvoer
[ code verwijderd ]
krijg ik de foutmelding
"Runtime error 9", subscript out of range
wat doe ik fout?
lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")
??
Er is afaik geen direct statement (zoals in Excel wel), dus gebruik het volgende:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Dim LegeCellen as Integer LegeCellen = 0 For each c in Range("A1:A10") If c.Value = "" Then LegeCellen = LegeCellen + 1 End If Next MsgBox LegeCellen End Sub |
inderdaadquote:Op dinsdag 10 februari 2009 13:35 schreef Metal_Jag het volgende:
[..]
moet het niet dit zijn:
lstE.AddItem ("Nooit")
.
.
.
lstE.Additem("Vaak")
??
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
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
Ja zoiets doe ik ook, maar ik dacht misschien kan het handiger. Thanx.quote:Op dinsdag 10 februari 2009 13:35 schreef DaFan het volgende:
Er is afaik geen direct statement (zoals in Excel wel), dus gebruik het volgende:
[ code verwijderd ]
Nu nog een 2e vraag:
Ik heb 140 (!) knopjes die allemaal hetzelfde moeten doen, behalve dat er gegevens in de buurt van hun eigen positie geplaatst moet worden. Nu heb ik dit:
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Set positie = Range("E2") UserForm1.Show End Sub Private Sub CommandButton2_Click() Set positie = Range("E3") UserForm1.Show End Sub Private Sub CommandButton3_Click() Set positie = Range("E4") UserForm1.Show End Sub ENZ ENZ ENZ x 140 |
Kan dit niet handiger? Want nu moet ik 140x deze procedure kopieren en op één plekje wijzigen...
[ Bericht 2% gewijzigd door Metal_Jag op 10-02-2009 15:14:39 ]
Ik zit te denken of er geen procedure bestaat om achter de naam van het object te komen die de macro aanroept maar ik kan zo niks vinden. Dan kan je mbv die procedure het nummer vinden van het object en dan een offset toen tov E2.
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Ik heb wel dit gevonden:quote:Op dinsdag 10 februari 2009 15:24 schreef DaFan het volgende:
Ik zit te denken of er geen procedure bestaat om achter de naam van het object te komen die de macro aanroept maar ik kan zo niks vinden. Dan kan je mbv die procedure het nummer vinden van het object en dan een offset toen tov E2.
Elke Sub die je nu hebt roept dan het 'hoofdsub' op, dus die hoef je dan maar 1x te schrijven + 140x de hoofdsub aanroepen.
Object.Top en Object.Left
geeft de positie van het object. Maar dan kom ik er nog niet uit. Eerst moet je nog weten welk object de opdracht geeft en vervolgens de positie linken aan een cel...
En tout cas. Ik heb 140x een procedure gemaakt met hulp van de "vervangen" optie.
Als je nog suggesties hebt, dan wil ik het nog wel weten voor een volgende keer.
Pixelsquote:Op woensdag 11 februari 2009 12:32 schreef DaFan het volgende:
Op welke manier komt Top en Left terug dan? Pixels of cellen?
Kan je niks mee dusquote:
Ik zou het echt niet weten, lijkt me een goede vraag voor de vrienden van MrExcel tho.
Een vraag,
Kan ik in Word een verwijzing maken naar een Excel-bestand?
Ik moet een enquete maken en ik wil de gegevens die ik ingeef in Word direct word omgezet in Excel om daarmee een grafiek maken.
Hoe kan ik hieraan aan beginnen?
Kan ik in Word een verwijzing maken naar een Excel-bestand?
Ik moet een enquete maken en ik wil de gegevens die ik ingeef in Word direct word omgezet in Excel om daarmee een grafiek maken.
Hoe kan ik hieraan aan beginnen?
Object toevoegen via toevoegen. Volgens mij kan je dan gewoon in een werkblad werken in Word.quote:Op zondag 15 februari 2009 11:11 schreef devuser_250 het volgende:
Een vraag,
Kan ik in Word een verwijzing maken naar een Excel-bestand?
Ik moet een enquete maken en ik wil de gegevens die ik ingeef in Word direct word omgezet in Excel om daarmee een grafiek maken.
Hoe kan ik hieraan aan beginnen?
Ik heb een breakevengrafiek gemaakt, deze klopt verder helemaal, alleen beginnen mijn lijnen pas op X=0,5.
Bij mijn waarde X=0 heb ik een negatieve waarde aangezien ik wel kosten heb. In mijn grafiek staat echter pas op X = 0,5 die negatieve waarde. Dit geeft een beetje een verkeerd beeld, dus misschien kan iemand mij helpen. Ik wil mijn grafiek beginnen bij X = 0,0 maar ik kan niet vinden waar ik dat moet doen.. Weet iemand dit?
Alvast dank!
Bij mijn waarde X=0 heb ik een negatieve waarde aangezien ik wel kosten heb. In mijn grafiek staat echter pas op X = 0,5 die negatieve waarde. Dit geeft een beetje een verkeerd beeld, dus misschien kan iemand mij helpen. Ik wil mijn grafiek beginnen bij X = 0,0 maar ik kan niet vinden waar ik dat moet doen.. Weet iemand dit?
Alvast dank!
Welke data en welke grafiek gebruik je? misschien kun je een screenshotje plaatsen?
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
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
Er staat me iets van bij met "Y-axis crosses at 0" (of iets dergelijks) dat je bij je grafiekopties aan of uit kan zetten. Dit bepaalt of de eerste waarde bij X = 0 staat of tussen X = 0 en X = 1 in ( X = 0.5 dus).
Edit: Kan het zelf niet vinden. Probeer ff beetje te kloten met de X-Axis options.
[ Bericht 18% gewijzigd door DaFan op 16-02-2009 18:08:40 ]
Edit: Kan het zelf niet vinden. Probeer ff beetje te kloten met de X-Axis options.
[ Bericht 18% gewijzigd door DaFan op 16-02-2009 18:08:40 ]
Dat heb ik al geprobeerd en helaas zonder effect. Ik heb nu mijn instellingen veranderd, en nu begint de lijn bij X = 1 terwijl ik X = 0 wil hebben..quote:Op maandag 16 februari 2009 17:10 schreef DaFan het volgende:
Er staat me iets van bij met "Y-axis crosses at 0" (of iets dergelijks) dat je bij je grafiekopties aan of uit kan zetten. Dit bepaalt of de eerste waarde bij X = 0 staat of tussen X = 0 en X = 1 in ( X = 0.5 dus).
Op dit moment ziet mijn grafiekje er zo uit:
Je moet er wel een XY grafiek van maken en geen lijn-grafiek.
Hoe ziet je tabel met data eruit? Heb je een kolom met 0 tm 8 en daarachter 3 kolommen met kosten opbrengsten en winst?
Hoe ziet je tabel met data eruit? Heb je een kolom met 0 tm 8 en daarachter 3 kolommen met kosten opbrengsten en winst?
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
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
Dit is een XY grafiek, ik heb alleen de eigenschappen van het "uiterlijk" aangepast zodat er een lijn in zit. Ik heb een kolom 0 - 8 geprobeerd met daarachter de gegevens, ik heb het geprobeerd met 0 - 8 met daaronder de gegevens.. Ik ben op een gegeven moment gewoon maar gaan proberen, omdat ik het maar niet voor elkaar kreeg. Schijnbaar pakt ie de eerste van de tabel en noemt hij dat "1", ook al staat er in de tabel dat dat nul moet zijnquote:Op maandag 16 februari 2009 21:28 schreef Deetch het volgende:
Je moet er wel een XY grafiek van maken en geen lijn-grafiek.
Hoe ziet je tabel met data eruit? Heb je een kolom met 0 tm 8 en daarachter 3 kolommen met kosten opbrengsten en winst?
raar, in mijn excel doet ie het gewoon goed.
1 kolom met 0 tm 8 dan de andere drie kolommen erachter.
alle vier kolommen selecteren en een XY grafiek van maken en klaar ben je
1 kolom met 0 tm 8 dan de andere drie kolommen erachter.
alle vier kolommen selecteren en een XY grafiek van maken 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
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
Ik vind het echt vreemd, want bij mij doet ie dat dus nietquote:Op maandag 16 februari 2009 21:52 schreef Deetch het volgende:
raar, in mijn excel doet ie het gewoon goed.
1 kolom met 0 tm 8 dan de andere drie kolommen erachter.
alle vier kolommen selecteren en een XY grafiek van maken en klaar ben je
Ik heb nu wel de lijnen op de X-as gekregen, maar er staat nog steeds 1 onder en daar moet natuurlijk 0 staan.. *zucht*
raar hoor, stuur de sheet eens naar mijn email adres, zal ik er morgen even naar kijken
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
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
Ik heb het inmiddels voor elkaar gekregen (eindelijk!), ik heb (als ik het goed onthouden heb), nogmaals een grafiek gemaakt en daarbij op de achtergrond rechts geklikt, brongegevens bewerken (ik weet niet of dit echt zo heet, ik heb hier de Engelse Excel) en vervolgens nogmaals apart de 0 tm 8 geselecteerd, ook al had ik deze al geselecteerd bij het maken van mijn grafiek.
Verder heb ik niks veranderd dus schijnbaar was dit het probleem
Thanks anyway!
Verder heb ik niks veranderd dus schijnbaar was dit het probleem
Thanks anyway!
OK, af en toe heeft office rare kuren 
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
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
Hallo!
Sinds kort mag ik me gaan bezighouden met bij bijhouden van een overzicht van een groep vrijwilligers. Onder meer op welke dagen ze hebben gewerkt, het aantal keren dat ze actief zijn geweest etc etc.
Ik heb er bijbehorend bestand bij gekregen, nu weet ik wel iets over Excel (van macro's en VBA heb ik geen kaas gegeten helaas) en ik heb zo'n vermoeden dat dit handiger kan.
Het bestand als voorbeeld: http://www.worksheet.nl/forumexcel/attachment.php?attachmentid=12480&d=1234976558
Het zou bijvoorbeeld fijn zijn als er iets anders bedacht zou kunnen worden op het inkloppen van de 1tjes en dat de gegevens bij de totalen automatisch worden overgenomen en op hoog-laag gesorteerd.
Iemand die me wil helpen?
Thanks!
ps: ik heb er even fictieve namen van gemaakt.
[ Bericht 0% gewijzigd door MB88 op 18-02-2009 18:11:16 (typo) ]
Sinds kort mag ik me gaan bezighouden met bij bijhouden van een overzicht van een groep vrijwilligers. Onder meer op welke dagen ze hebben gewerkt, het aantal keren dat ze actief zijn geweest etc etc.
Ik heb er bijbehorend bestand bij gekregen, nu weet ik wel iets over Excel (van macro's en VBA heb ik geen kaas gegeten helaas) en ik heb zo'n vermoeden dat dit handiger kan.
Het bestand als voorbeeld: http://www.worksheet.nl/forumexcel/attachment.php?attachmentid=12480&d=1234976558
Het zou bijvoorbeeld fijn zijn als er iets anders bedacht zou kunnen worden op het inkloppen van de 1tjes en dat de gegevens bij de totalen automatisch worden overgenomen en op hoog-laag gesorteerd.
Iemand die me wil helpen?
Thanks!
ps: ik heb er even fictieve namen van gemaakt.
[ Bericht 0% gewijzigd door MB88 op 18-02-2009 18:11:16 (typo) ]
2011: Groezrock - Pinkpop - Hurricane - Summerfestival - Exit - Parade - Dour - Rock Werchter - Sziget - Lowlands - Laundry Day - Iceland Airwaves
Hoppa!! Lekker zomertje!
Hoppa!! Lekker zomertje!
Ik zie niet hoe dit sneller kan. Je zal per week toch moeten bepalen wie er heeft gewerkt en dat inkloppen. De totalen worden op zo'n manier automatisch bepaald, ziet er verder prima uit.
Het sorteren op totaal is ook een kwestie van 3x klikken.
Het sorteren op totaal is ook een kwestie van 3x klikken.
Wat doe ik verkeerd met mijn macro, als ik het volgende invul:
ActiveCell.FormulaR1C1 = "=SUM(B" & X & ")":
X is een variabele cijfer.
Krijg ik onderstaande als resultaat en dan werkt het niet, moet namelijk zonder ' ' zijn
=SOM('B4')
ActiveCell.FormulaR1C1 = "=SUM(B" & X & ")":
X is een variabele cijfer.
Krijg ik onderstaande als resultaat en dan werkt het niet, moet namelijk zonder ' ' zijn
=SOM('B4')
Waarom een som van 1 cel?
Formule R1C1 betekend dat je de celverwijzing ook in relatieve rij en kolom posities moet aangeven. Als je ipv formulaR1C1 gewoon formula gebruikt zou het moeten werken.
[ Bericht 43% gewijzigd door Deetch op 19-02-2009 11:32:00 ]
Formule R1C1 betekend dat je de celverwijzing ook in relatieve rij en kolom posities moet aangeven. Als je ipv formulaR1C1 gewoon formula gebruikt zou het moeten werken.
[ Bericht 43% gewijzigd door Deetch op 19-02-2009 11:32:00 ]
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
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
Ik kom niet uit een stukje code. In de range S38:CH38 staan celverwijzingen (dus gewoon d4 of g8). Deze lees ik in in arrLoc. Waarom kan ik met "for...each" elk element uit deze array halen, maar niet met "for i = Lbound(arrLoc) to Ubound(arrLoc) .... next"?
Vervolgens lees ik een tekstbestand in met daarin data, gescheiden door "|". Deze split ik, zodat ik een array krijg. Nu wil ik deze data plaatsen in de cel die ik uit arrLoc haal. Dit zou toch eenvoudig moeten kunnen met een for...next of for each .... next loop? Waarom werkt het niet? Ergens heb ik het idee dat arrLoc een 2D-array is en dat ik gewoon niet snap hoe ik daar een element uit haal.
Wie weet raad?
Vervolgens lees ik een tekstbestand in met daarin data, gescheiden door "|". Deze split ik, zodat ik een array krijg. Nu wil ik deze data plaatsen in de cel die ik uit arrLoc haal. Dit zou toch eenvoudig moeten kunnen met een for...next of for each .... next loop? Waarom werkt het niet? Ergens heb ik het idee dat arrLoc een 2D-array is en dat ik gewoon niet snap hoe ik daar een element uit haal.
Wie weet raad?
| 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 | Dim inhoud As Variant Dim splitinhoud As Variant Dim location Dim arrLoc As Variant Dim Sep Dim i As Integer Close #1 arrLoc = range("S38:CH38") location = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt") Sep = "|" Open location For Input Access Read As #1 Line Input #1, inhoud splitinhoud = Split(inhoud, Sep) For Each i In arrLoc MsgBox i & vbCrLf & splitinhoud  & " in " & arrLoc(1, i)range(arrLoc ).Value = splitinhoud(i + 1)Next Close #1 End Sub |
zou je arrLoc niet beter als string dimmen?
probeer eens met next i ipv next in regel 22
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
probeer eens met next i ipv next in regel 22
[ Bericht 6% gewijzigd door Deetch op 19-02-2009 15:37:09 ]
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
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
klinkt niet echt als een excel vraag, probeer eens een eigen topic te starten in dig met een eigen duidelijke titel.quote:Op donderdag 19 februari 2009 14:54 schreef Blik het volgende:
Zijn er mensen hier bekend met Think-Cell of ASAP Utilities?
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
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
