abonnement Unibet Coolblue Bitvavo
  dinsdag 26 april 2011 @ 21:39:23 #1
62215 qu63
..de tijd drinkt..
pi_96016367


Aangezien er vaker losse topics langskomen, leek het ons handig een centraal Excel topic te maken waar men hun vragen / antwoorden kwijt kan.

Dus heb je vragen, kom je ergens niet uit, hoe maak ik nu precies die macro?

Stel dan hier je vraag!!!

Tip 1: De help functie van excel of visual basic voor excel kan je echt een eind op weg helpen ! (F1)
Tip 2: Als je een vraag stelt, zet er dan bij welke versie je hebt en op welke taal hij ingesteld staat!
Tip 3: Zet macrocode even tussen [ code ] tags
Tip 4: Zelf de formules in verschillende talen vertalen:
http://dolf.trieschnigg.nl/excel/excel.html
http://branders.name/files/Excel-Function-Reference.pdf

Alle vorige topics zijn hier terug te vinden.

Nieuw topic? Haal de OP bij de wiki ;)
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_96016597
En ja hij stond er al bij ;)
pi_96033772
jah hoor werkt als een tiet!
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
  donderdag 28 april 2011 @ 00:12:40 #4
38651 yozd
FR1908 Vakkie R
pi_96074114
Ik heb een excel sheet (sheet 2) met in rij 1 allemaal jaartallen (voor de X-as) en op rij 2 t/m 5 gegevens voor in een grafiek A. Elk van die rijen vormt een aparte reeks.

Op rij 6 tot en met 9 heb ik weer 4 reeksen, nu voor grafiek B (X-as blijft altijd rij 1). Via deze macro krijg ik de goede grafieken:

1
2
3
4
5
6
7
8
9
10
Sub Macro1()

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Sheet2'!$A$2:$R$5,'Sheet2'!$A$1:$R$1")
    ActiveChart.ChartType = xlLine

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Sheet2'!$A$6:$R$9,'Sheet2'!$A$1:$R$1")
    ActiveChart.ChartType = xlLine
End Sub

Mijn data loopt echter door op heel veel rijen, dus ik wil er een loop van maken. Dit werkt echter niet:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro2()
'
Dim rij1 As Integer
Dim rij2 As Integer

rij1 = 2
rij2 = 5

For i = 1 To 999

    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Sheet2'!$A$rij1:$R$rij2,'Sheet2'!$A$1:$R$1")
    ActiveChart.ChartType = xlLine

rij1 = rij1 + 4
rij2 = rij2 + 4

Next i

End Sub

Heeft iemand enig idee waarom niet?

O ja, ik zou ook graag steeds de 2e rij data van elke grafiek (voor grafiek A rij 3, grafiek B rij 7 etc.) ipv een lijn alleen maar punten zien. Kan dat ook mbv de macro?
"On a good day, when I run, the voices in my head get quieter until it’s just me, my breath and my feet on the sand (Dexter, E5x09)."
pi_96080141
Je probeert nu in een Range een integer te stoppen (rij1, rij2), maar dat gaat niet: hier gaan alleen strings in. Om een variabele Range aan te roepen zul je dus iets als

ActiveChart.SetSourceData Source:=Range("'Sheet2'!$A$" & rij1 & ":$R$" & rij2 & ",'Sheet2'!$A$1:$R$1")
pi_96080283
vervang Range("'Sheet2'!$A$rij1:$R$rij2,'Sheet2'!$A$1:$R$1")
door Range("'Sheet2'!$A$" & rij1 & ":$R$" & rij2 & ",'Sheet2'!$A$1:$R$1")

spuit 11 }:|
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_96113346
Hey,

Ik wil een van aantal geluidsniveaus het gemiddelde berekenen. Dit met de volgende formule:

1=10*LOG((10^(GELUIDSNIVEAU1/10)+10^(GELUIDSNIVEAU2/10)+10^(GELUIDSNIVEAU.../10))/Aantal geluidsniveaus)

Ik heb hier een hele lange lijst van, maar het lukt me niet om deze makkelijk in een formule te krijgen.

Deze formule heb ik geprobeert:

1=10*LOG((10^(B1:B20/10))/20)

Maar zo werkt het helaas niet. Iemand suggesties?
pi_96124303
SOM eromheen en bevestigen met Ctrl-Shift-Enter
  vrijdag 29 april 2011 @ 09:09:12 #9
61284 Folkwin
Muisje op het kruisje!
pi_96125703
Ik ben bezig met een soort logboek in Excel.

Is het mogelijk om het volgende te creeren:
dat degene die de actie logt automatisch leeg veld krijgt met nieuwe opvolgende lognummer aan de bovenkant van de sheet?
"I don't know things I'm supposed to know, but I do know things I'm not supposed to know"
pi_96144410
Ik heb een grote lijst in Excel 2007 (NL) waarin veel kolommen staan. Graag wil ik alternerend een kleurtje geven aan bepaalde cellen. Ik kan geen screenshot maken want ik kan niet uploaden hier.

1
2
3
4
5
6
7
8
9
22 A B
22 C D
23 E F
23 G H
24 I J
24 K L
25 M N
25 O P
25 Q R
Ik wil hier de cellen met de getallen alternerend een kleur geven. Bijvoorbeeld 22 rood, 23 geel, 24 rood en 25 geel. Iemand een idee?
  vrijdag 29 april 2011 @ 16:33:02 #11
15967 Frollo
You know I am a righteous man
pi_96144816
quote:
0s.gif Op vrijdag 29 april 2011 16:23 schreef geelkuikentje het volgende:
Ik heb een grote lijst in Excel 2007 (NL) waarin veel kolommen staan. Graag wil ik alternerend een kleurtje geven aan bepaalde cellen. Ik kan geen screenshot maken want ik kan niet uploaden hier.
[ code verwijderd ]

Ik wil hier de cellen met de getallen alternerend een kleur geven. Bijvoorbeeld 22 rood, 23 geel, 24 rood en 25 geel. Iemand een idee?
Dat kan gewoon standaard in Excel 2007, ik heb deze versie alleen niet bij de hand. Maar zoek maar eens bij voorwaardelijke opmaak en zo.
pi_96158681
Hey all,

Ben aan het stoeien met een macro (newb), maar ik kom er niet uit. Wie kan mij vertellen hoe ik een macro maak die de rij waar ik in sta een kleur geeft.

Voorbeeld:
Ik heb een checkbox/button in A10, en wil zodra ik deze aanklik dat a1 t/m a10 een kleurtje krijg.

Kom er maar niet uit. thanks
pi_96228309
quote:
0s.gif Op vrijdag 29 april 2011 07:06 schreef DaFan het volgende:
SOM eromheen en bevestigen met Ctrl-Shift-Enter
Hoe bedoel je?

Ik heb dit geprobeerd:

1=10*LOG((10^(SUM(B1:B20)/10))/20)

&

1=SUM(10*LOG((10^(B1:B20/10))/20))

Beide levert niks op.

Het is dus niet de bedoeling dat er normaal wordt opgeteld, maar volgens deze formule:

1=10*LOG((10^(GELUIDSNIVEAU1/10)+10^(GELUIDSNIVEAU2/10)+10^(GELUIDSNIVEAU.../10))/Aantal geluidsniveaus)
  zondag 1 mei 2011 @ 23:32:26 #14
62215 qu63
..de tijd drinkt..
pi_96229755
quote:
0s.gif Op zondag 1 mei 2011 23:05 schreef Zalgo het volgende:

[..]

Hoe bedoel je?

Ik heb dit geprobeerd:
[ code verwijderd ]

&
[ code verwijderd ]

Beide levert niks op.

Het is dus niet de bedoeling dat er normaal wordt opgeteld, maar volgens deze formule:
[ code verwijderd ]

Heb je bij die 2e wel bevestigd met ctrl+shift+enter ipv enter?
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_96258143
quote:
0s.gif Op zondag 1 mei 2011 23:05 schreef Zalgo het volgende:

[..]

Hoe bedoel je?

Ik heb dit geprobeerd:
[ code verwijderd ]

&
[ code verwijderd ]

Beide levert niks op.

Het is dus niet de bedoeling dat er normaal wordt opgeteld, maar volgens deze formule:
[ code verwijderd ]

Sorry je hebt gelijk. Ik zat op mn telefoon te kijken en daar zag ik maar een piepklein deel van je formule.

Ik kom e rook niet helemaal uit maar dat komt meer omdat ik de formule niet begreep.
Wat is het gemiddelde van 1,2,3,4,5,6,7,8,9,10 als we het over geluidsniveau hebben?
Volgens mij dan 6,41 ?

Dan zou het dit moeten worden:
=10*LOG(SUM(10^(B1:B20/10))/20)

of fraaier nog denk ik:
=10*LOG(SUM(10^(B1:B20/10))/ROWS(B1:B20)

Bevestigen met Ctrl-Shift-Enter.
pi_96266221
quote:
0s.gif Op vrijdag 29 april 2011 21:58 schreef Regenbui het volgende:
Hey all,

Ben aan het stoeien met een macro (newb), maar ik kom er niet uit. Wie kan mij vertellen hoe ik een macro maak die de rij waar ik in sta een kleur geeft.

Voorbeeld:
Ik heb een checkbox/button in A10, en wil zodra ik deze aanklik dat a1 t/m a10 een kleurtje krijg.

Kom er maar niet uit. thanks
1
2
3
4
5
6
7
8
9
Private Sub CheckBox1_Click()

If CheckBox1.Value = True Then
    Range("A1:A10").Interior.ColorIndex = 3
Else
    Range("A1:A10").Interior.ColorIndex = xlNone
End If

End Sub
pi_96291329
quote:
7s.gif Op maandag 2 mei 2011 17:53 schreef DaFan het volgende:

[..]

Sorry je hebt gelijk. Ik zat op mn telefoon te kijken en daar zag ik maar een piepklein deel van je formule.

Ik kom e rook niet helemaal uit maar dat komt meer omdat ik de formule niet begreep.
Wat is het gemiddelde van 1,2,3,4,5,6,7,8,9,10 als we het over geluidsniveau hebben?
Volgens mij dan 6,41 ?

Dan zou het dit moeten worden:
=10*LOG(SUM(10^(B1:B20/10))/20)

of fraaier nog denk ik:
=10*LOG(SUM(10^(B1:B20/10))/ROWS(B1:B20)

Bevestigen met Ctrl-Shift-Enter.
Hm. Ik heb het op een andere manier opgelost. Gewoon in gedeeltes gedaan. :)

Dus eerst alle resultaten 10^(resultaat/10)

Daarna de 10log van deze opgeteld gepakt. :) Ik zal jouw manier nog eens proberen, dat zou nl. wat compacter zijn. :P

In ieder geval; bedankt. :)
pi_96331818
Wat is de makkelijkste manier om formules te beveiligen in Excel2007-NL? Ik heb een bestand met heel veel kolommen met formules, en ik wil niet dat mensen daar per ongeluk of bewust waardes invullen.
Maar het moet wel makkelijk uit te zetten zijn, als er dingen veranderd moeten worden (dus niet per cel ofzo) :P
Kan dat in 1 keer op totaalniveau?
pi_96333771
Oh, en nog een wat lastigere vraag. Ik heb de volgende matrix:

1
2
3
Onderdeel 1     waarde 1      waarde 2     waarde 3
Onderdeel 2     waarde 1      waarde 2     waarde 3 
Onderdeel 3     waarde 1      waarde 2     waarde 3 
Die wil ik (automatisch) converteren naar:
1
2
3
4
5
6
Onderdeel 1   waarde 1
Onderdeel 1   waarde 2
Onderdeel 1   waarde 3
Onderdeel 2   waarde 1
Onderdeel 2   waarde 2
Onderdeel 2   waarde 3
Het aantal kolommen (waardes) kan variëren, om het nog leuker te maken :')
En het gaat om nogal wat gegevens :P Ik hoop dat iemand er een handigheidje voor heeft, ik kan het zo even niet bedenken.
pi_96340038
quote:
0s.gif Op woensdag 4 mei 2011 10:18 schreef Piles het volgende:
Wat is de makkelijkste manier om formules te beveiligen in Excel2007-NL? Ik heb een bestand met heel veel kolommen met formules, en ik wil niet dat mensen daar per ongeluk of bewust waardes invullen.
Maar het moet wel makkelijk uit te zetten zijn, als er dingen veranderd moeten worden (dus niet per cel ofzo) :P
Kan dat in 1 keer op totaalniveau?
In het menu "Review" heb je de opties "Protect Sheet" en "Protect workbook", daarin kun je aangeven wat er wel en niet mag.
Vervolgens kies je de opties "allow users to edit ranges". Daar kies je het gebied waar gebruikers wel dingen mogen veranderen en kies je protect sheet. Als het goed is is je geselecteerde range dan vrijgegeven om te bewerken en is de rest geblokkeerd met een password.

