[EXCEL] Het grote Excel vragen topic, #3

Ja.
Sorry mijne kan dicht

Dat klopt.

Dus eigenlijk óf vraag 1, óf vraag 2.

quote:

Op dinsdag 26 juni 2007 13:42 schreef Damzkieee het volgende:
Dus eigenlijk óf vraag 1, óf vraag 2.

Vraag 2 gaat met RANG

Als je Henk, Jan en Klaas in A1, A2 en A3 zet en hun scores in B1 t/m B3, dan vraag je als volgt hun rang op:

=RANG(B1;$B$1:$B$3)

Liever niet met Macro's, omdat ik daar gewoon geen kut van begrijp

De optie van Frollo werkt in elk geval al

quote:

Op dinsdag 26 juni 2007 13:54 schreef DaFan het volgende:
Die eerste optie kan volgens mij niet met formules.

Frollo: Wat is de Engelse versie van Rang?

Ik gok RANK.

quote:

Op dinsdag 26 juni 2007 13:54 schreef Frollo het volgende:

[..]

Ik gok RANK.

Yep, goed gegokt.

quote:

Op dinsdag 26 juni 2007 13:54 schreef DaFan het volgende:
Die eerste optie kan volgens mij niet met formules.

Frollo: Wat is de Engelse versie van Rang?

In principe is dit genoeg.

lol

Maar optie 1 is dus onmogelijk zonder Macro?

quote:

Op dinsdag 26 juni 2007 14:05 schreef Damzkieee het volgende:
Maar optie 1 is dus onmogelijk zonder Macro?

Gewoon in de kolom met scores gaan staan en op het knopje 'AZ + pijl naar beneden' klikken, dat moet toch gewoon lukken?

Jamaar, dan veranderen al die cellen mee op de een of andere manier.

quote:

Op dinsdag 26 juni 2007 15:20 schreef Damzkieee het volgende:
Jamaar, dan veranderen al die cellen mee op de een of andere manier.

Dat is logisch. Als je dit hebt:
En je sorteert alléén de kolom met de standen, dan krijg je dit:

Dat lijkt me toch ook niet de bedoeling.

Hoe kan ik in Excel grafieken mooi maken? Ik heb een hoop grafieken die allemaal in hetzelfde verslag moeten. Nu hebben de lettertypes en balken en dergelijke in iedere grafiek weer een ander formaat. Hoe kan ik zorgen dat dit en de as met percentages in iedere grafiek even groot is?
Zie voor verduidelijking hier 2 van mijn grafiekjes:



Als het niet in Excel kan, waar kan het dan wel mee? ..ik wil graag een mooi geheel voor mijn verslag..

Toch met de hand bijwerken, vrees ik.
Een grafiek met minder gegevens zal automatisch dikkere balken krijgen, daar doe je weinig aan.

Al kun je wel proberen om een aangepast grafiektype te maken:

Maak eerst één grafiek helemaal zoals je 'm hebben wil. Klik er dan met rechts op en kies Grafiektype. Ga naar tabblad Aangepaste typen, selecteer Door de gebruiker gedefinieerd, klik op Toevoegen en sla je aangepaste grafiektype op.
Nu kun je de overige grafieken opmaken volgens dit aangepaste type. Waarschijnlijk moet je de details nog handmatig bijwerken, maar het is allicht sneller dan bij elke grafiek opnieuw beginnen.

bedankt voor je reactie. Ik heb gedaan wat je zei, maar dat probleem met die dikte van de balken blijf ik houden helaas.. En als ik ze met de hand bijwerk krijg ik ze nooit allemaal hetzelfde..
weet iemand een ander programma waar je mooiere grafieken mee kan maken?

..

[ Bericht 99% gewijzigd door TuuT op 26-06-2007 17:35:50 ]

quote:

Op dinsdag 26 juni 2007 17:33 schreef TuuT het volgende:


weet iemand een ander programma waar je mooiere grafieken mee kan maken?

Begin jaren 90 wilde ik nog wel eens werken met Harvard Graphics (onder DOS ). Zou dat nog bestaan?

quote:

Op zaterdag 16 juni 2007 15:14 schreef Frollo het volgende:

[..]

Je zou deze formule in bijvoorbeeld A100 kunnen zetten:

=AANTALARG(A2:A99)

De formule telt alle niet-lege cellen (oftewel: de cellen waarin een x staat) in A2 t/m A99.
Vervolgens doorslepen naar B100, C100 enzovoort

