Deel van een cel in een andere kleur

[pat007]

Goeie middag,

Is er een mogelijkheid om een deel van een cel een andere kleur te zoals
Mannetjes en vrouwtjes, Klein, per zak (500) veranderen in Mannetjes en vrouwtjes, Klein, per zak (500)
Die (500) zou geel moeten worden, kan de tekst niet in kleur weergeven. Ik spreek hier een 1000 tal cellen. die 500 kan ook 250 of 10 of een ander getal zijn.

Mvg,

Pat007

 

[edmoor]

Hier krijg je zonder een voorbeeldocument geen goed antwoord op.

 

[MarcelBeug]

Volgens mij gaat het hier ook om de tekstkleur en niet om de kleur van de cel.
@Edmoor: het goede antwoord is toch gewoon "ja"? Of gaan we door voor de koelkast? :d

 

[edmoor]

Als je de pure vraag wil beantwoorden is een ja inderdaad voldoende

 

[gast0660]

Hoi,
Ik zou het zo oplossen, zie bijlage
@Marcel

Of gaan we door voor de koelkast?

Das typisch "Ollands" zeker? Ik heb geen flauw idee wat je daarmee bedoelt.

 

[edmoor]

@Marcel Das typisch "Ollands" zeker? Ik heb geen flauw idee wat je daarmee bedoelt.

Een verwijzing naar TV spelletjes...

 

[gast0660]

@ Edmoor
Ik snap hem (bij ons een TV)

 

[pat007]

Ik heb hier een voorbeeld bijgevoegd, maar dat is manueel aangepast.
Zoals U kan zien gaat het om verschillende getallen op het laatste van de tekst.
Die getallen zou de tekstkleur rood moeten worden.
Heb zo'n duizenden cellen aan te passen, om dit manueel te doen neemt dat teveel tijd in beslag.
Ik heb geprobeerd met zoeken en vervangen, maar die neemt de tekstkleur niet mee.
Ik hoop dat dit voorbeeld meer duidelijk brengt.

Mvg,

Patrick

 

[edmoor]

In je initiële vraag zeg je dat het geel moet worden. Wat moet het zijn?

 

[Ginger]

Ik zie een hoop opties in je voorbeeldbijlage...

• ([getal])
• per stuk
• (fles)
• 2500vel
• 2000/rol
• (6 rollen)
• per 100 stuks

Bedoel je dan dat élk getal dat wordt gevonden in zo'n tekstregel gekleurd moet worden? Dus...

• ([getal])
• per stuk
• (fles)
• 2500vel
• 2000/rol
• (6 rollen)
• per 100 stuks

En dat de tekstuele delen niet worden gekleurd?

 

[gast0660]

@ Ginger
Zo heb ik toch begrepen, gezien er geen enkele structuur in zit is er geen beginnen aan.

 

[pat007]

Ginger,

Het is alleen het laatste getal dat moet veranderen.
bv per stuk 500
of bv stuks 10

mvg,
pat007

 

[VenA]

Geef in het voorbeeld dan even aan hoe het er uit moet komen te zien.

 

[pat007]

VenA,

Bijgevoegd bestand is zoals het er uiteindelijk zou moeten uitzien.

Mvg,
Pat007

 

[Ginger]

Hmmm.... Dank... Maar wél met een "maar".... Want waarom gaat deze niet mee...
Anti - diefstal stickers, beveiliging, 2000/rol
...en deze wel...
Dennison attaches, voor apparaat, 5.000/doos

???

 

[MarcelBeug]

Laten we dan maar eens kijken of deze code goed is voor een koelkast of een televisie.

Sub maakRood()

    Dim doorgaan As Boolean
    Dim gevonden As Boolean
    Dim i As Integer, aantal As Integer
    Dim cl As Range
    
    For Each cl In Range("A1", Range("A" & Cells(Rows.Count, 1).End(xlUp).Row))
        i = Len(cl)
        gevonden = False
        doorgaan = True
        aantal = 0
        Do While doorgaan
            If 0 < InStr("0123456789-.,", cl.Characters(i, 1).Text) Then
                gevonden = True
                aantal = aantal + 1
            Else
                doorgaan = Not gevonden
            End If
            If Not doorgaan Then cl.Characters(i + 1, aantal).Font.Color = rgbRed
            i = i - 1
            doorgaan = doorgaan And i > 0
        Loop
    
    Next cl

End Sub

En om er nog maar eens een spreekwoord tegenaan te gooien: "Als de berg niet tot Mozes gaat, zal Mozes naar de berg gaan" (Mozes kan ook Mohammed zijn en in dit geval ook pat007), oftewel als de macro niet het gewenste resultaat oplevert, pas dan de gegevens aan om wél het gewenste resultaat te verkrijgen.

 

[pat007]

MarcelBeug,

Uw code loopt heel goed, maar als ik de range verander van "A1" naar bv "A587" dit omdat niet alle cellen moeten wijzigen krijg ik een fout melding in deze lijn If 0 < InStr("0123456789-.,", cl.Characters(i, 1).Text) Then
Fout 1004, tekst van klasse characters kan niet worden opgehaald. Ik weet niet wat dit betekend.

Ik hoop dat U iets kan aanvangen met deze foutmelding.

Mvg,
Pat007