Hallo

Vielleicht so:

Option Explicit
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Das Makro soll Tage in einem bestimmten Bereich zusammenzählen und dann ein (und in der Folge weitere) Pop-Up-Fenster öffnen
Dim Bereich As Range
Dim Antwort As String


With ThisWorkbook.Worksheets("Tabelle1")

'Dieser Bereich soll zusammengezählt werden
Set Bereich = .Range("d15:d40")
 
'Summe soll in Zelle D41 geschrieben werden
.Range("d41").Value = Application.WorksheetFunction.Sum(Bereich)
 

'Zelle G2 ungleich geprüft
If .Range("g2").Value <> "geprüft" Then
    'Bereich grösser als 90 (Tage)
    If .Range("d41") >= 90 Then
        MsgBox "Heizung prüfen! (>= 90 Tage)", vbOKOnly + vbExclamation
        Antwort = MsgBox("Wurde die Heizung geprüft?", vbYesNoCancel + vbQuestion)
            If Antwort = vbYes Then
                .Range("g2").Value = "geprüft"
                .Range("h2").Value = VBA.Environ("UserName")
                .Range("i2").Value = Format(Now, "DD.MM.YYYY_HH:MM:SS")
                .Range("g2:i2").Interior.ColorIndex = 4
                .Range("g10").Value = InputBox("Welche Firma?")
                
                Do
                    Antwort = InputBox("Wann geprüft? Bitte Datum eingeben!", "Datum  TT.MM.JJJJ", _
                                        FormatDateTime(Date, vbShortDate))
                Loop Until Antwort <> "" And IsDate(Antwort)
                .Range("g13").Value = Format(Antwort, "DD.MM.YYYY")
                
            ElseIf Antwort = vbNo Then
                .Range("g2").Value = "NICHT geprüft!!!"
                .Range("h2").Value = VBA.Environ("UserName")
                .Range("i2").Value = Format(Now, "DD.MM.YYYY_HH:MM:SS")
                .Range("g2:i2").Font.Bold = True
                .Range("g2:i2").Interior.ColorIndex = 3
            Else
                MsgBox "Warum brichst Du ab?"
            End If
    End If
End If
End With

mfg, GraFri