Ik heb deze code dus ingevoerd, maar krijg een no name error (wat dat ook moge zijn) en dan zulke tekens ### wat doe ik verkeerd

quote:

Op woensdag 27 juni 2007 22:55 schreef DaFan het volgende:
Gebruik COUNTA ipv AANTALARG

Altijd weer dat gezeik met die gelokaliseerde versies.
Welke Microsoft-medewerker heeft dat in vredesnaam bedacht?

DaFan, als het nog lukt, kun je dan niet 'ns in de OP zetten dat de vraagsteller in elk geval moet vermelden welke taal hij/zij heeft?

quote:

Op donderdag 28 juni 2007 09:33 schreef DaFan het volgende:

[..]

Het kon nog net

quote:

Op donderdag 28 juni 2007 09:33 schreef DaFan het volgende:

Btw, je sig: wordt -> word en huiskamer aan elkaar [/purist]

Klik er maar eens op.

quote:

Op donderdag 28 juni 2007 09:36 schreef DaFan het volgende:

[..]

Oja LOL dat was van die muts [afbeelding]

Mooi he?

Ik verdien nota bene m'n brood met de taalpurist uithangen, dus ik zou zoiets echt niet zonder reden in mijn sig zetten.

quote:

Op woensdag 27 juni 2007 22:55 schreef DaFan het volgende:
Gebruik COUNTA ipv AANTALARG en maak je kolommen breder.

### is om aan te geven dat het getal niet in de cel past

Yup hij werkt, thnx

hoi,

ik zit nog even met het volgende:

Ik heb bijvoorbeeld het volgende lijstje:

Jan 14
Piet 20
Peter 25
Frits 30
Truus 50

Nu wil ik de top3 ergens apart krijgen.
Ik gebruik nu GROOTSTE(B1:B5;1) voor de hoogste etc. nu krijg ik netjes die waarde in een cel maar als ik nu ook de naam nog ervoor wil?

Dus in D1 de naam met de hoogste waarde en in E1 de waarde zelf... dat lukt me niet

quote:

Op vrijdag 29 juni 2007 13:22 schreef FortunaHome het volgende:
hoi,

ik zit nog even met het volgende:

Ik heb bijvoorbeeld het volgende lijstje:

Jan 14
Piet 20
Peter 25
Frits 30
Truus 50

Nu wil ik de top3 ergens apart krijgen.
Ik gebruik nu GROOTSTE(B1:B5;1) voor de hoogste etc. nu krijg ik netjes die waarde in een cel maar als ik nu ook de naam nog ervoor wil?

Dus in D1 de naam met de hoogste waarde en in E1 de waarde zelf... dat lukt me niet

=ZOEKEN(E1;$B$1:$B$5;$A$1:$A$5)

Ik stel de vraag even iets anders... dan kom ik er wel uit...

Ik heb een lijst met namen:

JAN
JAN
JAN
PIET
PIET
JAN

nu wil ik de naam die het vaakst voorkomt uit laten spugen in B1 bijvoorbeeld... bij getallen zou ik gebruiken: =GROOTSTE(A1:A5;1)

in B1 moet dus JAN komen te staan

Dat is een volkomen andere vraag dan net.

Haha ja ik zie het... maar weet je dit ook ? danku

In Excel 2007 (maakt volgens mij verder niet uit?) wil ik het volgende; Als er iets in een field staat, wil ik dat het field een bepaald kleurtje krijgt, en als het leeg is, gewoon blank.

Kan dit?

Ja met conditional formatting:

Ga naar opmaak en dan voorwaardelijke opmaak.

quote:

Op vrijdag 29 juni 2007 13:56 schreef FortunaHome het volgende:
Haha ja ik zie het... maar weet je dit ook ? danku

Nee, sorry.

quote:

Op vrijdag 29 juni 2007 13:59 schreef FortunaHome het volgende:
Ja met conditional formatting:

Ga naar opmaak en dan voorwaardelijke opmaak.

Thanks, ik heb het gevonden.

quote:

Op vrijdag 29 juni 2007 14:03 schreef DaFan het volgende:
FH:
Ik neem aan dat je wel ergens een lijst met elke naam hebt. Dan zet je daarachter elke naam:
[ code verwijderd ]

