aus UF Excel beenden - Calculate
30.06.2021 13:59:59
Peter
ich habe eine Frage:
In einer UF beende ich mit nachstehendem Code die Excel-Datei bzw. Excel sofern keine weitere Excel-Datei geöffnet ist:
'Beenden
Private Sub CommandButton2_Click()
'Anfang aktuellen Pfad in Worddaten B59 einfügen für Prüfung in DieseArbeitsmappe Workbook_Open
Call aktuellen_Pfad_Inhalt_kopieren_einfügen
'Ende aktuellen Pfad in Worddaten B59 einfügen für Prüfung in DieseArbeitsmappe Workbook_Open
If Application.Workbooks.Count > 1 Then
Calculate
ThisWorkbook.Save
ThisWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ThisWorkbook.Save
''ThisWorkbook.Close 'darf nicht aktiviert werden
Application.Quit
End If
End Sub
Ich habe die Datei auf anderem PC gestartet mit Office 2016 hier ein Problem - Calculate nicht erkannt.
Könnt ihr mir einen Rat geben.
Gruss
Peter
Anzeige