alpha

In de derde regel van onder staat: Application.ScreenUpdating = False . False moet je vervangen door True . Bovenaan staat het ook, maar daar moet blijven staan wat er staat.

Succes met al dat werk, het lijkt me een hels karwei.

Dank voor de respons. Interessant en belangrijk werk, het vastleggen van dialect. Om het dialect van welke streek gaat het ?

Heb je in het document dat op je vorige vraag betrekking had, de vette tekst per ongeluk verwijderd (omdat je nu vraagt die weer vet te maken)? Onderstaande macro doet wat je wenst en er is rekening gehouden met blanco regels en ook met alinea's waarin geen dubbele punt voorkomt (moest dat niet het geval zijn, zou de macro worden onderbroken en er een foutmelding volgen). Voor 400 pagina's kan de uitvoering natuurlijk wel even duren, dus heb geduld. Option Explicit Sub macro1() Dim c, Sent As Sentences, p As Paragraph, x As Long Application.ScreenUpdating = False For Each p In ActiveDocument.Range.Paragraphs Set Sent = p.Range.Sentences Set c = Sent(1) With c.Find .Text = ":" .Execute If .Found Then x = 1 With Sent(1) Do While Sent(1).Characters(x) <> ":" Sent(1).Characters(x).Font.Bold = True x = x + 1 Loop End With End If End With Next p Application.ScreenUpdating = False Set Sent = Nothing End Sub

En vergeet niet om in B7 in te voeren: TECHNISCHE CONTROLE i.p.v. TECHNISCE CONTROLE

Blad "Overzicht": Je had in rij 8 voor STT34 in alle cellen 05-05-17 ingevuld, dat is niet juist; die datum geldt maar voor 3 cellen. Typ in B8 , afsluitend met Ctrl-Shift-Enter en kopieer daarna naar rechts: =ALS.FOUT(INDEX('Invoer Gegevens'!$B$4:$D$15;VERGELIJKEN("zzz";ALS('Invoer Gegevens'!$D$4:$D$15=B$7;ALS('Invoer Gegevens'!$B$4:$B$15=$C$3;'Invoer Gegevens'!$D$4:$D$15;0)));2);"")

Dat kan, maar dan is dat toch gebeurd op grond van een actie voordat je de computer afsloot. Het gevolg van die actie zie je pas na opnieuw opstarten van Excel (en evt. ook de computer), zie mijn vorig bericht.

Wel interessant om te vernemen door welke actie dat is gebeurd.

@vtveen, controleer of een afdrukbereik is ingesteld, of dat is ingesteld dat de gegevens op de pagina gecentreerd moeten worden. Na wijziging daarvan Excel afsluiten en weer opstarten.

In de bijlage 2 voorbeelden met voorwaardelijke opmaak. In het onderste voorbeeld kun je evt. ook met kleurovergangen werken, maar ik denk niet dat het daarmee duidelijker wordt. PC-Helpf Ruth Berkers.xlsx

Zou kunnen iEscape. Nog een andere poging: Kies in het menu: "Gegevens" - "Groeperen" -->"Auto-overzicht" (en als dat niet helpt, probeer "Degroeperen" --> "Overzicht wissen").

Je hebt gelijk iEscape, had ik moeten zien. Hopelijk heeft TS na uitvinken van het voorbeeldvenster de computer opnieuw opgestart (dat kan soms van belang zijn).

En maak het screenshot als je op "Beeld" hebt geklikt ! Heb je overigens geprobeerd wat Grote Woef schreef, want dat is bij uitstek het eerste dat kan helpen.

Heb je al gecontroleerd of er een tweede blad actief is en zo ja of 1 van de bladen verborgen is ? Klik bovenaan in het menu op "Beeld" en controleer of je in de groep "Venster" de optie "Zichtbaar maken" kunt aanvinken. Als dat wél het geval is, verschijnt er een klein venster waarin je kunt kiezen welk blad je kunt zichtbaar maken.

Probeer dit: Plaats de cursor op de rand van de kolomkoppen en het vlak daarboven, de cursor verandert dan in een vertikaal streepje met zowel bovne- als onderaan 2 pijltjes. Druk dan de linkermuisknop in en houd die ingedrukt terwijl je het vlak met cellen zo ver mogelijk naar boven sleept.

Dat is kennelijk teveel gevraagd. @Moderator, ik zou dit topic maar afsluiten.

En Joey, is je probleem opgelost ?

@vuberke, Excel heeft een helpfile, daarin wordt zeer veel zeer goed uitgelegd, ook wat voorwaardelijke opmaak betreft.

Op mijn computer kan ik in het document ook niets vreemds ontdekken; geen vreemde reactie door Word bij het plaatsen van dubbele punten en hoofdletters. Er is ook geen invoegtoepassing of een macro actief. Over wat de oorzaak is van het vreemde gedrag bij de vragensteller, moet ik het antwoord schuldig blijven. Maar gelet op het feit dat het probleem zich alleen op haar computer voordoet, moeten we redelijkerwijs aan iets op haar computer denken. Maar zover waren zijzelf en Passer ook al.

Helaas laat je niet zien waarvoor B1 zoal wordt gebruikt, dat kan wel nodig zijn voor een geschikte oplossing. Het tweede voorbeelddoc dat je beloofde, plaatste je ook niet, kortom je medewerking aan een oplossing voor jezelf is wel erg minimaal. Je kunt dit proberen, wel in de aanname dat de mappen die je zelf in je vraag hebt vermeld, ook bestaan. Sub Macro1() Dim x As Integer, lr As Integer With Sheets("Blad1") Application.ScreenUpdating = False lr = .Cells(Rows.Count, 1).End(xlUp).Row For x = 7 To lr .Range("b1").Value = .Range("a" & x).Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "M:\Zorgdivisie\Stagiairs\Monitoring & Control\BOTMAP\" & Range("b" & x).Value & ".pdf" Next x Application.ScreenUpdating = True End With End Sub

Dat (tweede) voorbeelddoc zie ik niet. En het is mij nog altijd niet duidelijk waarom A7, A8, enz. in B1 moet worden ingevuld als je die getallen ook uit A7, A8, enz. kunt halen.

Mirjam, Wis (bijna) alles van het document, sla het op onder een andere naam en plaats het hier op het forum, dan kunnen we er eens naar kijken. Misschien kan dan iets over de oorzaak worden gezegd.

Wat heeft het invullen van B1 voor nut als je pdf-bestanden wil maken van alle namen van B7 t/m B97 ?

@Ankie, je hebt in je bijlage werken in vba onmogelijk gemaakt. Dat is niet zo slim als je anderen aan je probleem wil laten werken.

Ja, dat is wel duidelijk, want dat is de enige opdracht in de macro die wat moet doen; daar had je 'On error...' niet voor weg hoeven te halen. Ik heb er het topic van vorig jaar op nageslagen en daarin schreef ik duidelijk: Ervan uitgaande dat er alleen horizontale pagina-einden zijn..... In jouw blad zijn er nu niet alleen horizontale- maar ook vertikale pagina-einden, dus logisch dat de code dan niet werkt! Bovendien heb je de pagina's slecht ingedeeld, er zijn tabellen die overlopen van de ene naar de andere pagina. Stel in dat de pagina-einden moeten worden weergegeven, dan zie je dat meteen. Ik heb nu geen tijd om er verder naar te kijken, maar bestudeer de code en probeer zelf ook eens wat!!