With grdDaten
    ProgressBar1.Max = .Rows
    ProgressBar1.Value = 0
    mbExportAbbrechen = False
    .DoExport txtExportdatei.Value, mlExportFormat, , lHeader, _
      EXPORT_FIELD_VALUE, , sFieldDelim, sFieldSep
End With
MsgBox "Export-Datei wurde erstellt!", vbInformation

Private Sub grdDaten_ExportProgress(ByVal nRow As Long, ByVal nRows As Long, _
  bSkip As Boolean, bCancel As Boolean)
On Error Resume Next
If mbExportAbbrechen Then
    bCancel = True
    Exit Sub
End If
'Fortschrittsanzeige aktualisieren
ProgressBar1.Value = nRow
End Sub