Private Sub mnuSpeichern_Click()
 
'Speichern der Daten von Datums-, Uhrzeit- und Listenfeld
Dim DatName As String
Dim Flyer As typFlyer
On Error GoTo ErrHandler
With cdcSpeichernUnter
    '"Schreibgeschützt öffnen" verbergen
    .Flags = cdlOFNHideReadOnly
    'Erzeugen des File-System-Objekt für Existensprüfung der gewählten Datei
        Dim FSO As Object
        Set FSO = CreateObject("Scripting.FileSystemObject")
 
        Do
            .ShowSave
 
            DatName = .FileName 'Laden des Dateinamens der ausgew. Datei
 
            'Existenzprüfung
            If FSO.FileExists(DatName) = True Then
                Dim Mldg, Stil, Titel, Antwort
                Mldg = "Möchten sie den Inhalt der Datei:" & Chr(13) & _
                DatName & Chr(13) & "wirklich überschreiben?"
                Stil = vbYesNo + vbQuestion
                Titel = "WARNUNG"
                'Erzeugen einer Meldung bei Existenz und Auswertung der 
                ' Benutzerentscheidung
                Antwort = MsgBox(Mldg, Stil, Titel)
 
 
            End If
 
        Loop While Antwort = vbNo
 
        'Datei schreiben
        'Laden der Werte in UDT-Variable "Flyer"
        Flyer.strDatum = mskDatum.Text
        Flyer.strUhrzeit = mskUhrzeit.Text
 
        Dim n As Integer
        For n = 0 To lstVerteiler.ListCount
            Flyer.aryTeilnehmer(n) = lstVerteiler.List(n)
        Next n
        'Öffnen des Datenstroms zum Schreiben der Datei
        Dim DateiNr As Integer
        DateiNr = FreeFile
        Open DatName For Random As DateiNr Len = Len(Flyer)
        'Schreiben
        Put #DateiNr, 1, Flyer
        Close DateiNr
 
End With
ErrHandler:
Exit Sub
 
End Sub

Gru? BKC

***...und wenn ich mal nicht weiter wei?, gr?nd ich einen Arbeitskreis...***