|
Hallo an alle,
mir wurde damals schon mit folgendem Makro geholfen:
Public Sub beispiel()
Dim i As Integer
Dim ii As Integer
Dim hours As Integer
Dim minutes As Integer
Dim intLastColumn As Integer
Dim Names As Integer
intLastColumn = Cells(5, Columns.Count).End(xlToLeft).Column
Names = intLastColumn - 18
For ii = 19 To 19 + Names
For i = 7 To 7 + Names
If Cells(i, ii) = "P" Then
minutes = WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, 8)))
hours = WorksheetFunction.Sum(Range(Cells(i, 9), Cells(i, 17)))
Cells(7, ii) = hours & ":" & minutes
End If
Next i
Next ii
End Sub
Das Makro soll quasi zu jedem "P" schauen, was in der Zeile steht und eine Gesamtsumme bilden. Jedoch hört das Makro nach der ersten Leerzeile auf.
Bei Bedarf kann ich auch das Dokument an sich zur Verfügung stellen.
Wäre super, wenn mir jemand helfen könnte.
Ich würde es zu umständlich machen und wahrscheinlich noch 3 Bugs mehr reinhauen ;)
Liebe Grüße
|