Ich möchte 2 Zellen beim anklicken einer bestimmten Zelle (gleiche Zeile) farbig markieren. Es gibt viele Diskussionen darüber, hier habe ich einen Code gefunden der die vorherige Zellfarbe nicht ändert. Allerdings wird in diesem Code nur eine Zelle farbig markiert. Im Beispiel Zelle 3. Ich möchte aber das Zelle 3 und Zelle 4 markiert werden. Vielen Dank für eure Hilfe.
Ich habe folenden Code auf einer Excel Site gefunden:
"Quelle: http://www.hajo-excel.de/vba_markieren_zelle.htm = Zelle markieren5"
Option Explicit
' Grundlage für SelectionChange http://www.ms-office-forum.net/forum/showthread.php?p=1743114&posted=1#post1743114
' angepast nicht Color Index, ohne Farbe, Anzahl Zellen
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
'ActiveSheet.Unprotect "Test"
If StZelle = "" Then
StZelle = Cells(Target.Row, 3).Address
LoFarbe = Cells(Target.Row, 3).Interior.Color
Cells(Target.Row, 3).Interior.Color = 255
BoFett = Cells(Target.Row, 3).Font.Bold
Else
If LoFarbe = 16777215 Then
Range(StZelle).Interior.ColorIndex = xlNone
Else
Range(StZelle).Interior.Color = LoFarbe
End If
Range(StZelle).Font.Bold = BoFett
LoFarbe = Cells(Target.Row, 3).Interior.Color
BoFett = Cells(Target.Row, 3).Font.Bold
StZelle = Cells(Target.Row, 3).Address
Cells(Target.Row, 3).Interior.Color = 255
Cells(Target.Row, 3).Font.Bold = True
End If
'ActiveSheet.Protect "Test"
End If
End Sub
Private Sub Worksheet_Deactivate()
'* H. Ziplies *
'* 04.06.16 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de
If StZelle "" Then
'ActiveSheet.Unprotect "Test"
Range(StZelle).Interior.Color = LoFarbe
Range(StZelle).Font.Bold = BoFett
'ActiveSheet.Protect "Test"
End If
End Sub
Option Explicit
'**************************************************
'* H. Ziplies *
'* 04.06.16 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de *
'**************************************************
Public StZelle As String
Public LoFarbe As Long
Public BoFett As Boolean