[ Bericht 9% gewijzigd door Deetch op 04-05-2011 14:01:19 ]
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_96340189
quote:
0s.gif Op woensdag 4 mei 2011 13:45 schreef Deetch het volgende:

[..]

In het menu "Review" heb je de opties "Protect Sheet" en "Protect workbook", daarin kun je aangeven wat er wel en niet mag. Vervolgens kun je gebruikers bepaalde cellen wel laten bewerken (de invulcellen) en de rest dan dus niet. Let op deze werkt met een password dus die moet je niet kwijtraken.
Gewoon geen wachtwoord invullen is goed genoeg :P Jammer dat je wel de uitzondering aan moet geven. Ik heb liever dat men formules niet mag bewerken/verwijderen en de rest wel, maar dat kan dus niet automatisch. Bedankt iig :)
pi_96340790
quote:
0s.gif Op woensdag 4 mei 2011 13:48 schreef Piles het volgende:

[..]

Gewoon geen wachtwoord invullen is goed genoeg :P Jammer dat je wel de uitzondering aan moet geven. Ik heb liever dat men formules niet mag bewerken/verwijderen en de rest wel, maar dat kan dus niet automatisch. Bedankt iig :)
zonder password kan wel iedereen die "beveiliging" uitzetten. Maar ik denk dat jouw gebruikers allemaal ID-10T zijn?
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_96340830
quote:
0s.gif Op woensdag 4 mei 2011 14:02 schreef Deetch het volgende:

[..]

zonder password kan wel iedereen die "beveiliging" uitzetten. Maar ik denk dat jouw gebruikers allemaal ID-10T zijn?
:Y :')
Vandaar de beveiliging, voor ze m'n formules weer slopen :P
Heb je toevallig ook nog een oplossing voor mijn 2e vraag? O-)
pi_96342671
quote:
0s.gif Op woensdag 4 mei 2011 14:03 schreef Piles het volgende:

[..]

:Y :')
Vandaar de beveiliging, voor ze m'n formules weer slopen :P
Heb je toevallig ook nog een oplossing voor mijn 2e vraag? O-)
Nog even terug naar je eerste vraag. Het kan wel wat geautomatiseerder. Beschouw de volgende macro:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()

Sheet1.Unprotect
Sheet1.Cells.Locked = True

For i = 1 To 100
 If Left(Sheet1.Cells(i, 1).Formula, 1) <> "=" Then Sheet1.Cells(i, 1).Locked = False
Next i

Sheet1.Protect

End Sub

* Haal de beveiliging van het bald
* Zet alle cellen 'op slot'
* Haal vervolgens 'het slot' af van alle cellen waarin GEEN formule staat (in dit geval worden de cellen A1 t/m A100 gecheckt, maar je kan ook simpelweg loopen door alle (benodige) cellen)
* En zet de beveiliging er weer op

Dan zijn alle formule-cellen beveiligd.
pi_96343943
Macro's, die moet ik echt nog eens gaan leren :P Bedankt, ik ga m bewaren ^O^
pi_96345431
quote:
0s.gif Op woensdag 4 mei 2011 15:19 schreef Piles het volgende:
Macro's, die moet ik echt nog eens gaan leren :P Bedankt, ik ga m bewaren ^O^
Excel zonder macro's is als een TV zonder afstandsbediening. Je kan het wel gebruiken, maar veel kan je er niet mee :p
pi_96377406
Misschien een hele simpele vraag:

ik heb twee kolommen met getallen (procenten).
Voorbeeld:

1
2
3
4
5
6
7
Kolom A (jaar 1)          Kolom B (jaar 2)
1                                6
2                                5
3                                4
4                                3
5                                2
6                                1

Nu wil ik dat de getallen die hoger zijn in vergelijking met een vorig jaar groen kleuren, en als ze lager zijn rood kleuren.

