AW: Zellen farbig markieren und wieder löschen
17.02.2013 10:39:38
Joerg
Hallo Horst,
ich kann Deine Datei zwar nicht öffnen, da ich Excel 2003 benutze, aber folgender Ansatz:
Der linke Mausklick löst das Ereignis "Worksheet_SelectionChange" aus, welches Du abfangen kannst, z.B. (im Modul der Tabelle):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ZellArray
Dim i As Byte
ZellArray = Array("B3", "C4", "D5", "E6", "F7", "G8", "H9", "I8", "J7", "K5")
Select Case Target.Address
Case Range("B3").Address, Range("C4").Address, _
Range("D5").Address, Range("e6").Address, _
Range("f7").Address, Range("G8").Address, _
Range("h9").Address, Range("i8").Address, _
Range("J7").Address, Range("k5").Address
Target.Interior.ColorIndex = 5
Case Range("F3").Address
For i = 0 To 9
Range(ZellArray(i)).Interior.ColorIndex = 0
Next
End Select
End Sub
Das Ereignis "Worksheet_SelectionChange" wird allerding auch durch Cursor-Steuerungen ausgelöst, so dass im obigen Beispiel die Farben auch geändert werden, wenn Du die Zellen mit den Cursortasten ansteuerst. Mit der rechten Mousetaste oder einem Doppelklick ginge es besser:
"Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)"
bzw.
"Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
Viel Erfolg
Jörg