vorhandenen Code kürzen
12.12.2022 11:00:53
Jörg
Kann man folgenden Code kürzen?
Mein Problem ist, ich brauche diesen Code noch 17 mal.
Die folgenden Zeilen sind:16-21, 24-29, 32-37 usw., die letzten sind 144-147.
Vielen Dank für eure Mühen in diesem Forum.
Man kann sehr viel lernen.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C8:C9").Interior.ColorIndex = Range("D8").Interior.ColorIndex
Range("C10:C11").Interior.ColorIndex = Range("D10").Interior.ColorIndex
Range("C12:C13").Interior.ColorIndex = Range("D12").Interior.ColorIndex
Range("E8:E9").Interior.ColorIndex = Range("F8").Interior.ColorIndex
Range("E10:E11").Interior.ColorIndex = Range("F10").Interior.ColorIndex
Range("E12:E13").Interior.ColorIndex = Range("F12").Interior.ColorIndex
Range("G8:G9").Interior.ColorIndex = Range("H8").Interior.ColorIndex
Range("G10:G11").Interior.ColorIndex = Range("H10").Interior.ColorIndex
Range("G12:G13").Interior.ColorIndex = Range("H12").Interior.ColorIndex
Range("I8:I9").Interior.ColorIndex = Range("J8").Interior.ColorIndex
Range("I10:I11").Interior.ColorIndex = Range("J10").Interior.ColorIndex
Range("I12:I13").Interior.ColorIndex = Range("J12").Interior.ColorIndex
Range("K8:K9").Interior.ColorIndex = Range("L8").Interior.ColorIndex
Range("K10:K11").Interior.ColorIndex = Range("L10").Interior.ColorIndex
Range("K12:K13").Interior.ColorIndex = Range("L12").Interior.ColorIndex
Range("M8:M9").Interior.ColorIndex = Range("N8").Interior.ColorIndex
Range("M10:M11").Interior.ColorIndex = Range("N10").Interior.ColorIndex
Range("M12:M13").Interior.ColorIndex = Range("N12").Interior.ColorIndex
Range("O8:O9").Interior.ColorIndex = Range("P8").Interior.ColorIndex
Range("O10:O11").Interior.ColorIndex = Range("P10").Interior.ColorIndex
Range("O12:O13").Interior.ColorIndex = Range("P12").Interior.ColorIndex
End Sub