Microsoft Excel

Excel und VBA: Beitrag aus Herbers Excel-Forumsarchiv

Zelle anklicken - Zeile und Spalte farbig

Betrifft: Zelle anklicken - Zeile und Spalte farbig
von: juewo
Geschrieben am: 14.07.2011 11:25:49

Hallo,
ich habe eine Tabelle im Bereich A1: CO377.
Wenn ich z.B. die Zelle J208 anklicke, soll sich die Zeile 208 und die Spalte J einfärben.
Ich hoffe es gibt einen recht einfachen Weg.

Danke schonmal.

Jürgen

  

Betrifft: AW: Zelle anklicken - Zeile und Spalte farbig
von: Matthias L
Geschrieben am: 14.07.2011 11:39:39

Hallo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRng
Set myRng = Range("A1:CO307")
If Not Intersect(Target, myRng) Is Nothing Then
   myRng.Interior.ColorIndex = xlNone
   Columns(ActiveCell.Column).Interior.ColorIndex = 6
   Rows(ActiveCell.Row).Interior.ColorIndex = 6
End If
End Sub

Gruß Matthias


  

Betrifft: AW: Zelle anklicken - Zeile und Spalte farbig
von: juewo
Geschrieben am: 14.07.2011 12:35:43

Super und vielen Dank !!!