Undersøgelse af celleformatering

prøv at bruge =celle(infotype;reference). Forklaring på typer og referencer findes i hjælp funktionen.

Det har jeg prøvet men jeg kan ikke få den til at undersøge om der er kant eller fyld i cellen.

Her er forløbig en funktion som checker for kanter og farver i et angivet område.
Kaldes sådan f.eks : erformat(A1:C1)

Indsæt et modul og kopier funktionen ind heri.

Public Function ErFormat(rng As Range)
For Each celle In rng
    With celle
        If .Interior.ColorIndex <> xlNone Then farve = "farve & "
        If IsNull(.Borders.Value) Or .Borders.Value = 1 Then kanter = "kanter & "
    End With
Next celle
    If farve = Empty And kanter = Empty Then
        ErFormat = "Indeholder ingen af delene"
    Else
        streng = "indeholder " & kanter & farve
        ErFormat = Left(streng, Len(streng) - 2)
    End If
End Function



Det jeg bare ikke kan få den til er at opdatere ved ændring i området.
Man er nødt til at aktivere funktionen i cellen og trykke enter før den returnerer resultatet. Mystisk !!

Hej mrjh

Det virker næsten hvis bare den kunne opdateres når der ændres i formatet er den angivne celle.

Har selv prøvet med Application.Volatile men da der jo ikke ændres i inputtet opdateres funktionen jo ikke.

Hvis du kan hjælpe med det giver jeg gerne flere point.

Hej tvc
som jeg nævner i min kommentar kan jeg heller ikke få den til at evaluere funktionen aut. og jeg kan ikke lige gennemskue hvorfor. Har desværre heller ikke tid i øjeblikket til evt. at finde ud af det, da jeg har forygende travlt med arbejde.
Lad os håbe der er andre der har en løsning.

Mrjh

Tak for hjælpen - har også nok at se til på arbejde så lad os lukke spørgsmålet for nu.

Lægger du et svar?

Hilsen

TVC

Ok. Jeg skal nok poste løsningen hvis jeg finder ud af den =:o)

Det samme her :-)

Tak for hjælpen