Speichern unter Dialog mit Zellenprüfung

Hi zusammen,
in Excel besteht die Möglichkeit über Datei - Speichern unter eine Datei zu benennen und zu speichern. Oder man speichert direkt über das Diskettensymbol.
Gibt es eine Möglichkeit, dass wenn die Datei so gespeichert wird, eine Zellenprüfung stattfindet, ob gewisse Zellen einen Zellenwert haben?
Dabei geht es mir um folgendes. Ein Arbeitsdokument muss befüllt werden. Da die netten Leute oft vergessen ein paar grundlegende Zellen zu befüllen, möchte ich die netten Leute darauf hinweisen, das da was fehlt. Wie? Die Datei wird schreibgeschützt. Und wenn die netten Leute das Diskettensymbol bzw. Datei - Speichern unter wählen, dann soll ein Makro loslaufen und prüfen, ob drei Zellen befüllt sind. Wenn ja, öffnet sich das Speichern unter Dialogfeld, falls nein, kommt eine MSG-Box und weißt die netten Leute darauf hin, dass da was fehlt.
Danke für die Hilfe.
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Range("B12") = "" And Range("F12") = "" And Range("X12") = "" Then MsgBox "Alles ausfüllen!!!" Else Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:= _ "C:\USERS\" & Environ("UserName") & "\Desktop\" & Range("B12") & " " & Range("F12") & " _ " & Range("X12") & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Application.DisplayAlerts = True End If End Sub

Hi,
perfekt. Es funktioniert. Vielen Dank.
Nun hätte ich noch eine Frage. Ist es möglich, dass beim speichern unter Dialog nicht die Dateiendung xlsm sondern direkt xlsx ausgewählt ist?
Da die Datei schreibgeschützt ist, wird bei jedem Speicherversuch das Dialogfeld Speichern unter gewählt.
Habe nun versucht das ganze ein wenig zu ändern. Aber mhhh irgendwie stürzt mein Excel nun jedes mal ab. Anbei mal der Code.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("B12") = "" And Range("F12") = "" And Range("X12") = "" Then
MsgBox "Alles ausfüllen!!!"
Else
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
"C:\USERS\" & Environ("UserName") & "\Desktop\" & Range("B12") & " " & Range("F12") & "  _
_
" & Range("X12") & ".xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End If
End Sub

Der Zusatz kommt aus einem anderen Makro und diente dazu, die Datei zu speichern.
Gruß

Beliebteste Forumthreads (12 Monate)

Speichern unter Dialog mit Zellenprüfung

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Speichern unter Dialog mit Zellenprüfung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread