Bereich im Code ändern
10.08.2016 20:23:23
Spenski
Mit folgendem Code wird die komplette Zeile "markiert" wenn ich eine Zelle auswähle.
Ich möchte aber nur das die Spalten A:U "markiert" werden.
kann mir da jemand weiterhelfen wie ich das schreiben muss?
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Cells.Rows.Borders.ColorIndex = xlNone
Target.EntireRow.Borders.ColorIndex = 3
Target.EntireRow.Borders.Weight = xlThick
Target.EntireRow.Borders(xlInsideVertical).LineStyle = xlNone
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
danke und gruß
christian