Zeitdifferenz in Zelle einfügen
Alina
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möchte ich aber, dass Excel mir auch die gesamten Überstunden - inklusive Minusstunden - pro Monat ausrechnet. Die mOnatsansicht befindet sich auf einem Tabellenblatt.
Da Excel ja nicht ohne weiteres Minusstunden berechen kann, habe ich ich eben die Minusstunden summiert, die Überstunden summiert und sie dann so voneinander abgezogen, dass eine positive Zahl rauskommt. Erkennen soll man die Minus-/Plusstunden an der Schriftfärbung, wie bei den Tagesüberstunden auch.
Excel berechnet mir auch fleißig die Stunden, weigert sich aber, den Wert in irgendeine Zelle _ zu schreiben. Es kommt die Fehlermeldung: Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler. Hier einmal der Code:
Sub Überstunden()
Dim Summe1 As Date
Dim Summe2 As Date
Dim Summe As Date
E = Worksheets.Count
For f = 3 To E
Worksheets(f).Activate
r = Cells(Rows.Count, 1).End(xlUp).Row
I = 3
While I Range("A1") = Summe Hier meckert er immer
Columns("A:H").EntireColumn.AutoFit
Worksheets(1).Activate
End Sub
Anzeige