Ik ben geen ster in excel, dus als iemand het in jip en janneke taal uit kan leggen, heel graag! Ik gebruik Excel 2007, Nederlandse versie.
Op vrijdag 19 december 2014 13:42 schreef SilentChaos het volgende:
CG O+ Louter kwaliteitsposts _O_
Op dinsdag 8 september 2015 14:08 schreef ieniminimuis het volgende:
Jij bent de allerleukste van dit topic, hiep hé hoera hoezee *O*
pi_96377980
Zoek eens naar voorwaardelijke opmaak bij Start en dan het kopje 'stijlen'. Volgens mij moet je een formule maken.
'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_96378376
En daar loop ik vast :') Ik heb al gegoogled naar formules die ik kan gebruiken, maar tot nu toe zonder resultaat.

Ik kan wel een regel selecteren en dan voorwaardelijke opmaak --> kleurschalen doen. Maar dan 40x toepassen. Dat werkt zoals ik het bedoel, maar het is wel een beetje omslachtig.
Op vrijdag 19 december 2014 13:42 schreef SilentChaos het volgende:
CG O+ Louter kwaliteitsposts _O_
Op dinsdag 8 september 2015 14:08 schreef ieniminimuis het volgende:
Jij bent de allerleukste van dit topic, hiep hé hoera hoezee *O*
pi_96379604
selecteer de eerste waarde van kolom B (cel B2)

kies conditional format, highlight cell rules (eerste optie), greater than.

vul in plaats van het getal "=A2" in en kies de formatting.

doe vervolgens hetzelfde maar dan smaller than en "=a2"

kopieer vervolgens cel B2

selecteer de andere cellen waar ditzelfde formatting op moet toegepast worden en doe plakken speciaal, opmaak.
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_96431633
Ik heb een formule gemaakt en die wil ik graag horizontaal doortrekken. Het enigste probleem is dat de laatste cel (mutatietabel!H9) niet 1 maar 3 kolommen moet opschuiven (naar K9). Ik ben niet zo'n expert in excel en weet alleen hoe ik hem 1 kolom mee kan laten schuiven.

=VLOOKUP('Start '!$E$16;'Berekening tbv van investering'!$B$105:$C$111;2)*Mutatietabel!H9

Hoop dat iemand me kan helpen, zal me veel werk schelen.
pi_96478436
Niemand...?! :'(
  zondag 8 mei 2011 @ 19:46:42 #33
62215 qu63
..de tijd drinkt..
pi_96515279
quote:
0s.gif Op zaterdag 7 mei 2011 18:02 schreef Serrano het volgende:
Niemand...?! :'(
Het is weekend!

-edit- En belangrijker, de zon schijnt!
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_96537033
Weekend begint op vrijdagmiddag op Fok!. :P

Kun je uit de voeten met de index functie icm column functie?

Ik ga er even vanuit dat de 9 in je verwijzing vast is dus H9, K9, N9 etc

Als je de onderstaande functie in A1 zet en naar rechts kopieert krijg je achtereen volgens de waarde uit H9, K9, N9 .
=INDEX(9:9,1,8+(COLUMN()-1)*3)

Voor de goeie kolom verwijzing moet je zelf even puzzelen hoeveel je van de Column() moet aftrekken. Voor D4 zou de formule als volgt worden:
=INDEX(9:9,1,8+(COLUMN()-4)*3)
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_96568923
Ik kom er niet uit en hij blijft aangeven dat er een fout inzit. Ik wil dat J3 de uitkomst is van C3+F3 maar min D3 E3 G3 H3 I3 ik aangegeven in de balk de forumule =SOM(C3;F3)-(D3;E3;G3;H3;I3) blijkbaar zit er toch een fout in. Wie weet het?
pi_96570399
Ik denk dat je dit bedoelt:

=SOM(C3;F3) - SOM(D3;E3;G3;H3;I3)

Of natuurlijk gewoon

=C3+F3-D3-E3-G3-H3-I3 :P
pi_96574442
@deetch bedankt! Eigenlijk te laat, moest het ondanks het mooie weer dit weekend af hebben (handmatig zitten wijzigen). Desalniettemin zal het voor de toekomst heel fijn zijn als ik jouw formules kan gebruiken Ik zal ze morgen even nader bestuderen!
pi_96586898
quote:
0s.gif Op maandag 9 mei 2011 21:43 schreef actuarisje het volgende:
Ik denk dat je dit bedoelt:

