Hier meine VBA zum speichern, eine dort abgespeicherte Berechnungen möchte ich zur weiteren Bearbeitung wieder laden:
Sub Berechnung_speichern()
'speichert die aktuelle Berechnung mit dem Namen des Objekte, dem aktuellen Datum und dem Namen des Bearbeiters
'im Ordner der in der Vorbelegung - J2 eingegeben wurde
Dim NeuerName As String, Speicherpfad As String, antwort1, antwort2, antwort3
antwort1 = MsgBox("Möchten Sie die Berechnung für" & vbLf & _
Sheets("Eingabe").Range("D9").Value & vbLf & _
"speichern?", vbExclamation + vbYesNoCancel, "ImmoGrandeTool")
'Wenn das Feld "Speicheradresse" (Vorbelegung J2) keine Daten enthält, wird ein MsgBox mit einem Fehler angezeigt
'und das Speichern wird abgebrochen.
If Sheets("Vorbelegung").Range("J2").Value = "" Then
antwort3 = MsgBox("Ihre Berechnung kann nicht gespeichert werden!" & vbLf & _
"Sie haben keinen Speicherort angegeben!" & vbLf & _
"gehen Sie zuerst in die Vorbelegung" & vbLf & _
"und geben dort den Speicherort an!", vbCritical + vbOKOnly, "ImmoGrandeTool")
Exit Sub
End If
'Wenn das Feld "Objekt" (Eingabe D9) keine Daten enthält, wird ein MsgBox mit einem Fehler angezeigt
'und das Speichern wird abgebrochen.
If Sheets("Eingabe").Range("D9").Value = "" Then
antwort2 = MsgBox("Ihre Berechnung kann nicht gespeichert werden!" & vbLf & _
"Sie haben keine Objektadresse angegeben!", vbCritical + vbOKOnly, "ImmoGrandeTool")
Exit Sub
End If
Select Case antwort1
Case 6
Speicherpfad = Sheets("Vorbelegung").Range("J2").Value
NeuerName = Sheets("Eingabe").Range("D9").Value
ActiveWorkbook.SaveAs Filename:=Speicherpfad & NeuerName & "-" & Date & "-" & _
Sheets("Eingabe").Range("G27") & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.Quit
Case 7
ThisWorkbook.Saved = True
Application.Quit
Case Else
End Select
End Sub