alpha

De code staat in het blad behorend bij blad1. Heb je de code in een ander blad nodig, dan plaats je die bij dat andere blad.

Om P7 te verkrijgen voor de tijden in A4 en A5 op het blad 'februari': =INDEX(codes!A$1:$B$40;VERGELIJKEN(A$4;codes!B$1:B$40;0);1)&INDEX(codes!A$1:B$40;VERGELIJKEN(A$5;codes!B$1:B$40;0);1)

PC-Helpf Frank01.xlsm

Roel, waarom stel je hier een vraag als je niet in een antwoord geïnteresseerd bent?

Je bedoelt waarschijnlijk: >=0,75 moet 1 worden. De oplossing is dan, met het af te ronden getal in A1: =AFRONDEN.N.VEELVOUD(A1;0,5)

Zoek even op internet, dan vind je het zo. Zoeken op internet wordt geacht iedereen te kennen. En best starten met een cursus Excel voor beginners, bv. hier: http://www.gratiscursus.be/

Rechtsklik links-onderaan op de naam het blad en kies "programmacode weergeven". Dubbelklik aan de linkerkant op Module1, je ziet dan rechts de tekst staan die je kunt kopiëren. Voor gebruik in andere bestanden: wijzig (indien nodig) de 1 in Sheets(1) in het nummer van het werkelijke blad - bv. Sheets(2) - of in de naam van het blad, bv. Sheets("Hoe het is") .

Klik op de knop in D1:E1. Elvisfan.xlsm

1. Dan moet bekend zijn wat voorrang heeft in jouw vorig bericht: de eerste zin of de tweede. 2. Cellen opmaken op basis van kleur van andere cellen, daar is vba voor nodig, en als bij elke wijziging de gehele kolom op kleur gecontroleerd moet worden, kan dat vertragend werken.

Jasper.xlsx

Dat is niet juist, je kunt daarmee zoveel tekst plaatsen als je wil; je moet dat dan natuurlijk wel programmeren. 1. Wil je een keuzelijst die uitsluitend bestaat uit de geel gemarkeerde teksten en dat bij keuze van 1 van die 4 teksten alles wat onder zo'n gele tekst staat wordt weergegeven? 2. Wáár in het Worddocument wil je die teksten (kunnen) plaatsen; op een vaste plaats of op elke willekeurige plaats in het document? Je schrijft dat je een keuzelijst op een vaste plaats wil, maar het is toch erg onhandig als de keuzelijst op pagina 1 staat en je bv. op pagina 5 een tekst via die keuzelijst wil invoeren, of komt de tekst op een vaste plaats in het document? Als je op elke willekeurige plaats teksten via een keuzelijst zil kunnen uitvoeren, zou ik denken aan een oplossing met behulp van een userform die je op elk moment op elke willekeurige plaats in het document kunt oproepen. Hiervoor moet in het document uiteraard het uitvoeren van macro's worden toegestaan. Overigens is invoeren via een keuzelijst van tekst met opmaak (zoals bv. met opsommingstekens) niet zo eenvoudig hoor.

Bovenstaande toegepast on jouw bestand: Followup acties 2018.xlsx

Dan kun je toch dezelfde formule gebruiken die ik op blad2 in A1 vermeldde? Met dien verstande dat je in plaats van A1 het adres van de cel vermeldt waar de willekeurige code in staat. Dus (bijvoorbeeld): als in D4 een code staat, dan typ je in de cel waarin je de bijbehorende beschrijving wil: =ALS.FOUT(VERT.ZOEKEN(D4;Gegevens;2;0);"")

Zie de bijlage. Voortaan als voorbeeld een bestand plaatsen aub, geen plaatje. rvds1961.xlsx

Heb je dat al geprobeerd, via de tab "Ontwikkelaars", groep "Besturingselementen"? Dan krijg je een keuzelijst op 1 bepaalde plaats in het document, is dat de bedoeling? Of wil je op alle willekeurige plaatsen in het document een keuzelijst kunnen oproepen en dan, na een keuze, de bijbehorende tekst op elke willekeurige plaats kunnen invoegen? Bedoel je met het kleine tekstje alleen de regel in schuinschrift onder de kop, of bedoel je de volledige tekst inclusief de opsompunten? Wat je daarmee bedoelt ("in één keer") begrijp ik niet.

