Tekst bold maken...

[rvt1982]

Goedemiddag,

Iets heel simpels maar ik kom er niet uit.....

ik wil Value/tekst bold maken.. wie kan mij hier mee helpen?

Bijvoorbeeld: ik wil de Value van "Postcode" bold maken

With Sheets("Map1")
        Aanhef = .Offset(0, 3).Value
        VoorNaam = .Offset(0, 6).Value
        Voorletters = .Offset(0, 5).Value
        AchterNaam = .Offset(0, 4).Value
        Geboortedatum = .Offset(0, 7).Value
        Postcode = .Offset(0, 8).Value
        Woonplaats = .Offset(0, 9).Value
        Dossiernummer = .Offset(0, 25).Value
End With

With Sheets("Map2")
    .Range("B10").Value = Postcode & " " & Woonplaats
End With

Alvast bedankt.

 

[HSV]

Goedemiddag,

.Range("B10") = postcode & " " & Woonplaats
    .Range("B10").Characters(1, Len(postcode)).Font.Bold = True

 

[rvt1982]

Werkt helaas nier helemaal hoe het moet zijn..
zou ik ipv de postcode de woonplaats van maken, dan maakt deze code de postcode nog steeds bold....

Goedemiddag,

.Range("B10") = postcode & " " & Woonplaats
    .Range("B10").Characters(1, Len(postcode)).Font.Bold = True

 

[Warme bakkertje]

Bijvoorbeeld: ik wil de Value van "Postcode" bold maken

Dan doet de code van Harry toch exact wat jij vraagt.
Wil je woonplaats Bold, dan moet je uiteraard de code aanpassen.

 

[OctaFish]

Of wil je maar een deel van de celinhoud vet hebben? Je voegt twee variabelen samen in één cel, en logisch dat de huidige code de hele cel vet maakt.

 

[HSV]

Natuurlijk niet @OctaFish.
Na de tweede keer pas, maar daar kwam vast reactie van.

Kleine aanpassing dan maar.

.Range("B10") = postcode & " " & Woonplaats
    [COLOR=#FF0000].range("b10").font.bold = false[/COLOR]
    .Range("B10").Characters(1, Len(postcode)).Font.Bold = True

 

[OctaFish]

@hsv: heb je de vraag wel goed begrepen?

Bijvoorbeeld: ik wil de Value van "Postcode" bold maken

With Sheets("Map2")
    .Range("B10").Value = Postcode & " " & Woonplaats
End With

Dus Postcode vet, maar woonplaats niet. Je kunt het toch moeilijk op een andere manier lezen...

 

[HSV]

Uiteraard Octafish.

Overtuig me met een bestandje dat mijn code niet werkt.

 

[Warme bakkertje]

With Sheets("Map2").Range("B10")
    .Value = postcode & " " & Woonplaats
    .Characters(InStr(1, .Value, " ") + 1, Len(Woonplaats)).Font.Bold = True
End With

Deze zet dan ALLEEN woonplaats vet.
Daarom begrijp ik de reactie van TS niet, aangezien de code van Harry enkel en alleen postcode vet maakt (zoals gevraagd werd).

 

[HSV]

Hallo Rudi,

Dank voor je steun.

Bij ons hebben we de postcode met vier cijfers en twee letters met daartussen een spatie.
Tussen de postcode en woonplaats zitten dan weer twee spaties.
Je code loopt hier dus niet goed.
Misschien is een aanpassing naar twee spaties niet verkeerd.

With Sheets("Map2").Range("B10")
    .Value = postcode & "  " & Woonplaats 'twee spaties
    .Characters(InStr(1, .Value, "  ") + 1, Len(Woonplaats)).Font.Bold = True 'hier ook twee spaties
End With

Of:

.Characters(Len(postcode) + 3, Len(Woonplaats)).Font.Bold = True

 

[snb]

Ik denk dat @Octa een 'zware' zaterdagavond achter de rug had...

 

[HSV]

Ik denk het ook @snb.
Wat me wel tegenvalt is dat er geen reactie meer komt.
Zowel van OctaFish (verenigingslid en auteur van de Access cursus in de nieuwsbrief van Helpmij.nl) als van de TS.

Maar goed, het gaat zoals het komt.

 

[OctaFish]

Wat moeite er nog aan toevoegen als TS zo rustig blijft? Je hebt toch een oplossing gegeven? Ik had wel wat beters te doen in mijn vakantie...

 

[rvt1982]

Sorry voor de late reactie,
ik kreeg vandaag pas een mail dat er een reactie geplaatst is..

Mijn dank ik weer eens groot gezien jullie mij weer geholpen hebben :thumb: