formatering af en celle via en makro

E2 er formateret. Dette format ønskes anvendt på E4

    Range("E2").Select
    Selection.Copy
    Range("E4").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   
Application.CutCopyMode = False

tak  sender du et svar

Samtlige af en celles egenskaber kan både sættes og læses med de samme 'Properties'.

Hvis man f.eks. ønsker, at gøre skriftfarven i celle A1 til rød, så benytter man:

Range("A1").Font.Color = 255

(255 er Long værdien for farven rød ved brug af RGB)

Hvis man ønsker, at kender farven på skriften i celle A1 gør man blot det 'omvendte':

MsgBox Range("A1").Font.Color

I stedet for at vise farvens Long værdi i en MsgBox kunne man også tildele værdien til en variabel.

CelleSkriftFarve = Range("A1").Font.Color

Og, således er det blot, at læse alle de egenskaber ved en celle man er interesseret i.

Hvis det blot drejer sig om, at kopiere en celles format til en anden celle, f.eks. celle A1's format til celle B2, så benyt:

Range("A1").Copy
Range("B2").PasteSpecial xlPasteFormats

Selv tak