|
Sehr geehrte Forummitglieder,
Ich habe eine Frage bezüglich zusammenarbeit von Makros und "Intelligenten Tabellen".
Ich habe nämlich das Problem, dass mein Makro nur richtig funktioniert, wenn die Tabelle nicht formatiert ist. Aufgrund des Autofills, habe ich angenommen, standardisiert er eine Formel auf die ganze Spalte.
Mein Makro hat die Funktion die Tabelle nach bestimmten bedingungen zu scannen, und bestimmte Felder mit anderen Feldern und Zahlen multiplizieren und das Ergebnis in ein Feld einfügen.
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"
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
Meine Frage ist wie ich das Makro mit der formatierten Tabelle zu Kooperation zwinge.
Vielen Dank im Voraus
A.M.
|