Clever-Excel-Forum

Hallo zusammen,

ich möchte mit dem VBA unten aus einem Sheet gefilterte Daten ziehen und es als Tabelle formatiert auf einem anderen Sheet ausgeben. Dafür habe ich einen Advanced Filter geschaffen. Nun ist folgendes Problem. Wenn ich das Sheet aktiviere um die Tabelle upzudaten, bekomm ich immer den Runtime "91" = Object variable or With block variable not set Fehler. Das lustige ist, daß wenn ich den Fehler beende, das Sheet verlasse und dann wieder aktiviere funktioniert alles wie gewollt. Ich habe festgestellt, dass mir Excel meine Tabelle "Overview_Opp" erstellt, aber zusätzlich noch eine 2. Tabelle erstellt, welche nur den Header von "Overview_Opp" beinhaltet, und sie diese eine Reihe dann Tabelle "Extract" benennt. Hat irgendjemand eine Idee wie ich aus diesem Runtime Fehler komme? Er wird mir im Debug im roten Bereich markiert......



Private Sub Worksheet_Activate()

 

Sheets("Opportunity One Pager").Cells.Clear

Sheets("NoTables").ListObjects("Table_OP").Range.AutoFilter

If Sheets("NoTables").ListObjects("Table_OP").AutoFilter.FilterMode = True Then Sheets("NoTables").ShowAllData

 

    With Sheets("NoTables").ListObjects("Table_OP").Range

      .AdvancedFilter Action:=xlFilterCopy, _

                      CriteriaRange:=Sheets("Update_Info").Range("A1").CurrentRegion, _

                      CopytoRange:=Sheets("Opportunity One Pager").Range("A1"), _

                      Unique:=False

    End With

    

   With Sheets("Opportunity One Pager")

    .Range("A1").CurrentRegion.Offset(, 8).ClearContents

    .ListObjects.Add(xlSrcRange, .Range("A1").CurrentRegion, , xlYes).Name = "Quickview_Opp"

   End With

 

    Range("Quickview_Opp[[#Headers],[Region]]").Select

    Selection.ListObject.ListColumns(1).Delete

    ActiveCell.FormulaR1C1 = "Nr."

    Range("A2").Select

    ActiveCell.FormulaR1C1 = "1"

    Range("A2").Select

    Selection.AutoFill Destination:=Range("Quickview_Opp[Nr.]"), Type:= _

        xlFillSeries

    Range("Quickview_Opp[Nr.]").Select

Columns("A:G").Select

    Columns("A:G").EntireColumn.AutoFit

   

End Sub




ralf_b
04.11.2022, 21:36

Code:
.AutoFilter.FilterMode


trenne die beiden doch mal auf.  Wenn keinen Autofilter gibt, dann kannst du auch dessen Eigenschaft nicht setzen.



schauan
04.11.2022, 22:27

Hallöchen,



bei mir zeigt Excel ein seltsames Verhalten.



Folgendes Tabellenobjekt:



Arbeitsblatt mit dem Namen 'Tabelle1'
A
1 Was
2 1
3 2
4 3
Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365 
Diese Tabelle wurde mit Tab2Html (v2.7.2) erstellt. ©Gerd alias Bamberg


Filterung wurde ausgeschalten.

Irgendeine Zelle des Tabellenobjektes ist selektiert



Folgender Code:



Code:
Sub test()

 ActiveSheet.ListObjects(1).Range.AutoFilter

 If ActiveSheet.ListObjects(1).AutoFilter.FilterMode = True Then ActiveSheet.ShowAllData

End Sub


Schrittweise Ausführung.



erstes F8

Sub test() wird gelb markiert

Filter wird aktiviert !!!



zweites F8

Zeile Sub test() wird abgearbeitet

ActiveSheet.ListObjects(1).Range.AutoFilter wird gelb markiert

Filter wird wieder deaktiviert !!!



drittes F8

Zeile ActiveSheet.ListObjects(1).Range.AutoFilter wird abgearbeitet - zuvor deaktivierter Filter aber nicht wieder gesetzt.

If ... wird gelb markiert



viertes F8

If ... bleibt gelb, Fehlermeldung 91 erscheint





... ist irgendwie unlogisch. Excel hat irgendwie ein Problem mit der schrittweisen Ausführung beim Autofilter 





Lösung dürfte übrigens diese Variante des Schaltens des Autofilters sein, also statt



ActiveSheet.ListObjects(1).Range.AutoFilter



besser 



ActiveSheet.ListObjects(1).ShowAutoFilter = True



und ebenfalls nicht nur im Einzelschritt testen

tompson077

ralf_b

schauan