Private Sub cmdExport_Click()
  With Grid1
 
    ' alle Daten für den Export berücksichtigen
    bAbort = False
    If .DoExport(App.path & "\Daten.xls", EXPORT_XLS, , , _
      EXPORT_FIELD_DISPLAYVALUE) Then
      ' Excel-Datei öffnen
      ShellExecute Me.hWnd, "open", App.path & "\Daten.xls", "", "", 1
    End If
  End With
End Sub