Dim DateiZahl As String, i As Integer
  i = 0
  DateiZahl = Dir$(ImportPfad & "*.dwg")
  Do While DateiZahl <> ""
  i = i + 1
  DateiZahl = Dir$()
  Loop
  UserForm2.ProgressBar1.Max = i
  UserForm2.Show
 
Dateiname = Dir(ImportPfad & "*.dwg")
Do While Dateiname <> ""
...
...
    Dateiname = Dir
    If UserForm2.ProgressBar1 + 1 > UserForm2.ProgressBar1.Max Then Exit Do
    UserForm2.ProgressBar1 = UserForm2.ProgressBar1 + 1
    DoEvents
Loop
...