Mein Hauptziel ist es, die sichtbaren Zellen eines Autofilters und später die Abmessungen der sichtbaren Zellen auf das neue Blatt zu kopieren. Ich benutze diesen Code:

<code>Sheets(1).AutoFilterMode = False
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervalo, criteria1:=CDec(paramCantidadCriterio)
Sheets(1).Range("A1:A1").AutoFilter Field:=columnaNumeroIntervaloUnidades, Criteria1:=paramUnidadesCriterio

MsgBox AutoFilter.Range.SpecialCells(xlCellTypeVisible)(2, 11).Value
</code>

Mit der letzten Zeile möchte ich den Wert einer Zelle überprüfen. Wenn ich benutzeCells(2,11) anstattSpecialCells Ich kann sehen, dass Zellen alle Zellen des Blatts enthalten, sichtbar und nicht sichtbar. Also möchte ich nutzenSpecialCells.

Wenn ich Spezialzellen verwende, wird folgende Fehlermeldung angezeigt:

error '-2147417848 (80010108) in runtime. Automatization error.

Für die Zeit und den Typ der Ausführung scheint es, in eine Schleife einzutreten, und schließlich gibt es diesen Fehler. Vielleicht modifiziert SpecialCells den Autofilter und führt dann bei jeder Modifikation den Autofilter erneut aus?