ich habe ein Makro von Werner erhalten, welches meine Kriterien soweit
erfüllt.
Meine gesuchte Zelle wird Rot.
Jetzt sollte auch der Courser auf die gesuchte Zell stehen, ich krieg es nicht hin.
Dim finden, zelle As Range
Dim Wert As String
Sheets("510 VN Überglas").Range("C6:L16").Select
With Selection.Interior
.Pattern = xlNone
' .TintAndShade = 0
' .PatternTintAndShade = 0
End With
Set finden = Sheets("Matrix").Range("C6:L16")
Wert = Sheets("Auftrag").Range("H26")
For Each zelle In finden
If zelle.Text = Wert Then
zelle.Interior.Color = vbRed
Else
' zelle.Interior.Color = vbGreen
End If
Next
' zelle.Select '<<< damit scheitere ich
mfg
philipp