Fortryd virker ikke pga. VBA
Hejsa,Jeg har en VBA kørende i baggrunden, for at farve teksten i en celle blå fra et bestemt ord og resten af teksten i cellen, hvis den finder det bestemte ord.
Dette gør så at jeg ikke kan fortryde en handling mere.
Det har jeg som sådan fået svar på her, med mindre der er kommet nye ting til senere. https://www.computerworld.dk/eksperten/spm/1012510
Jeg kan så lave det som en kode der køres med fx tryk på en knap.
Men vil det kunne laves med en betinget formatering af cellerne?
Her er min kode:
Public Sub Worksheet_Change(ByVal Target As Range)
'Sub TextPartColourMacro()
' Declarations and Initialisation
Dim Row As Integer, Col As Integer
Dim CurrentCellText As String
Col = 8
' Loop Through Rows
For Row = 20 To 3500
' Get Text in Current Cell
CurrentCellText = ActiveSheet.Cells(Row, Col).Value
' Get the Position of the Text WORD
StartPosition = InStr(1, CurrentCellText, "WORD:")
' Colour the Word Blue
If StartPosition > 0 Then
ActiveSheet.Cells(Row, Col).Characters(HotStartPosition, 2000).Font.Color = RGB(0, 0, 255)
End If
Next Row
End Sub
