Hallo zusammen,
mein Ziel ist folgendes:
In einer Datei stehen Namen und die Monate in denen die Person gearbeitet hat (1 oder 0)
Darunter jeweils die prozentuale Aufteilung für diesen Monat auf das jeweilige Projekt
mein makro macht nun folgendes: es sucht nach der jeweils ersten Zeile des Eintrags einer person durch 2 Filterkriterien und summiert die 1er der monatsspalten (15-26) auf.
anschließend durchsucht es die jeweils darunterliegenden Zeilen solange bis die projektzuordnungsreihen vorbei sind. und summiert alle Werte der Projekte für das ganze jahr auf.
nun vergleicht es die beiden summen, sind diese unterschiedlich, wurde die datei falsch gepflegt und muss nachbearbeitet werden, dafür soll der name auf ein anderes Sheet kopiert werden.
Jetzt passiert es jedoch dauernd, dass zwar beide summen identisch sind, er trotzdem in die IF-Schleife springt.
Ich hoffe ihr könnt mir helfen! ich bedanke mich schon mal für eure Unterstützung
For i_row = 2 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i_row, 7) = "Kern" And Cells(i_row, 28) = "1" Then
Set bereich_kern = Worksheets("Datenbasis").Range(Cells(i_row, 15), Cells(i_row, 26))
i_kern = Application.WorksheetFunction.Sum(bereich_kern)
i_x = i_row + 1
i_y = i_row + 1
Do While Cells(i_row + 1, 7) = "Kern_P"
Set bereich_kern_p = Worksheets("Datenbasis").Range(Cells(i_x, 15), Cells(i_y, 26))
i_row = i_row + 1
i_y = i_row
Loop
i_kern_p = Application.WorksheetFunction.Sum(bereich_kern_p)
If i_kern_p i_kern Then
name = Cells(i_row, 4)
abt = Cells(i_row, 5)
Worksheets("Nachbesserung").Activate
Range("A65536").End(xlUp).Offset(1, 0) = name
Range("B65536").End(xlUp).Offset(1, 0) = abt
Worksheets("Datenbasis").Activate
i_kern = 0
i_kern_p = 0
End If
End If
Next i_row