folgendes möchte ich realsieren:
ausgehend von der aktiven Zelle soll die aktuelle Spalte nach identischen Werten durchsucht werden. Wird ein gleicher Wert gefunden, soll in der jeweiligen Zeile, die Zelle, die acht Spalten weiter rechts steht, blau markiert werden. Folgenden Code hab ich schon, leider klappt da gar nichts. Kann mir jemand helfen ?
Sub gleiche_Werte()
Dim Summe As Variant
Dim Name As Variant
Dim z As Integer
Name = ActiveCell.Value
z = 2
If ActiveCell.Column <> 2 Or ActiveCell.Value = "" Then _
MsgBox ("Wähle zuerst einen Werte aus Spalte B.") _
, vbCritical, "FEHLER" Else
Range("B2").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value = Name Then
Summe = Summe + ActiveCell.Value
ActiveCell.Offset(0, 8).Select
Selection.Interior.ColorIndex = 37
End If
z = z + 1
Cells(z, 3).Select
Loop
End Sub