Laufzeitfehler '91': Objektvariable oder With-Blockvariable nicht gesetzt VBA

Question

Ich bin der Run-time error '91': Object variable or With block variable not set in diesem Teil bekommen:

Dim cn As ADODB.Connection: Set cn = New ADODB.Connection 

    schema_nm = dbsheet.cb_BU.Value 

    If conn_to_SQL(cn) = False Then 
     Exit Sub 
    End If 

    Call any_action(cn, "Load Part") 
    If Not user_active = 1 Then 
     Exit Sub 
    End If 

    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
    SkipSave = True 


    If MDIsheet.AutoFilter.FilterMode = True Then MDIsheet.ShowAllData <----HERE 

Jeder Vorschlag?

Answer 1

Es teilt Ihnen mit, dass MDIsheet keinem Objekt zugewiesen wurde. Insbesondere ein Arbeitsblatt.