Helpmij'ers
Ik heb hier op het forum een tijdje geleden onderstaande code gevonden en een beetje aangepast, dit werkt..
Nu wil ik alleen de tekst die komt achter "van" en "naar" in het rood laten verschijnen dat dit opvalt in het logtabblad.
Dit had ik geprobeerd via "<font color = #FF0000>" ,HTML opmaak. Maar dat is blijkbaar niet de manier...
Als de cel leeg was dat er "LEEG" komt te staan, ook als men iets verwijdert uit een cel "LEEG" komt te staan...
En bij het bereiken van 1000 regels terug op regel één beginnen, kwestie van file wat te "sparen"..
Mvg
Ik heb hier op het forum een tijdje geleden onderstaande code gevonden en een beetje aangepast, dit werkt..
Code:
Dim PreviousValue
Private Sub Worksheet_Change(ByVal target As Range)
If target.Value <> PreviousValue Then
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Value = _
Replace((Environ("username")), ".", " ") & " wijzigde " & ActiveSheet.Name & target.Address _
& " van " & UCase(PreviousValue) & " naar " & UCase(target.Value) & " op " & Date & " " & Time
End If
End Sub
Nu wil ik alleen de tekst die komt achter "van" en "naar" in het rood laten verschijnen dat dit opvalt in het logtabblad.
Dit had ik geprobeerd via "<font color = #FF0000>" ,HTML opmaak. Maar dat is blijkbaar niet de manier...
Als de cel leeg was dat er "LEEG" komt te staan, ook als men iets verwijdert uit een cel "LEEG" komt te staan...
En bij het bereiken van 1000 regels terug op regel één beginnen, kwestie van file wat te "sparen"..
Mvg
Laatst bewerkt: