|
Sub test()
'
' test Makro
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"
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 100
End If
If ws1.Cells(i, 1).Value = "SI" Then
'ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*5000"
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 5000
End If
If ws1.Cells(i, 1).Value = "KC" Then
'ws1.Cells(i, 11).FormulaR1C1 = "=RC[-2]*RC[-6]*37500"
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 37500
End If
If ws1.Cells(i, 1).Value = "CC" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 10
End If
If ws1.Cells(i, 1).Value = "CL" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 1000
End If
If ws1.Cells(i, 1).Value = "NG" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 10000
End If
If ws1.Cells(i, 1).Value = "ZW" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 5000
End If
If ws1.Cells(i, 1).Value = "ZC" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 5000
End If
If ws1.Cells(i, 1).Value = "ZM" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 100
End If
If ws1.Cells(i, 1).Value = "ZS" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 5000
End If
If ws1.Cells(i, 1).Value = "ZL" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 60000
End If
If ws1.Cells(i, 1).Value = "ES" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 50
End If
If ws1.Cells(i, 1).Value = "RUT" Then
ws1.Cells(i, 11) = Cells(i, 9) * Cells(i, 5) * 100
End If
Next
End Sub
|