MsgBox Druckeinrichtung mit VBA abschalten

 'Bildschirmgeflacker und Meldungen AUSschalten  
            Application.ScreenUpdating = False
            Application.DisplayAlerts = False
        
        'Max Daten Wert zuordnen  
            lngMaxData = objFoundFiles.Count
        'Worksheet Tabelle auswählen  
            Output.Activate
        'Für jede gefundene Datei in der Collection  
            For Each f In objFoundFiles
            
            'Variablen Werte zuweisen  
                strPathName = fso.GetParentFolderName(f)
                strFileName = fso.GetFileName(f)
                StrFullPathFileName = fso.GetAbsolutePathName(f)
                strAutoren = GetFileProperty(StrFullPathFileName, 20)
                strTitle = GetFileProperty(StrFullPathFileName, 21)
                strDataModified = GetFileProperty(StrFullPathFileName, 3)
                strDataCreated = GetFileProperty(StrFullPathFileName, 4)

            'Sucht nächste Freie Zeile  
                lngRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
            
            'Gibt die Datei informationen aus  
              Cells(lngRow, 1) = strPathName
              Cells(lngRow, 2) = strFileName
              Cells(lngRow, 3) = strTitle
              Cells(lngRow, 4) = strAutoren
              Cells(lngRow, 5) = strDataModified
              Cells(lngRow, 6) = strDataCreated
            
            'Fehlermeldung ausschalten  
                On Error Resume Next
            
            'öffne Datei, nur Lesen, Keine Updates  
                Set wb = Workbooks.Open(f, ReadOnly:=True, UpdateLinks:=0, Password:="Passwort").Sheets(1)  

                'Suche nach Logbuch oder Logbook in Datei --> Funktion: search()  
                    blFound = search()
                
                'Ruft Funktion checkTemplate auf und gibt eine Ganzzahl zurück ()  
                    lngTemplate = checkTemplate(blFound, strFileName)
            'Schließe Datei. False = ohne zu speichern!  
                wb.Parent.Close False
            
            'Aktiviert Tabelle Output  
                Output.Activate
            
            'Wenn blFound = True wurde was gefunden  
                If blFound = True Then
                    Cells(lngRow, 7) = "JA"  
                    Cells(lngRow, 7).Interior.Color = vbGreen
                Else
                    Cells(lngRow, 7) = "NEIN"  
                    Cells(lngRow, 7).Interior.Color = vbRed
                End If
            
            'Ausgabe Welche Vorlage  
                If lngTemplate <> 0 Then
                    Cells(lngRow, 8) = lngTemplate
                Else
                    Cells(lngRow, 8) = lngTemplate
                End If

            'Regelt die Zähler und Abbruchkriterien  
                lngMaxData = lngMaxData - 1
                lngCounter = lngCounter + 1
                Debug.Print lngMaxData
            
            'MsgBox ob nach weiteren Daten gesucht werden soll  
                If lngCounter >= lngBreak Then
                    If MsgBox("Sollen weitere Daten Angezeigt werden?", vbYesNo) = vbYes Then  
                        lngBreak = lngBreak + Worksheets("Optionen").Cells(4, 2).Value  
                    Else
                        Exit For
                    End If
            'Falls keine Daten mehr vorhanden Ausgabe  
                ElseIf lngMaxData = 0 Then
                    MsgBox "Es sind keine Daten mehr vorhanden!"  
                    Exit For
                End If
            'Zwischenspeichern  
                If lngCounter >= lngSave Then
                    ActiveWorkbook.Save
                    lngSave = lngSave + Worksheets("Optionen").Cells(7, 2).Value  
                End If
                
            Next
        
        'Object auf NULL setzen  
            blFound = False
            Set objFoundFiles = Nothing
        'Bildschirm und Meldungen wieder anschalten  
            Application.ScreenUpdating = True
            Application.DisplayAlerts = True