• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kleur voor invoer en formules in cellen

Status
Niet open voor verdere reacties.
S

Senso

Meubilair
Lid geworden
13 jun 2016
Berichten
9.638
Besturingssysteem
W10 Pro en W11 Pro
Office versie
Office 2007 H@S en Office 2021 Prof Plus
vba geldig voor heel blad1 (voorlopig om te testen).
invoer is blauw
formules e.d. is zwart
links naar ander werkblad is groen

Volgens mij moet de vba precies omgekeerd omdat de uitkomsten nu fout zijn. Wie wil dit corrigeren en geldig maken voor het hele werkblad.

Ik neem aan van toepassing op werkblad dan daar plaatsen en anders ThisWorkbook met module?

Bekijk bijlage Excel Kleur - Color hard-coded numbers.xlsm
 
Laatst bewerkt:
hallo Senso
Code: 
Sub Colorer()
Dim R As Range
With ActiveSheet.UsedRange
  .Font.ColorIndex = xlAutomatic
  .SpecialCells(xlCellTypeConstants).Font.Color = vbBlue 'invoer is blauw
  .SpecialCells(xlCellTypeFormulas).Font.Color = vbBlack 'formules e.d. is zwart
  For Each R In .SpecialCells(xlCellTypeFormulas)
    If InStr(1, R.Formula, "!") Then R.Font.Color = vbGreen 'links naar ander werkblad is groen
  Next
End With
End Sub
is deze wat voor je?
 
Bedankt. Ik ga dat proberen. Eerst wat eten. Dan weer verder met testen. Ik heb ook andere methoden ontdekt via VO en selecteren speciaal.
 
De werking is goed. Voor mijn toepassing is de "uitwerking" echter te complex/omvangrijk en ik ga werken met > Selecteren speciaal in blokken.
edit:
ben wel bezig de code iets aan te passen (proberen). Is gelukt, dus bij een nieuw document in opbouw ga ik dat zeker gebruiken.
Bedankt voor de hulp.:thumb:
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan