Betinget formattering

Du kan vælge betinget formatering og vælge

Formlen er : din formel > intet format

Celleværdien er : mellem [dit interval] > formater til grå

Ezolu: Dit forslag virker ikke - eksempel:
          celle C2 Indtastes =5+7  (celleværdi 12) er en indtastet formel
                C3 indtastes 8    (celleværdi  8) er en indtastet værdi
Celle C3 skal skraveres med farven grå da det er en indtastet værdi.

Læg denne makro i et modul.

Marker dit område og afspil makroen:

Sub MarkerVærdier()
    For Each c In Selection.Cells
        If Not c.HasFormula Then
            c.Interior.ColorIndex = 15
        End If
    Next c
End Sub

Jeg vil helst undgå makro hvis det er muligt.

jeg tror ikek, der er andre muligheder. Du kan ikke i betinget formatering teste på om en celle indeholder en formel.

det nemmeste (hvis ikke det skal være automatisk) er at markere hele område, trykke F5, vælge Special, vælge konstanter, tryk ok og give dem en farve.
Dette kan du også optage i en makro.

Kan man ikke bruge funktionen VÆRDITYPE() (TYPE() på engelsk)? Den giver godt nok ikke det rigtige resultat for formler (8) i version 97 af Excel - men måske virker det i senere versioner?

superjap-> I XP returnerer Værditype() 1 for celler, der indeholder formeler, samme værdi som for celler, der indeholder værdier. Og Værditype kan tilsyneladende ikke bruges i betinget formatering.

Jeg vil mene at bak's løsning eller en eller anden form for makroløsning er den eneste farbare vej. Evt kan koden lægges ind i arkets Worksheet_change hændelse, så det udføres automatisk, uden at brugeren skal afspille en makro.

Et alternativ er at lægge denne VBA-function ind, for jkrons har ret i at der ikke findes en funktion i excel der kan finde formler.

Public Function er_formel(rg As Range)
er_formel = rg.HasFormula
End Function

Den kan så bruges i betinget formatering ved at vælge
"Formel er"  =er_formel("A1")=Falsk
og så angive en farve

Hvis der ikke står en formel i A1, bliver cellen farvet.

Bak - Hvordan implementere jeg din løsning - skal helst skæres ud i pap.

sdh

tryk ALT-F11 så du kommer om i makro-editoren.
vælg "Insert / Module"
kopier koden ind i det nye modul

    Public Function er_formel(rg As Range)
      er_formel = rg.HasFormula
    End Function



tryk ALT-F11 igen så du komme tilbage i selve excel.
Funktionen er nu klar til brug, men kun i det regneark. (husk at gemme)

Bak's løsning fungere perfekt - smid et svar så jeg kan få afleveret nogle points.
På forhånd tak.

ok :-)