speichern und beenden
18.03.2020 12:58:47
Peter
mit nachstehendem Code speichere ich die Datei und schliesse die Datei bzw. Excel:
Private Sub CommandButton1_Click()
If Application.Workbooks.Count > 1 Then
Calculate
ActiveWorkbook.Save
ActiveWorkbook.Close
Exit Sub
ElseIf Application.Workbooks.Count = 1 Then
Calculate
ActiveWorkbook.Save
' ActiveWorkbook.Close
Application.Quit
End If
End Sub
Könnt ihr mir bitte helfen!
Der Name der Datei1 kann in der Hilfstabelle.Range("B10") und mit Pfad über Hilfstabelle.Range("B8") ausge-lesen werden.
Gruss
Peter
Anzeige