17. april 2008 - 14:52Der er
2 kommentarer og 1 løsning
VBA indsætte formel i celle
Hej Eksperter
Ka' i ik' komme med en stump kode der gør følgende: tjekker arket for celler med skrift i bold. indsætter en formel 2 celler til venstre for de fundne celler.
Alternativ er at der søges efter en bestemt værdi fx. "#" og gør det samme...
Dim antalRæk, antalKol Sub findBold() antalRæk = ActiveCell.SpecialCells(xlLastCell).Row antalKol = ActiveCell.SpecialCells(xlLastCell).Column
For Each c In Range(Cells(1, 1), Cells(antalRæk, antalKol)) If c.Font.Bold = True Then c.Select ActiveCell.Offset(columnoffset:=-2).Activate ActiveCell.Formula = "= " & c.Address End If Next End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.