Problem mit Makro
10.07.2003 14:06:49
chris b
habe ein Problem habe gestern hier im Forum Hilfe bekommen mit diesem Makro
habe es leicht umgebaut für meine bedürfnisse jetzt rechnet es aber leider falsch.
Ich habe das Gefühl den Wert aus der Zelle cells(7,2) rechnet es mir unten in dem Bereich in dem er eigentlich jeden wert nur einmal schreiben soll 2* rein.
Ich hoffe es gibt da eine lösung und ihr könnt mir helfen?
Vielen Dank Chris
Sub test()
Dim lR1%, lR2%, i%, j%
lR1 = 54
'Range("H:I").Delete
Range(Cells(7, 2), Cells(lR1, 2)).AdvancedFilter _
Action:=xlFilterCopy, CriteriaRange:=Range( _
Cells(1, 1), Cells(lR1, 1)), CopyToRange:=Range("B58"), Unique:=True
lR2 = 5
For i = 58 To 69
Cells(i, 6) = 0
For j = 7 To lR1
If Cells(j, 2) = Cells(i, 2) Then
Cells(i, 6) = Cells(i, 6) + Cells(j, 6)
End If
Next j
Next i
End Sub