|
Moin,
ich habe unten stehenden Code, der nun erweitert werden muss.
Der Wert aus Zelle Cells (n,4) soll vor dem Abziehen in Spalte "O" übertragen werden nun dort mit einem bereits vorhandenen Wert addiert werden.
Beispiel: Ein Mitarbeiter baut 10 Überstunden ab, der Wert "10" wird zum Wert in Zelle "O" addiert und anschließend wie im Code dargelegt abgezogen.
Ziel ist es nachverfolgen zu können, wie viele Stunden der Mitarbeiter bereits abgebaut hat.
Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht.
Kann mir jemand helfen?
Gruß
Carl
Sub ÜberstundenabziehenWerkstatt()
Dim LeZe As Long
Dim n As Single
Dim i As Single
Dim Dneu As Single
LeZe = ThisWorkbook.Worksheets("Werkstatt").Cells(Rows.Count, 4).End(xlUp).Row
For n = 4 To LeZe 'Zeilen
Dneu = Cells(n, 4)
For i = 5 To 18 ' Spalten E bis R
If Dneu <= Cells(n, i) Then
Cells(n, i) = Cells(n, i) - Dneu
Dneu = 0
Else
Dneu = Dneu - Cells(n, i)
Cells(n, i) = 0
End If
Next i
Cells(n, 4) = 0
Next n
End Sub
|