Private Sub mnuDateiSpeichern_Click()
 
    With frmmain.CommonDialog1
        .CancelError = True
        .DialogTitle = "Datei speichern"
        .DefaultExt = "sto"
        .Filter = ".sto"
        .FilterIndex = 0
        .Flags = cdlOFNOverwritePrompt + _
                 cdlOFNHideReadOnly
    End With
 
    On Local Error Resume Next
    If cDateiPfadName = "" Then
        frmmain.CommonDialog1.ShowSave
        If Err.Number = 0 Then
            colProjekte.SaveInFile frmmain.CommonDialog1.FileName
        End If
    End If
End Sub