Public Sub speichern_Click()
    Dim str As String
    Dim char As String
    Dim text As String
    Dim wert As Integer
    Dim a As Integer
    Dim b As Integer
 
    On Error Resume Next
 
    dlgCommonDialog.CancelError = True
    dlgCommonDialog.DialogTitle = "Datensatz speichern unter"
    dlgCommonDialog.filename = Form2.Text1 + Form2.Text2 + Form2.Text3
    dlgCommonDialog.FilterIndex = 1
    dlgCommonDialog.ShowSave
 
    str = dlgCommonDialog.filename
 
    'Wenn kein FileName ausgewählt oder Fehler aufgetreten
    '(d.h. abbrechen gedrückt wurde) dann rausgehen und alter Zustand
    'bleibt erhalten.
    If str = vbNullString Or Err.Number > 0 Then Exit Sub
 
    On Error Goto Fehler	        
 
    Open str For Output As #1
 
    a = matrix(1).Column
    b = matrix(1).Row
 
    For i = b To 1
        For j = a To 1 Step -1
            matrix(1).getFeld j, i, wert
            char = CStr(wert)
            text = text + char
        Next j
    Next i
 
    Write #1, text
 
    Close #1
 
    Form2.Hide
fehler:
    'Hier könnte man zumindest auch 'ne MsgBox spendieren
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1