meine Frage bezieht sich auf das Abspeichern einer Datei.
Und zwar sollte das Speichern der Datei erst möglich sein, wenn die Zellen C5, F5 und G15 und G36 ("von einer anderen User") ausgefüllt wurden. Des Weiteren sollte der Name für die Datei aus der Zelle L5 übernommen werden, so dass nach dem Abspeichern die Datei umbenannt wird. Mein Makro sieht bislang wie folgt aus:
Public Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Nur speichern, wenn ein Ort eingetragen wurde
If Worksheets("Daten").Range("C5") = "" Then
'Arbeitsmappe nicht speichern
MsgBox "Bitte geben Sie einen Ort ein!"
Cancel = True
Else
'Arbeitsmappe speichern
ActiveWorkbook.SaveAs Range("L5").Value & ".xlsm"
MsgBox "Alle Änderungen wurden gespeichert."
End If
End Sub
Außerdem ergibt sich noch folgendes Problem: Wenn ich dieses Makro abspeichern möchte, erscheint natürlich auch die Fehlermeldung, sprich ich werde aufgefordert die Zellen auszufüllen. Wie kann man dies insofern umgehen, dass erst, wenn ein anderer User die Datei öffnet, um sie auszufüllen, die oben genannten Bedingungen erfüllt sein müssen. Die Rohdatei soll folglich von mir auch bei einer leeren Zelle C5 abgespeichert werden können. Ich hoffe, das war halbwegs verständlich.. ;)