VBA-Code anpassen

Bild

Betrifft: VBA-Code anpassen
von: Thomas
Geschrieben am: 13.10.2015 11:02:18

Hallo zusammen,
mit dem unten stehenden Code wird die ganze aktive Zeile farblich hinterlegt. Kann mir jemand den Code so anpassen, dass nur die Spalte B und C in der entsprechenden Zeile farblich markiert wird.
Vielen Dank im Voraus.
Grüße
Thomas

Dim Merk, Farbe
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Merk <> "" Then Rows(Merk).Interior.ColorIndex = Farbe
    If Intersect(Target, Range("D21:M30")) Is Nothing Then Exit Sub
   
    Merk = Target.Row
    Farbe = Target.Interior.ColorIndex
   
    Rows(Target.Row).Interior.ColorIndex = 43
End Sub

Bild

Betrifft: AW: VBA-Code anpassen
von: selli
Geschrieben am: 13.10.2015 11:17:51
hallo thomas,
ersetze
Rows(Target.Row).Interior.ColorIndex = 43
durch
cells(2,Target.Row).Interior.ColorIndex = 43
cells(3,Target.Row).Interior.ColorIndex = 43
gruß
selli

Bild

Betrifft: AW: VBA-Code anpassen
von: Bastian
Geschrieben am: 13.10.2015 11:24:00
Hallo Thomas,
ändere die letzte Zeile in:


Range(Cells(Target.Row, 2), Cells(Target.Row, 3)).Interior.ColorIndex = 43
Gruß, Bastian

Bild

Betrifft: AW: VBA-Code anpassen
von: Thomas
Geschrieben am: 13.10.2015 11:46:21
Sehr schön!!!
Vielen Dank!

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code anpassen"