Range = A1 tot A10 bv waar al die namen instaan. "Naam" kan je vervangen door de cel natuurlijk.
Dan kan je met Grootste kijken wie het meest voorkomt en dan met Zoeken weer de naam erbij halen.

Hoe je het in een keer doet weet ik ook niet.

Mja ik heb een lijst met 300+ namen...

Verschillende namen ja

Als iemand mij zou kunnen helpen..

Ik heb een sheet met de planning van projecten...



En 't personeel..



De vraag:

Hoe krijgt ik voor elkaar dat als ik de projecten indeel met personeel, het projectsheet automatisch bijgewerkt wordt, of andersom?? Is daar een of andere formule voor?

Ohja, ik heb 'm gewoon op Nederlands staan en de versie is 2003.

Alvast bedankt..

quote:

Op vrijdag 29 juni 2007 14:56 schreef FortunaHome het volgende:
Verschillende namen ja

Als je nu een draaitabelet maakt over kolom A, namen in het rijveld en namen ook bij gegevensitems als aantal, hierna eventueel sorteren en dan heb je bijv: onderstaand resultaat:

Aantal van naam
naam Totaal
JAN 4
PIET 2
Eindtotaal 6

Ik heb ook een klein vraagje.

Ik heb twee keuze lijsten in Excel.
De ene bevat vijftal opties 0-50/51-125/126-250/251-400/401-700.De andere bevat basis/basis plus/basis extra. Nu wil ik als je een bepaalde keuze maakt in beide lijsten, dat die combinatie een prijs geeft in een daarvoor bestemde cel.
Dus wanneer je in lijst 1 kiest voor 51-125 en in de tweede lijst voor basis extra wordt dit in cel 3: 550 ofzo.

Weet iemand hoe ik dat (simple) doe in excel.

Alvast bedankt.

Een vraagje:

Ik moet een hele zwik formules invullen voor de stand van mijn eredivisiepoule per speelronde (zie boven).
=dln3!$P$14 is een voorbeeld (score van week 1), hiernaast komt =dln3!$P$25 (score week 2), enzovoorts. echter, ondanks dat het getal telkens met 11 oploopt kan ik er geen reeks van 'trekken' als in 1,3,5,7,9. Moet ik alles dan handmatig invullen voor elke deelnemer? (25dlnrs * 34 speelrondes?)

Oja, ook voor elke deelnemer is de formule en de getallen gelijk, alleen dan =dln2 voor deelnemer 2.

Ook een vraag :

Ik heb een hele lijst in een excel bestand. Allemaal in 1 kolom en onder elkaar. Maar nu zitten daar een hele reeks 'dubbels' in. Kan ik excel daar automatisch de dubbels uit laten halen ?

quote:

Op donderdag 5 juli 2007 16:54 schreef DaFan het volgende:

[..]

Haal om te beginnen dat dollarteken s weg voor de 14/25. Dat geeft namelijk aan dat bij 'doortrekken' het cijfer niet mag veranderen. Reeksen van 11 verschil herkent Excel wel hoor

Dat kan niet, want dan pakt ie P, Q, R, S. Verder heb ik alle opties met het dollarteken geprobeerd, hij kent die reeks niet zodanig.

Nog een vraagje, kun je een Excel sheet 'searchable' maken met een formpje ofzo?

Kan iemand mij vertellen hoe ik die irritante printer lijnen uitzet...

Dus die stippellijntjes die het einde van een pagina aangeven?

quote:

Op vrijdag 6 juli 2007 13:14 schreef FortunaHome het volgende:
Kan iemand mij vertellen hoe ik die irritante printer lijnen uitzet...

Dus die stippellijntjes die het einde van een pagina aangeven?

Het bestand sluiten en weer openen. Het kan vast handiger, maar dit werkt ook.

Weer terug van vakantie en direct een vraag:

Ik heb een tabel met 8 kolommen. In kolom 8 staan gewcihten die ik wil optellen als in kolom 6 een bepaalde tekst staat. nu hoopte ik dat er een kant en klare formule voor is, anders moet ik weer gaan macro-en en daar heb ik geen zin in want de tour is op TV.

SOM.ALS / SUMIF, alstu.

quote:

Op woensdag 18 juli 2007 14:34 schreef Frollo het volgende:
SOM.ALS / SUMIF, alstu.

helemaal gelijk, ik had alleen niet door dat dat ook met verschillende klommen kon, thx.

Versie NL

