ich benötige Hilfe bei einem Code. Mein Programm soll folgendes machen:
-Vergleich von zwei Bereichen in zwei Blätter in einer Datei
-wenn der Inhalt von zwei Zellen aus den Bereichen gleich ist,
soll in Blatt 1 die Hintergrundfarbe zwei Zellen über der aktiven Zelle ausgelesen werden
-der Farbindex soll dann in die aktive Zelle von Blatt zwei eingefügt werden
Vermutlich scheitere ich im Moment dadran, den letzten Punkt der Liste umzusetzen.
Mein Code sieht bisher so aus:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Adress = Worksheets("Blatt1").Range("C25:BC25") Then
Dim Color As Integer
Dim bA As Range
Dim i As Integer
bA = Range("B3:I17")
For i = 3 To 55
If Worksheets("Blatt1").Cells(27, i) = bA Then
Color = Worksheets("Blatt1").Cells(25, i).Interior.ColorIndex
End If
If bA = Worksheets("Blatt1").Cells(27, i) Then
ActiveCell.Interior.ColorIndex = Color
End If
Next
End If
End Sub
Über einen Hinweis würde ich mich wirklich freuen!