Aufsummieren --> Typen unverträglich
28.06.2007 16:21:24
Ellen
ich habe eine Liste in der die Werte aufsummiert werden sollen und in die darübergeordnete Zeile mit der "1" in Spalte B eingetragen werden sollen.
Bei folgendem Code bekomme ich immer den Fehler "Typen unverträglich":
Public Sub sum()
Dim sum As Currency
sum = 0
kit = 10
For i = 11 To 2000
If Cells(i, 2).Value 1 Then
sum = sum + Cells(i, 12).Value
End If
If Cells(i, 2).Value = 1 Then
Cells(kit, 14).Value = sum
kit = i
End If
Next i
End Sub
Könnt ihr mir weiterhelfen?
Danke im Voraus.
Gruß,
Ellen
Anzeige