=SOM(C3;F3) - SOM(D3;E3;G3;H3;I3)

Of natuurlijk gewoon

=C3+F3-D3-E3-G3-H3-I3 :P
Dankje wel ik had gewoon simpel moeten doen!
pi_96587596
quote:
0s.gif Op maandag 9 mei 2011 22:36 schreef Serrano het volgende:
@deetch bedankt! Eigenlijk te laat, moest het ondanks het mooie weer dit weekend af hebben (handmatig zitten wijzigen). Desalniettemin zal het voor de toekomst heel fijn zijn als ik jouw formules kan gebruiken Ik zal ze morgen even nader bestuderen!
Lol, tja de vrijdagmiddag stress projectjes ken ik ook nog wel en dan is er niemand om je te helpen.
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_96587731
Goedemorgen!
Ik heb in Excel een kolom met nogal veel rijen. In al deze cellen staat een cijfer. Nu wil ik achter ieder cijfer een lettercombinatie plakken (overal dezelfde)
Is dit mogelijk in excel?

Ik gebruik Microsoft Office Excel 2007, in het Nederlands
pi_96593807
quote:
0s.gif Op dinsdag 10 mei 2011 10:31 schreef BoniBoni het volgende:
Goedemorgen!
Ik heb in Excel een kolom met nogal veel rijen. In al deze cellen staat een cijfer. Nu wil ik achter ieder cijfer een lettercombinatie plakken (overal dezelfde)
Is dit mogelijk in excel?

Ik gebruik Microsoft Office Excel 2007, in het Nederlands
Kopieer (ctrl+c) de combinatie, selecteer alle cellen en kun je de combinatie er in plakken (ctrl+v).
pi_96594233
Ik heb hier een module waarin een InputBox wordt aangeroepen. Nu wil ik een Exit Sub op het moment dat de user op Cancel drukt. Ik heb dat op deze manier gedaan:

1
2
Reason = Application.InputBox("Reason", "New Expecteds", sDefault)
   If Reason = False Then Exit Sub

Als ik nu stap voor stap door de code loop (F8-en), dan gaat alles prima. Als ik echter de macro gewoon run, dan krijg ik, na het drukken op Cancel, een runtime error: "Code execution had been interrupted". Klik ik vervolgens op Debug en run ik daarna verder (F5, danwel stap voor stap met F8), dan gaat de macro gewoon vrolijk verder.

Ik heb geprobeerd de error te omzeilen met On Error Resume Next en On Error GoTo ..., maar hij blijft er uit klappen...

Iemand enig idee waar dit vandaan komt?
pi_96595443
hmm...
Hij geeft de melding nu bij ALLE macro's die ik run

EDIT: En uiteraard lost de machine opnieuw starten alle problemen op :P

[ Bericht 58% gewijzigd door actuarisje op 10-05-2011 13:47:42 ]
pi_96597616
quote:
0s.gif Op dinsdag 10 mei 2011 13:04 schreef Pakspul het volgende:

[..]

Kopieer (ctrl+c) de combinatie, selecteer alle cellen en kun je de combinatie er in plakken (ctrl+v).
Lijkt me niet de bedoeling aangezien dan de originele getallen verdwijnen.

Ik denk dat BoniBoni het volgende bedoeld:
1 wordt 1bla
2 wordt 2bla
4 wordt 4bla
281 wordt 281bla
etc etc

Stel je eerste getal staat in cel A1
Maak een nieuwe kolom en typ daar de volgende formule in:

=A1&"bla"

vervang naar behoeft A1 door de juiste celverwijzing en de tekst "bla" door de gewenste tekst
Kopieer deze fomule door naar beneden.

Vervolgens zou je de kolom met de formule kunnen selecteren en deze middels plakken speciaal, plakken als waarden weer kunnen plakken.
Zo verdwijnt de formule en heb je een kolom met een vaste combinatie. let op dit is dan wel een tekst geworden dus je kunt er niet meer mee rekenen.
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 10 mei 2011 @ 14:48:48 #45
62215 qu63
..de tijd drinkt..
pi_96598322
quote:
0s.gif Op dinsdag 10 mei 2011 14:34 schreef Deetch het volgende:

[..]

Lijkt me niet de bedoeling aangezien dan de originele getallen verdwijnen.

