Laufzeitfehler 91 ohne Deklarationen

[SiriKlaus]

Hallo liebes Clever Forum,

bei dem unteren Code sollen zwei Sheets in eine neue Tabelle eingefügt werden. Der Code lief immer einwandfrei bis ich den Ordner der Sheets aus Versehen umbenannt, und wieder zurück benannt habe.
Ich sehe hier keinen Pfad, den ich überprüfen könnte, auch habe ich den Code nicht selber geschrieben. Er ist genauso, ohne Deklarationen, als Makro hinterlegt :(

Bei der Ausführung tritt "Laufzeitfehler 91: Objektblockvariable oder With-Blockvariable nicht festgelegt" auf.

Ich danke für jede Mithilfe!

Code:

Range("A1").Select
   Selection.AutoFilter
   ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort.SortFields.Add(Range( _
       "B1:B146"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
       = RGB(255, 255, 0)
   With ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With

[Steffl]

Hallo,

welche Zeile wird bei der Fehlermeldung markiert?

[RPP63]

bei dem unteren Code sollen zwei Sheets in eine neue Tabelle eingefügt werden.

Moin!
Sicherlich nicht!
Dein Code setzt einen Autofilter und sortiert innerhalb dessen.
Gruß Ralf

[SiriKlaus]

Danke für die Hinweise! Mir ist ein Fehler unterlaufen, der Laufzeitfehler lautet 9 "Index außerhalb gültigen Bereichs" in folgender Zeile:

ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort.SortFields.Clear

Code:

Sub data()
'
    Range("A1").Select
   Selection.AutoFilter
    ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort.SortFields.Add(Range( _
       "B1:B146"), xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color _
       = RGB(255, 255, 0)
   With ActiveWorkbook.Worksheets("Combined").AutoFilter.Sort
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With

[Rabe]

Hi,

dann gibt es vermutlich das Arbeitsblatt "Combined" nicht mehr im aktiven Workbook.

[RPP63]

Du hast kein Blatt mit dem Namen Combined
Meist wird sowas durch ein Leerzeichen am Ende verursacht.
Mein Hinweis in der letzten Nachricht bleibt natürlich bestehen.

Gruß Ralf

[RPP63]

Und weil mein Namensvetter Rabe auch darauf hinwies:
ActiveWorkbook sollte man nur dann einsetzen, wenn man bewusst ein unbekanntes Workbook ansprechen will.
ThisWorkbook hingegen ist eindeutig und bezieht sich auf die Datei mit dem Makro.

[SiriKlaus]

Vielen Dank für den allgemeinen Hinweis RPP63 jetzt fiel mir das lesen auch leichter! In einer vorherigen Makro wird ein Sheet namens "Combined" erstellt, ich sehe es auch während ich die aktuelle Makro laufen lasse... ich habe auch nochmal die Namen nach Leerzeichen gescannt und keine gefunden.

Die Fehlermeldung 9 ist dank ThisWorkbook statt ActiveWorkbook weg.

Dafür taucht nun in derselben Zeile "Laufzeitfehler 91: Objektblockvariable oder With-Blockvariable nicht festgelegt" auf.

[Steffl]

Hallo,

[Vermutung an]
vielleicht kein Autofilter im Tabellenblatt gesetzt?
[Vermutung aus]

Code:

If ThisWorkbook.Worksheets("Combined").AutoFilterMode Then ThisWorkbook.Worksheets("Combined").AutoFilter.Sort.SortFields.Clear

[SiriKlaus]

Hallo Steffl,

das stimmt ich hab deine Zeile eingegeben, er findet keine AutoFilterMode und überspringt die Angabe nach "Then".

Kannst du mir ein Angabe für ein "Else" vorschlagen? Wie kann so ein Fehler auftreten, obwohl nur der Ordnername umbenannt und wieder zurückbenannt wurde?