Sub test()
Sheets("Tabelle3").Activate
ActivateSheet.Cells(11, 3).Select '11 ist die Zeile und 3 die Spalte C
If ActivateSheet.Cells(11, 3).Value = "10" Then
If ActivateSheet.Cells(11, 8).Value = ActivateSheet.Cells(11, 7).Value
If ActivateSheet.Cells(11, 7).Value = ActivateSheet.Cells(11, 6).Value
If ActivateSheet.Cells(11, 6).Value = ActivateSheet.Cells(11, 5).Value
If ActivateSheet.Cells(11, 5).Value = ActivateSheet.Cells(11, 4).Value
If ActivateSheet.Cells(11, 4).Value = ActivateSheet.Cells(11, 3).Value
If ActivateSheet.Cells(11, 3).Value = ""
End If
End Sub