Hallo zusammen,
ich habe ein Code der einen Fortschrittsbalken (frmProgress) aufruft und es neben bei laufen soll.
Leider kommt ein Fehler und ich weiß nicht warum (Fehler beim kompilieren: Methode.... )

' Progress-Form starten
On Error GoTo ErrHandler
frmProgress.StartProgress "Kunde wird geladen..."


kann mir jemand sagen, was ich falsch mache?

Danke euch




' ? Auswahl übernehmen ? Anzeige!E2 schreiben + Fortschrittsbalken anzeigen
Private Sub cmdUebernehmen_Click()
Dim ws As Worksheet
Dim kundenNr As String
Dim i As Long

If Me.lstErgebnisse.ListIndex = -1 Then
MsgBox "Bitte einen Kunden auswählen!", vbExclamation
Exit Sub
End If

kundenNr = Split(Me.lstErgebnisse.Value, " | ")(0)

' Progress-Form starten
On Error GoTo ErrHandler
frmProgress.StartProgress "Kunde wird geladen..."

Set ws = ThisWorkbook.Sheets("Anzeige")
ws.Range("E2").Value = kundenNr

' --- Simulation eines langen Prozesses (15 Schritte á 1 Sekunde) ---
' Hier bitte DEINE echten Schritte einbauen, die lange dauern
For i = 1 To 15
Application.Wait Now + TimeValue("0:00:01")
frmProgress.UpdateProgress i / 15
Next i
' -------------------------------------------------------------------

frmProgress.EndProgress
Me.Hide
Exit Sub

ErrHandler:
MsgBox "Fehler " & Err.Number & ": " & Err.Description, vbCritical
On Error Resume Next
Unload frmProgress
End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub