Makro etwas aufschlüsseln
10.07.2003 19:00:14
chris b.
habe eine riesen Bitte an euch , habe dieses Makro bekommen und es funktioniert aber könnte mir einer das Makro erklären ? Wäre Super Christian
Sub test()
Dim iZeile As Long, LetzteZeile As Long
Dim Zelle As Object
Columns("H:I").ClearContents
lzA = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For iZeile = 1 To lzA
LetzteZeile = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row
If WorksheetFunction.CountIf(Range("H1:H" & LetzteZeile), _
Cells(iZeile, 1)) = 0 Then
Cells(LetzteZeile + 1, 8) = Cells(iZeile, 1)
Cells(LetzteZeile + 1, 9) = Cells(iZeile, 3)
Cells(LetzteZeile + 1, 10) = Cells(iZeile, 4)
Else
Set Zelle = Range("H1:H" & LetzteZeile).Find(Cells(iZeile, 1), Lookat:=xlWhole)
Cells(Zelle.Row, 9) = Cells(Zelle.Row, 9) + Cells(iZeile, 3)
Cells(Zelle.Row, 10) = Cells(Zelle.Row, 10) + Cells(iZeile, 4)
End If
Next iZeile
End Sub
Anzeige