Option Explicit Sub faerben() Dim rngC As Range, rngD As Range For Each rngC In Range("D2:G2") For Each rngD In Range("D3:G3") If Right(rngD, Len(rngD) - 3) = Right(rngC, Len(rngC) - 3) Then rngC.Interior.ColorIndex = 3 End If Next Next End Sub
Option Explicit
Wofür steht eigentlich das Option Explicit
58.6k Fragen
250k Antworten
7.2k Nutzer