ich hab folgenden code:
Set bereich = Range("A6:A100")

For Each cell In bereich
If Worksheets(1).Range("C2").Value = cell.Value Then
Worksheets(2).Range("C5").Value = cell.Value
Sheets("Detailansicht").Select
End If
Next
Wie kann ich nun auf zb. Worksheets(2).Range("C6").Value den wert von der rechten Nachbarszelle von cell schreiben?