Bräuchte eine Kleine Hilfe wenn jemand Zeit hat :-)
Möchte denn Range verändern und in verschiedenen Bereichen aufteilen, doch gewusst wie!
Anstatt Range("A10:BA441") möchte ich das es in unterschiedlich Zeilen Bereiche aufgeteilt wird.
Wie gesagt statt ("A10:BA441") zur (A10:BA20), (A25:BA35), (A42:BA44), etc. bis BA441.
Danke im voraus für jede Hilfe
Anbei der VBA Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Unprotect "s0nne"
With Range("A10:BA441").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.PatternTintAndShade = 1
End With
If Not Intersect(Target, Range("A9:BA441")) Is Nothing Then
With Range(Cells(Target.Row, 1), Cells(Target.Row, 54)).Interior
.Pattern = xlGray25
.PatternThemeColor = xlThemeColorAccent2
.PatternTintAndShade = 0.399945066682943
End With
Application.EnableEvents = False
Target.Activate
Application.EnableEvents = True
End If
Protect "s0nne"
End Sub