Ik denk dat BoniBoni het volgende bedoeld:
1 wordt 1bla
2 wordt 2bla
4 wordt 4bla
281 wordt 281bla
etc etc

Stel je eerste getal staat in cel A1
Maak een nieuwe kolom en typ daar de volgende formule in:

=A1&"bla"

vervang naar behoeft A1 door de juiste celverwijzing en de tekst "bla" door de gewenste tekst
Kopieer deze fomule door naar beneden.

Vervolgens zou je de kolom met de formule kunnen selecteren en deze middels plakken speciaal, plakken als waarden weer kunnen plakken.
Zo verdwijnt de formule en heb je een kolom met een vaste combinatie. let op dit is dan wel een tekst geworden dus je kunt er niet meer mee rekenen.
Als het alleen gaat om de weergave (bijvoorbeeld "10 Liter/15 Liter/etc") kan je ook kiezen voor een aangepaste opmaak.

Selecteer de cellen, doe ctrl+1, kies het tabblad "getal" en ga naar aangepast. Onder "Type:" kan je nu zelf invullen wat je wilt laten zien. #.##0,00 "Liter" wordt bijvoorbeeld 10,00 Liter.
It's Time To Shine
[i]What would life be like without rhethorical questions?[/i]
pi_96604162
quote:
0s.gif Op dinsdag 10 mei 2011 14:34 schreef Deetch het volgende:

[..]

Lijkt me niet de bedoeling aangezien dan de originele getallen verdwijnen.

Ik denk dat BoniBoni het volgende bedoeld:
1 wordt 1bla
2 wordt 2bla
4 wordt 4bla
281 wordt 281bla
etc etc

Stel je eerste getal staat in cel A1
Maak een nieuwe kolom en typ daar de volgende formule in:

=A1&"bla"

vervang naar behoeft A1 door de juiste celverwijzing en de tekst "bla" door de gewenste tekst
Kopieer deze fomule door naar beneden.

Vervolgens zou je de kolom met de formule kunnen selecteren en deze middels plakken speciaal, plakken als waarden weer kunnen plakken.
Zo verdwijnt de formule en heb je een kolom met een vaste combinatie. let op dit is dan wel een tekst geworden dus je kunt er niet meer mee rekenen.
Dit bedoelde ik inderdaad.
Het is gelukt, bedankt!
pi_96687938
quote:
0s.gif Op woensdag 4 mei 2011 11:12 schreef Piles het volgende:
Oh, en nog een wat lastigere vraag. Ik heb de volgende matrix:

[ code verwijderd ]

Die wil ik (automatisch) converteren naar:

[ code verwijderd ]

Het aantal kolommen (waardes) kan variëren, om het nog leuker te maken :')
En het gaat om nogal wat gegevens :P Ik hoop dat iemand er een handigheidje voor heeft, ik kan het zo even niet bedenken.
Iemand hier nog een oplossing/idee voor? O-)
pi_96691757
quote:
0s.gif Op donderdag 12 mei 2011 10:28 schreef Piles het volgende:

[..]

Iemand hier nog een oplossing/idee voor? O-)
Met VBA kun je er door heen loopen. Alleen is even de vraag of het aantal waardes per onderdeel kan verschillen.
pi_96692034
quote:
0s.gif Op donderdag 12 mei 2011 12:00 schreef Pakspul het volgende:

[..]

Met VBA kun je er door heen loopen. Alleen is even de vraag of het aantal waardes per onderdeel kan verschillen.
Anders neem ik voor de zekerheid bijvoorbeeld 20 kolommen, en verwijder ik later de lege regels, dat is geen probleem :)
pi_96692840
Questione:

Ik zit op mijn werk en heb voor een overzichtsklusje gegevens nodig uit een bestand dat door een collega is gemaakt. Dit bestand is veel te omslachtig, maar dat terzijde.

Hij heeft in zijn bestand gebruik gemaakt van DRAAITABEL.OPHALEN. werkt opzich prima, ik krijg de gegevens die ik nodig heb.
Als ik mn bestand met draaitabel maar geopend heb...

Als dit bestand niet geopend is krijg ik #VERW.

Iemand hier een oplossing voor?
abonnement Unibet Coolblue Bitvavo
Forum Opties
Forumhop:
Hop naar:
(afkorting, bv 'KLB')