Summe bei Nachtschicht
06.01.2022 15:24:52
Bernd
bin grade auf ein weiteres Problemchen gestoßen
bei der Tagesschicht konnte ich die geleisteten Stunden berechnen
Sub D_Summe1()
Dim Bereich As Range
Set Bereich = Tabelle6.Range("F18:F24")
Tabelle1.Range("F25").Value = Application.WorksheetFunction.Sum(Bereich)
Tabelle1.Range("E25").Value = "Summe"
End Sub
Sub D_Summe2()
Dim Bereich As Range
Set Bereich = Tabelle6.Range("F26:F32")
Tabelle1.Range("F33").Value = Application.WorksheetFunction.Sum(Bereich)
Tabelle1.Range("E33").Value = "Summe"
End Sub
Sub D_Summe3()
Dim Bereich As Range
Set Bereich = Tabelle6.Range("F34:F40")
Tabelle1.Range("F41").Value = Application.WorksheetFunction.Sum(Bereich)
Tabelle1.Range("E41").Value = "Summe"
End Sub
Sub D_Summe4()
Dim Bereich As Range
Set Bereich = Tabelle6.Range("F42:F48")
Tabelle1.Range("F49").Value = Application.WorksheetFunction.Sum(Bereich)
Tabelle1.Range("E49").Value = "Summe"
End Sub
Sub D_Summe5()
Dim Bereich As Range
Set Bereich = Tabelle6.Range("F50:F56")
Tabelle1.Range("F57").Value = Application.WorksheetFunction.Sum(Bereich)
Tabelle1.Range("E57").Value = "Summe"
End Sub
wie würdet Ihr dort rangehen
Ich bedanke mich für ganz viele Vorschläge
mehrere Wege führen nach Rom :-)
Danke
Hier wieder mein Beispiel https://www.herber.de/bbs/user/150202.xlsm