Nou, vooruit dan maar. Maar volgende keer wel meer zelfwerkzaamheid aan de dag leggen aub. Op een vraag als deze bv: "het kan dan wel voorkomen dat cel A2 tot bijvoorbeeld A7 ingevuld is maar 8 en 9 leeg blijven. Weet niet of dat dan fout gaat als op A11 wel weer info staat waar een tabblad van moet komen?" kun je zelf gemakkelijk het antwoord vinden door dat te testen, voor die test hoef je zelfs geen extra code in te voeren. Sub Blad_toevoegen() Dim a As Integer, l As Integer, x As Integer, y As Integer a = 0: x = 1 With Sheets(1) l = .Range("a" & .Rows.Count).End(xlUp).Row Do Until x > l If Not (IsEmpty(.Range("a" & x))) Then For y = 1 To Sheets.Count If Sheets(y).Name = .Range("A" & x).Value Then a = 1 End If Next y If a = 0 Then ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count) With Worksheets(Worksheets.Count) .Range("A1").Value = Sheets(1).Range("A" & x).Value .Range("D7").Value = Sheets(1).Range("B" & x).Value .Range("A14").Value = Sheets(1).Range("C" & x).Value .Range("C17").Value = Sheets(1).Range("D" & x).Value .Name = Sheets(1).Range("A" & x).Value End With End If End If a = 0: x = x + 1 If x / 10 = Int(x / 10) Then x = x + 1 Loop End With End Sub

Wat je vraagt kan allemaal. Maar als je de macro goed bestudeert, dan zou je dat zelf moeten kunnen; zo moeilijk is dat niet. Het is wat ál te gemakkelijk om zelf niks te doen en alles aan anderen over te laten. Je hebt zelf n.a.v. mijn antwoord nog helemaal niks geprobeerd.

Verwijder alle macro's in je bestand, plaats onderstaande macro in module 1 en laat die uitvoeren door het klikken op de knop in blad1. Van de laatste naam in blad1 wordt dan een nieuw blad aangemaakt. Sub Blad_toevoegen() Dim a As Integer, x As Integer, y As Integer a = 0 With Sheets(1) x = .Range("A" & .Rows.Count).End(xlUp).Row For y = 1 To Sheets.Count If Sheets(y).Name = .Range("A" & x).Value Then a = 1 End If Next y End With If a = 0 Then ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count) With Worksheets(Worksheets.Count) .Range("A1").Value = Sheets(1).Range("A" & x).Value .Range("D7").Value = Sheets(1).Range("B" & x).Value .Range("A14").Value = Sheets(1).Range("C" & x).Value .Range("C17").Value = Sheets(1).Range("D" & x).Value .Name = Sheets(1).Range("A" & x).Value End With a = 0 End If End Sub

Je kunt dit gebruiken: =INDIRECT("Blad1!$D$6")

De link die ik vermeldde is wel juist, maar blijkt niet te werken als je erop klikt. Als je hem kopieert en in de adresbalk van een browser plakt, dan kom je wel waar je moet zijn. Probeer anders onderstaande link (dat is dezelfde maar een afgekorte): https://tinyurl.com/y9rmd37m

Wat CCleaner betreft, lees bv. eens de tekst op deze webpagina: https://www.schoonepc.nl/tools/cleantools.html

CCleaner lost geen softwareproblemen op, het gebruik daarvan voor dat doel is af te raden!

Er is duidelijk iets mis met je Office 2007 (niet met Windows). Probeer Office 2007 te herstellen of installeer het opnieuw.

Dat is aan de afbeelding onmogelijk te zien, die ziet er heel normaal uit. Misschien heeft het feit dat je in compatibiliteitsmodus werkt er iets mee te maken, daardoor zou een weergave van meer dan 100% 'teruggesprongen' kunnen zijn naar 100%. Als je de weergave groter zet, blijft die dan niet gehandhaafd?

Hier ook geen problemen (Excel 2010).