Summe in VBA
Uwe
nicht, das ich jetzt schon wieder ein Problem hätte... Nun denn. Ich nutze eine Prozedur, um je nach Wochentag eine vorgegebene Stundenzahl (Mo-Do = 8:00 Std, Fr = 7:00 Std, Sa = 0:00 Std, So = 0:00 Std) in den Zellen "D9:D39" auszugeben. Soweit klappt das noch.
Jetzt aber besteht die Aufgabe darin, vom Wert in den Zellen "D9:D39" den Wert in Zellen "K9:K39", sowie den Wert in Zellen "M9:M39" abzuziehen.
Wie aber geht das?
Besten Dank für Eure Hilfe
Uwe
PS: Hier einfach mal das, was bisher funktioniert:
Sub Arbeitszeit_TVöD()
Dim rng As Range
Range("D9:D39").ClearContents 'Zellen erst mal leermachen
For Each rng In Me.Range("A9:A" & Me.Cells(Rows.Count, 1).End(xlUp).Row)
Select Case Weekday(rng, 2) 'Wochentag steht in Spalte 2
Case 1 To 4 'Wenn Mo - Do dann
rng.Offset(0, 3) = TimeSerial(8, 0, 0)
Case 5 'Wenn Fr dann
rng.Offset(0, 3) = TimeSerial(7, 0, 0)
Case Else
End Select
Next
End Sub