kann mir bitte einer kurz licht machen!?
Set Bereich funzt so nicht.
Wenn ich .Value rausnehme läuft er durch aber ohne Ergebnis!?
Die einfachen Dinge...!
Sub Schaltfläche6_Klicken()
Dim Wert As Long
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Workbooks("Daten.xlsm").Worksheets("AllIn").Range("A:A").Value
With Sheets("Kalk")
Wert = .Range("A2").Value
For Each Zelle In Bereich
If Zelle.Value = Wert Then
.Range("A2").Interior.ColorIndex = 5
End If
Next Zelle
End With
End Sub
Besten DankNilo