Worti hat mir folgendes makro geschrieben welches mir die Arbeit schon um einiges verkürzt
Private Sub CommandButton2_Click()
Const SpeicherPfad = "\Pfad"
Const bytSek As Byte = 1 'Anzahl Sekunden
Dim strFileName As String
Dim objWSH As Object
Dim intMeldung As Integer
strFileName = SpeicherPfad & Range("C6") & Range("D6") & "-" & _
Range("F9") & "-" & Range("Q6") & ".xls"
ActiveWorkbook.SaveAs strFileName
'Für die Meldungsbox
Set objWSH = CreateObject("WScript.Shell")
intMeldung = objWSH.Popup("", bytSek, "Datei gespeichert unter " & strFileName)
Set objWSH = Nothing
End Sub
Jetzt meine Frage könntet Ihr mir das so erweitern, dass in der Zelle A40 vor dem speichern abgefragt wird ob etwas drin steht, wenn etwas drinsteht dann weiter mit dem speichern. Wenn leer dann abbrechen und einen Hinweistext " Bitte Feld Bemerkungen prüfen" einblenden.
Die vorhandene Meldungsbox über das erfolgte speichern blendet sich ca. 6-7sek. (geschätzt) ein, kann man die Zeit noch verkürzen auf 2-3 sekunden ? (steht ja schon auf 1 sekunde)
Dank im Vorraus
Gruß Frank