Code erweitern
03.02.2023 14:10:26
Jörg
Ich möchte folgenden Code erweitern.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim i As Integer i = Range("d7").Interior.ColorIndex Range("c6:e9").Interior.ColorIndex = i End SubZielsetzung ist: Wenn ich eine Zelle auswähle, sollen die Zellen darum mit eingefärbt werden.
Beispiel: J7=I6:K9, P71=O70:Q73
Danke