Zellen einfärben / entfärben -> Worksheet change
13.03.2015 17:52:17
Bernhard
Ich habe ein Excel File, welches ein simples Terminprogramm enthält.
über Target wähle ich einige aneinanderhängende Zeilen an.
über Worksheet_SelectionChange(ByVal Target As Range) färbe ich die markierten Zellen ein.
Mein Wunsch wäre nun:
Markiere ich die Zellen von links nach rechts soll es die Zellen einfärben
Markiere ich die Zellen von rechts nach links, soll es allfällig eingefärbte Zellen wieder auf "keine Füllung" setzen. Alternativ könnte ich mir vorstellen, beim Selektieren für das "Entfärben" die ctrl - Taste zu drücken.
Hat jemand eine gute Idee für mich?
Aktueller Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = 1 And Target.Column >= 7 And Target.Column = _
18 And Target.Row Vielen Dank & Gruss
Bernhard