Macro til ændring af tekst 2
Sub test()Dim myrange As Range, c As Range, Rk As Long
Rk = Range("F65536").End(xlUp).Row
Set myrange = Range("F1:F" & Rk)
For Each c In myrange.Cells
If UCase(c) = "EFT" Or UCase(c) = "FØR" Then
c.Offset(0, 1).Font.Bold = True 'første celle
Else
c.Offset(0, 1).Font.Bold = False
End If
Next
End Sub
Ovenstående macro har kabbak været så venlig at lave til mig.
Nu er mit håb, at den kan videre udvikles til følgende.
EFT = Pris efter/FØR = Pris før. (Kolonne F)
I kolonne G ud for FØR står et beløb og ud for EFT står et beløb (FØR er altid placeret først). Hvis EFT er lavere end FØR skal beløbet markere med rød-skrift, er EFT +10% større skal den markere med blå-skrift - stadigvæk med fed.
