WochenSollstunden (@ErichG)
Uwe
vor längerer Zeit habe ich von Dir, Erich, das unten aufgeführte Makro bekommen, das, für sich betrachtet, richtig gut funktioniert. Es dient mir dazu, vorgegebene Wochenstunden in dafür eigens verbundene Zellen zusammenzurechen und auszugeben. So weit, so gut...
Zwingend kommt allerdings nun noch eine Bedingung hinzu, die einfach nicht funktionieren will. Dem ersten Wert (iStart), also dem Wert in den ersten verbundenen Zellen in Spalte C soll stets der Wert aus Zelle C8, also (8, 3) hinzugerechnet werden. Und dies ohne weitere Bedingung(en). Was "läuft" da falsch?
Ich gehe einfach davon aus, das der betreffende Ausdruck falsch ist oder nur an falscher Stelle steht...
Besten Dank für `nen sachdienlichen Hinweis...
Uwe
Hier einfach mal der Code:
Sub Soll_TVöD(wks As Worksheet, iStart As Long, iEnde As Long)
Dim i As Integer, rngC As Range, sngSum As Single
Dim arrZeit
arrZeit = Array(8, 8, 8, 8, 7, 0, 0)
With wks
Set rngC = .Cells(iStart, 3).MergeArea
If iStart = 5 Then sngSum = .Cells(8, 3)
For i = iStart To iEnde
sngSum = sngSum + arrZeit(Weekday(.Cells(i, 1), vbMonday) - 1) / 24 - .Cells(i, 11) - .Cells(i, _
13)
If Weekday(.Cells(i, 1), vbMonday) = 7 Or i = iEnde Then
rngC = sngSum
If i iEnde Then sngSum = 0
Set rngC = .Cells(i + 1, 3).MergeArea
End If
Next i
End With
End Sub