Ik wil graag vanuit een tabblad een verwijzing maken naar een ander tabblad. Dat doe ik nu door in de cel waar het moet komen een = te typen en dan naar het andere tabblad te gaan, de cel te selecteren en dan enter te geven.

Helaas werkt dit nu niet. Ik heb het vermoeden dat dit komt omdat de cel in het andere blad een samengevoegde cel is.
Bij andere cellen werkt het nl. wel gewoon.

Is er een manier om dit te omzeilen zonder de samenvoeging op te heffen?

Ik heb het nu opgelost door de samengevoegde cel te verwijzen naar een andere (niet samengevoegde) cel in een klein hoekje van de sheet, en vanuit die cel gelinkt naar de pagina waar ik het wilde hebben. Dat werkt goed, maar is niet ideaal natuurlijk.

En dan de tekst wit maken van die "hulpcel"

dat zou natuurlijk kunnen, maar het nadeel is dat andere mensen heel handig die hulpcellen gaan gebruiken omdat er immers niets in staat.

De betreffende kolom waarin de hulpcel staat kun je ook nog verbergen. Rechtsklikken op kolomkop en dan verbergen.

Ik kan alleen het probleem niet reproduceren. Als je verwijzing verwijst naar de linkerboven cel van de samengevoegde cel dan moet het dacht ik goed gaan.

Stel je voor ik voeg een blok samen van C7 tm E12 dan kan ik de info uit die samengevoegde cel opvragen door te verwijzen naar cel C7.

_{wat DaFan dus zegt}

Ik verveel me op m'n werk, dus ik ben van plan om Scrabble te maken, zodat ik dat kan spelen via e-mail met m'n collega's. Daar zijn echter wel een hoop restricties voor nodig om valsspelen te voorkomen. Ik heb Excel al zover gekregen dat elk vakje maar één letter mag bevatten. Maar nu is het zo dat er in totaal maar 100 mogelijke letters zijn (incl. twee 'blanks', die ik voor het gemak maar ? heb gemaakt), wat betekent dat niet elke letter evenveel gebruikt kan worden.

Zo is de E bijvoorbeeld 12x beschikbaar, maar de Z slechts 1x. Om te beginnen, hoe kan ik het beste zorgen dat Excel niet over het maximale aantal heengaat? Het gaat om het welbekende vlak van 15x15 vakjes waarin de letters terecht zouden mogen komen.

We doen het stapje voor stapje, want ik ben een Excel-noob

Je kunt een macrootje maken die de checks voor je uitvoert. Je seletceert een cel en start dan de invulmacro. Even quick and dirty:



[ Bericht 32% gewijzigd door Deetch op 24-07-2007 12:05:28 ]

Hoe kan ik als ik de locatie van een cel heb bepaald met activecell.row en activecell.column later weer terugkeren naar deze cel?

Al gevonden:

quote:

Op dinsdag 24 juli 2007 15:37 schreef DaFan het volgende:
Waarom die Chr(i+64)? Is dat omdat ie anders geen 64 kolommen 'extra' herkent?

i is het kolomnummer en niet de letter die je nodig hebt voor de range functie. omdat CHR(65) "A" is en kolomnummer van kolom "A" 1 is doe je dus CHR(kolomnummer+64) om de kolomletter te krijgen.

Ik heb de code voor scrabble voor wat betreft de letters invullen klaar. het is wel een beetje g4root gewoorden ivm 26 letters . Ik heb een gekleurd vlak van A3 tm O17 (15x15 veld) en twee knop om het veld te wissen (sub Clearfield) en een knop om op de geselecteerde cel een letter in te voeren (sub Letter)

[code]
Sub Clearfield()

Range("A3:O17").Select
Selection.ClearContents
Range("A3").Select

End Sub

Sub Letter()

Dim invoer As String

'slaat lokatie geselecteerde cel op
rij = ActiveCell.Row
kolom = ActiveCell.Column

'controleert of de geselecteerde cel binnen het bereik zit
If rij < 3 Or rij > 17 Then
MsgBox "In het gekleurde vlak blijven, lambek"
Exit Sub
End If

If kolom > 15 Then
MsgBox "In het gekleurde vlak blijven, lambek"
Exit Sub
End If

'controleert of geselecteerde cel leeg is
If ActiveCell.Value <> "" Then
MsgBox "Lege cel selecteren, kweilgat"
Exit Sub
End If

'invoervenster
invoer = InputBox("Geef in te voeren letter", "Scrabble input")

'controleert of er maar 1 letter wordt ingevoerd
If Len(invoer) > 1 Then
MsgBox "Maar 1 letter tegelijk, dufmuts"
Exit Sub
End If

'maakt van kleine letters grote letters
If Asc(invoer) <= 122 And Asc(invoer) >= 97 Then invoer = Chr(Asc(invoer) - 32)

'per letter wordt nu gekeken of die nog ingevoerd mag worden
Select Case invoer
Case "A"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "A" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "A"
End If

'copy paste van de code in case "A" waarbij je de 2x de "A" moet
'vervangen door de gewenste letter en de max_aantal moet aanpassen
Case "B"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "B" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "B"
End If

Case "C"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "C" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "C"
End If

Case "D"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "D" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "D"
End If

Case "E"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "E" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "E"
End If

Case "F"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "F" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "F"
End If

Case "G"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "G" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "G"
End If

Case "H"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "H" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "H"
End If

Case "I"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "I" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "I"
End If

Case "J"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "J" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "J"
End If

Case "K"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "K" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "K"
End If

Case "L"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "L" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "L"
End If

Case "M"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "M" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "M"
End If

Case "N"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "N" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "N"
End If

Case "O"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "O" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "O"
End If

Case "P"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "P" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "P"
End If

Case "Q"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "Q" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "Q"
End If

Case "R"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "R" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "R"
End If

Case "S"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "S" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "S"
End If

Case "T"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "T" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "T"
End If

Case "U"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "U" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "U"
End If

Case "V"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "V" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "V"
End If

Case "W"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "W" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "W"
End If

Case "X"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "X" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "X"
End If

Case "Y"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "Y" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "Y"
End If

Case "Z"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "Z" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "Z"
End If

Case Else
MsgBox "Wel een letter invoeren stoephoer"

End Select

End Sub
[code]

je moet nog wel ff het max_aantal per letter aanpassen.

_{oh ja en "langste post ever"}

quote:

Op dinsdag 24 juli 2007 16:33 schreef fOubie het volgende:
Hoe zet ik in excel het getal verkregen door [ =maand(NU()) ] om in bv de maandnaam

bv: =maand(nu()) geeft als waarde een 1, dan wil ik dat er in die cel bijvoorbeeld Januari komt.
Een als is geen idee, hier is de lengte beperkt tot misschien een 8 als statements.

Bedankt op voorhand

neem een macrootje op en vervang de macro code vervolgens met onderstaande code


Vervolgens in een excelcel doe je =maandnaam(month(now())) en dan krijg je de naam van de maand

quote:

Op dinsdag 24 juli 2007 16:54 schreef Deetch het volgende:

[..]

neem een macrootje op en vervang de macro code vervolgens met onderstaande code

[ code verwijderd ]

Vervolgens in een excelcel doe je =maandnaam(month(now())) en dan krijg je de naam van de maand

Ja, of dit:

quote:

Op dinsdag 24 juli 2007 16:47 schreef Frollo het volgende:
Als in C1 nou dat =maand(nu()) staat, dan werkt dit volgens mij wel:

=TEKST(DATUM(2007;C1;1);"mmmm") (of ..."mmm")

quote:

Op dinsdag 24 juli 2007 16:57 schreef Frollo het volgende:

[..]

Ja, of dit:
[..]

veel beter

Ik zit met een probleem! Ik ben nou niet een hele ster in Excel maar grootste gedeelte probeer ik zelf op te lossen. Soms lukt het aardig maar nu even niet

Ik ben zelf een weerrapport aan het maken.

1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.......31
Tmin-------------------------------------------------31X hokjes
Tmax------------------------------------------------31X hokjes
Gem-------------------------------------------------31X hokjes

Nu komt het, ik ga dus met gemiddelde waardes werken, opzich niet moeilijk, average aanklikken, hokjes aanwijzen en klaar zou je denken, nee dus. Probleem is dan hij een #DIV/0! fout aangeeft. Nu weet ik niet precies wat dit inhoud, als ik er cijfers in plaats dan is er niks aan de hand, maar zodra ik de vakjes weer leeg gooi krijg ik die fout weer. Is dit op een 1 of andere manier op te lossen? Zodat ik dus gewoon een kaal vakje heb, maar tijdens het invoeren van de temps, dat die gem in werking gaat

Ik heb zelf weerrapport van iemand anders gedownload, daar is alles oke, echter kan ik het allemaal maar niet ontdekken waar het probleem ligt. Aangezien die persoon nogal wat dingen heeft die ik niet gebruik maak ik dus zelf 1 maar moet het wel werken natuurlijk!

quote:

Op woensdag 25 juli 2007 09:20 schreef SpeedyGJ het volgende:

Nu komt het, ik ga dus met gemiddelde waardes werken, opzich niet moeilijk, average aanklikken, hokjes aanwijzen en klaar zou je denken, nee dus. Probleem is dan hij een #DIV/0! fout aangeeft. Nu weet ik niet precies wat dit inhoud, als ik er cijfers in plaats dan is er niks aan de hand, maar zodra ik de vakjes weer leeg gooi krijg ik die fout weer. Is dit op een 1 of andere manier op te lossen? Zodat ik dus gewoon een kaal vakje heb, maar tijdens het invoeren van de temps, dat die gem in werking gaat

Dit is volgens mij de meest elegante manier om een deel/0-fout te ondervangen:

=IF(ERROR.TYPE(AVERAGE(A1:A31)=2),"Geen gegevens",AVERAGE(A1:A31))

Ervan uitgaande dat de getallen waarvan je het gemiddelde wilt berekenen in A1 t/m A31 staan.

Niet alles in 1 keer, B3 B4 C3 C4 etc. De Tmin en Tmax wordt onderaan berekent in een aparte tabel, op deze manier krijg ik de maand uitslag. Maar het gaat nu voornamelijk om de dagelijkse gemiddelde. Wat moet ik met die zin doen?:@

A1:A31 vervangen door B3:B4 en dan doorkopieren.

Gewoon in het vakje zo ja, dan werkt het niet, werk trouwens met excel 2007.

Nou ja, waar het op neerkomt is dat je overal waar nu

=AVERAGE(bladibla)

staat, dit verandert in

=IF(ERROR.TYPE(AVERAGE(bladibla)=2),"Geen gegevens",AVERAGE(bladibla))

quote:

Op woensdag 25 juli 2007 10:21 schreef DaFan het volgende:
Ik zou ISERROR gebruiken ipv ERROR.TYPE = 2 , zo vang je direct alle foutmeldingen op, al maakt het in dit geval weinig uit (er kan niet veel anders mis gaan hier dan delen door 0).

Ja tuurlijk, is ook zo. Maar mijn oplossing kun je in principe nog uitbreiden met routines voor andere soorten fouten (bijvoorbeeld als er letters tussen de getallen staan) en daarom vind ik 'm eleganter.

een beetje de kantjes eraf aan het lopen zeg maar

quote:

Op dinsdag 24 juli 2007 16:53 schreef DaFan het volgende:
Hehe Deetch En je vergeet nu je eigen regel die je net hebt gepost. Ik zou het zo proberen:

Achter max_aantal komt een reeks getallen die aangeven hoe vaak A t/m Z mag voorkomen, gescheiden door komma's, dus 26 keer)
[ code verwijderd ]

Ook hier wordt Chr(x) vervangen door A > Z.

Scheelt een hoop nietwaar

beter

en volledig:

Hoi, weet iemand of het mogelijk is om te linken (hyperlink) naar een bepaalde cel in een ander werkblad?

In HTML zou de link er zo uitzien:
bla.html#51816555

Dus als je er op klikt moet excel dat andere tabblad openen en meteen naar die bepaalde cel springen...

*EDIT is al gelukt.. .was simpel

[ Bericht 6% gewijzigd door FortunaHome op 25-07-2007 15:01:40 ]

quote:

Op woensdag 25 juli 2007 10:18 schreef Frollo het volgende:
Nou ja, waar het op neerkomt is dat je overal waar nu

=AVERAGE(bladibla)

staat, dit verandert in

=IF(ERROR.TYPE(AVERAGE(bladibla)=2),"Geen gegevens",AVERAGE(bladibla))

En dat vertikt die dus.

quote:

Op woensdag 25 juli 2007 14:57 schreef SpeedyGJ het volgende:

[..]

En dat vertikt die dus.

Misschien gebruik je een Engelse Excel onder een Nederlandse Windows? Helpt het als je van de komma's puntkomma's maakt? Dus:

=IF(ERROR.TYPE(AVERAGE(bladibla)=2);"Geen gegevens";AVERAGE(bladibla))