Spalte auswählen als Range in VBScript
03.05.2022 21:37:29
Yves
Ich möchte folgendes: Bei einer aktiven Zelle sollte die Schriftfarbe von weiss nach schwarz wechseln (aktive Zelle immer schwarz, nicht aktive Zelle weiss).
Ich habe einen Codeschnipsel gefunden, der das macht:
Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Static xLastRng As Range
On Error Resume Next
Target.Font.ColorIndex = 1
xLastRng.Font.ColorIndex = 2
Set xLastRng = Target
End Sub
Yves
Anzeige