Sub test()
Dim i As Long
Dim n As Long
Dim wb As Workbook
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim low As Long
Dim low1 As Long
Set wb = ThisWorkbook
Set ws1 = ThisWorkbook.Worksheets("Einzeltrades")
Set ws2 = ThisWorkbook.Worksheets("Legende")
Set ws3 = ThisWorkbook.Worksheets("test")
ws1.Activate
low = ws1.Cells(Rows.Count, 1).End(xlUp).Row
ws3.Activate
low1 = ws3.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To low
If ws1.Cells(i, 1).Value = "GC" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*100"
End If
If ws1.Cells(i, 1).Value = "SI" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*5000"
End If
If ws1.Cells(i, 1).Value = "KC" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*37500"
End If
If ws1.Cells(i, 1).Value = "CC" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*10"
End If
If ws1.Cells(i, 1).Value = "CL" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*1000"
End If
If ws1.Cells(i, 1).Value = "NG" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*10000"
End If
If ws1.Cells(i, 1).Value = "ZW" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*5000"
End If
If ws1.Cells(i, 1).Value = "ZC" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*5000"
End If
If ws1.Cells(i, 1).Value = "ZM" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*100"
End If
If ws1.Cells(i, 1).Value = "ZS" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*5000"
End If
If ws1.Cells(i, 1).Value = "ZL" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*60000"
End If
If ws1.Cells(i, 1).Value = "ES" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*50"
End If
If ws1.Cells(i, 1).Value = "RUT" Then
ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*100"
End If
Next
End Sub