ich verstehe die Fehlermeldung: "Ungebundenes Formular kann nicht angezeigt werden, während gebundenes Formular angezeigt wird" leider nicht. Der Code bleibt leider immer hier hängen Fortschrittsanzeige.Show vbModeless
Wie müsste ich denn Fortschrittsanzeige.Show vbModeless abwandeln, damit es über der UserForm angezeigt wird? Bzw. kann ich die UserForm vorher schon ausblenden, dass nur noch die Fortschrittsanzeige angezeigt wird, der Code aber trotzdem vollständig durchläuft?
Danke für einen Tipp & viele Grüße
Claudia
Private Sub cmdOK_Click()
'Import der Daten des AER
Dim wkbOld As Workbook
Dim wkbNew As Workbook
Set wkbOld = ActiveWorkbook
'Fortschrittsanzeige
Dim ProzFertig As Single
Set Fortschrittsanzeige = New Progress
'Fortschrittsanzeige anzeigen
Fortschrittsanzeige.Show vbModeless
If TypeName(ActiveSheet) "Worksheet" Then
'Unload Fortschrittsanzeige
'Exit Sub
End If
'Import der Daten des AER
FileCheckOpen (Me.TextBox_Path_EmB.Text)
Set wkbNew = ActiveWorkbook
Sheets("Annex").Activate
Range("C14:F2500").Copy
wkbOld.Activate
Sheets("Import AER AO").Activate
Range("A1").PasteSpecial
GoTo done1
error1:
MsgBox ("Import not completed. Data incomplete or contains an error.")
On Error Resume Next
wkbNew.Close False
done1:
Application.DisplayAlerts = False
Workbooks(Mid(TextBox_Path_EmB.Value, InStrRev(TextBox_Path_EmB.Value, "\") + 1)).Close _
SaveChanges:=False
'Fortschrittsanzeige
ProzFertig = 0.33
Call FortschrittAktualisieren(proz)
'Import der Daten aus ETS-SF (2x Emissionen und TKM)
FileCheckOpen (Me.TextBox_Path_ETSSF.Text)
Set wkbNew = ActiveWorkbook
Sheets("Annex").Activate
Range("C14:F2500").Copy
wkbOld.Activate
Sheets("Import ETS-SF AE").Activate
Range("A1").PasteSpecial
'Fortschrittsanzeige
ProzFertig = 0.66
Call FortschrittAktualisieren(proz)
FileCheckOpen (Me.TextBox_Path_ETSSF.Text)
Set wkbNew = ActiveWorkbook
Sheets("Tonne-kilometre Data").Activate
Range("C8:L2500").Copy
wkbOld.Activate
Sheets("Import ETS-SF TKM").Activate
Range("A1").PasteSpecial
GoTo done2
error2:
MsgBox ("Import not completed. Data incomplete or contains an error.")
On Error Resume Next
wkbNew.Close False
done2:
Application.DisplayAlerts = False
Workbooks(Mid(TextBox_Path_ETSSF.Value, InStrRev(TextBox_Path_ETSSF.Value, "\") + 1)).Close _
_
SaveChanges:=False
'Fortschrittsanzeige
ProzFertig = 1
Call FortschrittAktualisieren(proz)
Unload Fortschrittsanzeige
Set Fortschrittsanzeige = Nothing
End Sub