19.02.2018, 08:40
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!
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