Weiss jemand warum dieser Code nicht arbeitet ?
11.10.2005 16:55:39
Stefan
ich habe aus einem alten Makro die Daten entsprechend umgeändert und das ist dass Resultat. Nur leider macht das makro nichts. Es kommt kurz ne Uhr und das wars, keine Zahlen nichts. Aber da muessten welche kommen. Weiss jemand Rat ?
Vielen Dank für eure Hilfe !!!
Sub TBERECHNUNG()
Dim i As Long
Dim j As Long
Dim rngX As Range 'Such-Range
Dim rngZ As Range 'Summen-Range
On Error Resume Next 'Bei Fehler Prozedur fortführen
Set rngX = Worksheets("CAPYTD").Range("A:A") 'Such-Range
Set rngZ = Worksheets("CAPYTD").Range("M:M") 'Summen-Range
For i = 6 To 69
Range("E" & i) = Application.SumIf(rngX, Range("B" & i & "Project"), rngZ)
Next i
End Sub