VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast76347	Datum: 28.02.2016 17:18:17	Views: 1330	Rating:	Antwort:
Thema: Filter läuft nicht
Hallo! Also dein Code macht das doch schon fast. Ich habe nur before in after getauscht. Jetzt bleiben dein Master und Control sowie das Vorlagenblatt bestehen und dahinter kommen die anderen Blätter in der Reihenfolge deines Arrays. Falls da was nicht mehr geht (hattest du geschrieben), müsste man schauen, ob bei einem leeren Filter, das Array danach noch existiert. Dazu müsste ich aber noch wissen, wie du in das Array schreibst. Weil wenn Daten im Array sind, wertet er die ja aus. VG Dim i As Long If Ascending Then For i = UBound(ArrList) To LBound(ArrList) Step -1 Sheets(ArrList(i)).Move After:=Sheets(3) Next Else For i = LBound(ArrList) To UBound(ArrList) Sheets(ArrList(i)).Move After:=Sheets(3) Next End If

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen