alpha

Als het probleem is dat je in sommige cellen hekjes ziet in plaats van getallen: dat kun je eenvoudig oplossen door de kolommen breder te maken.

Handmatig berekend kom ik, rekening houdend met de gewenste verdeling, tot deze cijfers: Gemiddeld gewicht alle varkens per hok: 6.306 gram, 6.238 gram, 6.232 gram, 6.223 gram Het verschil tussen het hoogste- en laagste gemiddeld gewicht is dan slechts 83 gram (met 35 varkens per hok).

Plaats hier eens een Excel-voorbeeldbestand waaruit blijkt hoe je je gegevens vastlegt. Dan kan wellicht een gericht antwoord worden gegeven.

Dank voor de feedback !

Je hebt 140 varkens, waarvan de helft "b" en de helft "z". De verdeling over de vier hokken naar aantal en geslacht is dan eenvoudig: 35 varkens per hok (2 hokken met 18 x "b" en 17 x "z", en 2 hokken met 17 x "b" en 18 x "z"). Ervan uitgaande dat je het gewicht in grammen hebt vermeld, is dan het gemiddelde gewicht per varken 6250 gram (resp. 6319 gram voor de "b" en 6181 gram voor de "z"). Bovenstaande zaken zijn eenvoudig te berekenen (zover was je waarschijnlijk zelf ook wel al), het moeilijkste is uiteraard om per hok op ongeveer eenzelfde totaalgewicht uit te komen. Ik ben daar handmatig mee bezig geweest en zo'n verdeling lijkt me wel mogelijk. Aan een handmatige verdeling heb je natuurlijk niks, je zou een eenduidige oplossing moeten hebben die voor elk willekeurig aantal dieren en geslacht bruikbaar is. Dat is wel te programmeren in vba, maar kost behoorlijk wat tijd. Hetzelfde geldy voor de vragg die je eerder op dit forum stelde (http://www.pc-helpforum.be/topic/56833-samenvoegen-van-gegevens ).

Het kan wel in een redelijke tijd als je de code maar beperkt tot een niet al te groot bereik. Hieronder een voorbeeld voor het bereik A1:T50 op alle werkbladen in een workbook. Sub macro1() Dim cl As Range, x As Integer For x = 1 To Sheets.Count For Each cl In Sheets(x).Range("A1:T50") If cl.Interior.ColorIndex <> xlColorIndexNone Then cl.Font.ColorIndex = cl.Interior.ColorIndex End If Next cl Next x End Sub En voor opheffing van wat met macro1 werd ingesteld: Sub macro2() Dim cl As Range, x As Integer For x = 1 To Sheets.Count For Each cl In Sheets(x).Range("A1:T50") If cl.Interior.ColorIndex = cl.Font.ColorIndex Then With cl.Font .ColorIndex = xlAutomatic .Bold = True End With End If Next cl Next x End Sub

Bedoel je voor alle cellen in alle werkbladen? Weet je hoeveel miljoenen cellen dat zijn? Hoeveel bladen gebruik je? Als je die opdracht geeft kun je (bij wijze van spreken) wel enkele weken met vakantie voordat die voltooid is. Je kunt daarom beter die opdracht beperken tot een bepaald bereik in de verschillende bladen, nl. tot het bereik wat je gebruikt. Met jouw macro worden overigens geen cellen verborgen (je kunt in Excel alleen hele rijen of kolommen verbergen), maar wordt de tekstkleur en celkleur aan elkaar gelijk gemaakt (en met de tweede macro weer opgeheven). Persoonlijk vind ik dat niet aan te bevelen, je moet altijd kunnen zien wat er in een cel staat (vind ik), maar als je dat beslist wil, dan kan dat wel.

Bedankt voor de uitleg Plongske. Rest voor mij nog deze vraag voor Herman: bij de uitslag staat vast wat er bij toto komt te staan (een 1 voor winst van de thuisploeg, een 2 bij winst voor de uitploeg), maar is dat ook zo bij de voorspeller? Of kan die bij een voorspellende uitslag van bv. 3 - 1 toch bij toto een 2 invullen om zo een grotere kans te hebben om punten te vergaren? Hoe zit dat Herman?

@Herman, Die formule is eenvoudig te bedenken, maar ik vind de puntentelling wel wat vreemd (of ik begrijp die niet goed). Aantal doelpunten van de thuisploeg goed voorspeld = 2 punten. Aantal doelpunten van de uitploeg goed voorspeld = 2 punten. Als die twee gegevens goed zijn voorspeld is dat dus samen 4 punten. Tot zover is het voor mij duidelijk. Maar dan: "Totovoorspelling goed" = 5 punten. Maar de voorspelde uitslag is toch hetzelfde als de totovoorspelling? M.a.w. als het aantal doelpunten van zowel de thuis- als uitploeg goed is voorspeld, dan komen er automatisch 5 punten bij, die totocel heb je niet nodig. Je kunt net zo goed schrijven: "Aantal doelpunten van zowel thuis- als uitploeg goed voorspeld = 9 punten. Ik vind dat overigens geen al te logische puntentellling, maar dat terzijde. M.i. kun je beter (ook) punten toekennen voor de voorspellingen winst, verlies, en gelijk spel.

Onderstaande formule kun je gebruiken voor 3 waarden. Let op: deze oplossing geldt voor jouw specifieke geval; voorwaarde is dus dat de getallen in de F-kolom oplopend gesorteerd zijn én dat de maximum-getallen meteen na elkaar voorkomen. Dus geen tussenliggende cellen met een ander- of geen getal. Als het maximum meer dan drie x voorkomt, dan kun je de formule nog uitbreiden. =INDEX(F10:G13;VERGELIJKEN(MAX(F10:F13);F10:F13;0);2)&ALS.FOUT(" "&INDEX(F10:G13;VERGELIJKEN(MAX(F10:F13);F10:F13;0)+1;2);"")&ALS.FOUT(" "&INDEX(F10:G13;VERGELIJKEN(MAX(F10:F13);F10:F13;0)+2;2);"")

Met onderstaande oplossing doet het er niet toe of het om de tekst- of celkleur gaat. Met een formule in de cel is jouw vraag niet op te lossen, hiervoor is vba nodig. De vert.zoekenfunctie die je nu in X1 hebt staan, kun je verwijderen; als vba wordt gebruikt kan de tekst die in X1 moet komen te staan meteen worden meegenomen. Let er wel op dat is uitgegaan van het bereik F10:G13 en van X1 waarin het resultaat moet komen. Als je in het werkblad die bereiken wijzigt, dan moet je dat ook in de macro doen. - Als je dat nog niet gedaan hebt, wis dan in X1 de vert.zoekenfunctie. - Kopieer onderstaande macro - Klik linksonderaan met de rechtermuisknop op de tabbladnaam van het bklad waarin jouw gegevens staan (bv. Blad1) en klik in het dan verschijnende menu op "Programmacode weergeven". - Klik in het rechtervenster op de rechtermuisknop en kies "Plakken". - Sluit het venster met het kruisje rechtsboven. - Controleer de werking door in F10:G13 het hoogste getal of de tekst die rechts daarvan staat, te wijzigen. Private Sub Worksheet_Change(ByVal Target As Range) Dim lc As Integer If Not Intersect(Range("f10:g13"), Target) Is Nothing Then lc = WorksheetFunction.Max(Range("f10:f13")) Range("g" & WorksheetFunction.Match(lc, Range("f10:f13"), 0) + 9).Copy Range("x1") End If End Sub

Ja, dat kan. Maar voor de duidelijkheid: Bedoel je de kleur van detekst of de kleur van de cel ?

Dat is prima, als je tenminste altijd de maand wil weergeven die hoort bij het grootste maandnummer.

Ik zie nu dat ik S1 niet in de berekening heb betrokken. Als dat wel de bedoeling is, gebruik dan: =VERT.ZOEKEN(S1;F10:G13;2;0) of =INDEX(F10:G13;VERGELIJKEN(S1;F10:F13;0);2)

Daar zijn verschillende oplossingen voor, ik noem er 2: =VERT.ZOEKEN(MAX(F10:F13);F10:G13;2;0) en =INDEX(F10:G13;VERGELIJKEN(MAX(F10:F13);F10:F13;0);2)

Prima oplossing van Plongske en die kan zelfs nog iets korter, want >0 hoeft er niet bij (maar mag wel). Je krijgt dan in Blad1 of Blad2 in C1 (of een andere cel in de eerste rij): =ALS(AANTALLEN.ALS(Blad1!A$1:A$100;Blad2!A1;Blad1!B$1:B$100;Blad2!B1);1;0) Die formule kopieer je naar beneden. Andere oplossingen, bv. met vert.zoeken (of een andere functie) zijn overigens ook mogelijk. Als je daarin geïnteresseerd bent, dan laat je het maar weten.

@Ekka, waarom heb je op de vragen in dit topic niet gereageerd? Dat zou een kleine moeite geweest zijn, en degene die een oplossing heeft bedacht weet dan of zijn/haar antwoord het gewenste effect heeft gehad.

@Nyltiak, waarom heb je niet meer gereageerd? Een oplossing voor jouw Excelprobleem lijkt mij niet zo moeilijk, maar dan moet wel bekend zijn wat je precies wil. Misschien heb je elders al een oplossing gevonden, maar dan zou het prettig geweest zijn als je dat hier even had gemeld.

Je hebt een tabel waarbij in de eerste kolom namen staan en in de tweede kolom adressen. En je hebt een tweede tabel met dezelfde indeling veronderstel ik. Wat adressen betreft: staan straat- en plaatsnaam in dezelfde- of in een afzonderlijke kolom? Wát wil je precies vergelijken? Een overeenkomst in de naam alleen? Of een overeenkomst in naam en adres tegelijkertijd? Staat die tweede tabel in hetzelfde blad als de eerste tabel, of in een ander blad? Je ziet: een aantal vragen. Als je een voorbeeldbestand zou plaatsen zouden die niet nodig zijn, want dan is het meteen duidelijk.

Heb je ook geprobeerd om het lettertype te downloaden van een andere site, zoals ook op de webpagina waarnaar ik verwees, wordt aanbevolen ?

Nee, in die orde van grootte wordt er door de computer dan niet meer correct gerekend. Lees, voor wat meer info, hier: klik en hier: klik. Niet dat ik weet. Je zult dan sowieso je berekeningen in stukken moeten opdelen.

Voor de duidelijkheid hierbij jouw bestand retour waarin het samenvoegen van cellen ongedaan is gemaakt. Selecteer een willekeurige cel in de rij die je wil kopiëren en klik op 1 van de knoppen rechts van de tabel. De nieuwe rij wordt dan ingevoegd onder de rij waarin je een cel hebt geselecteerd en heeft ook dezelfde inhoud als de rij waarin je een cel selecteerde. PC-Helpforum Patijnc.xlsm

Tja, in jouw bereik heb je een aantal cellen samengevoegd, dat kan een macro niet zien uit zichzelf. Selecteer de kolommen A:F en maak het samenvoegen van cellen ongedaan, dan werkt het allemaal prima. Mijn verkorte formule kun je nog steeds gebruiken, die behoeft alleen voor de eerste drie dagen van je tabel een kleine aanpassing en die aanpassing kun je zelf wel neem ik kaan.

Dat komt omdat je met een oude versie van Excel werkt. Klik met de rechtermuisknop op de knop en kies: "Macro toewijzen". Zie de bijlage. De formule in B5 kun je (voor 2016) vervangen door: =AFRONDEN.NAAR.BOVEN((A5-42372)/7;0) Kopieer die formule naar de van toepassing zijnde onderliggende cellen. PC-Helpforum Patijnc.xls

Selecteer een willekeurige cel in de rij waarboven je een rij wil invoegen. Klik dan op de knop in G2. Je werkt waarschijnlijk met een oude versie van Excel. Dat is geen probleem, maar zorg dat daarin het uitvoeren van macro's wordt toegestaan. PC-Helpforum Patijnc.xls