Ergebnis 1 bis 5 von 5

Thema: VBA - Sheets immer von links nach rechts durchlaufen (Office 2016)

  1. #1
    Office-Hilfe.com - Durchblicker
    Registriert seit
    13.08.2009
    Beiträge
    236

    VBA - Sheets immer von links nach rechts durchlaufen

    Hallo zusammen,

    mal eine kleine Frage zu Sheets in einem Workbook.
    Ich muss per Makro sicherstellen das am ganz linken Sheet angefangen wird zu berechnen und dann jeweils ein Sheet weiter nach rechts gegangen wird, da die Daten dort weitergehen.

    Kann man zu 100% sagen das mit:

    Code:
        ...
        With Application.Workbooks(ThisWorkbook.Name)
            For i = 1 To .Sheets.Count
                Debug.Print .Sheets(i).Name
            Next i
        End With
        ....
    immer von ganz links nach ganz rechts die Sheets durchlaufen werden?
    Oder gibt es Fälle wo das nicht der Fall ist?

    Eine weitere Idee ist das ich ein Array erstelle und dort in der Reihenfolge wie die Sheets erstellt werden eingetragen lasse.

    Schöne Grüße
    Tauchmann

  2. #2
    Office-Hilfe.com - Durchblicker
    Registriert seit
    30.12.2016
    Beiträge
    214
    Das müsste IMMER so sein, wie Du vermutest.

    Begründung: Das Verschieben eines Blattes

    a) wird "optisch bestätigt" und
    b) führt nicht dazu, dass neu kalkuliert werden muss. Obwohl ... das müsste man evtl. verifizieren!
    Geändert von lupo1 (11.01.2018 um 20:04 Uhr)

  3. #3
    Office-Hilfe.com - Legende
    Registriert seit
    26.08.2009
    Ort
    Bergstadt Freiberg/Sa.
    Beiträge
    2.644
    Hi,

    deine Schleife benutzt den Index, also die Reihenfolge der Tabellenblätter von 1 bis x und die 1 repräsentiert IMMER das Tabellenblatt welches sich ganz links befindet, 2 das zweite in Reihenfolge, 3 das 3. in Reihenfolge usw. Wenn du ein Tabellenblatt verschiebst, dann erhält dieses den Index der Position, an die es verschoben wird - wird also z.B. Blatt 6 an Position 3 verschoben, erhält es den Index 3, bisheriges Blatt 3 wird zu Blatt 4 und bisheriges Blatt 5 wird zu Blatt 6, die Blätter 7 bis x behalten ihre Reihenfolge (bzw. Index).

    Bis später,
    Karin
    Standard: Win 10, Office 2016
    Bei Bedarf auch Excel 97 - 2013

  4. #4
    Office-Hilfe.com - Auskenner
    Registriert seit
    29.12.2015
    Beiträge
    131
    Bei Deiner Excel-Version …
    Schreibe in eine beliebige Zelle: =Blatt()
    Jetzt verschiebe das Blatt und beobachte den Wert.

    Gruß Ralf

  5. #5
    Office-Hilfe.com - Durchblicker
    Registriert seit
    13.08.2009
    Beiträge
    236
    Hallo lupo1, Hallo Beverly, Hallo RPP63,

    Danke für Eure Antworten.
    Vielen Dank das Ihr das bestätigt habt.
    Ich wollte sicherstellen das es keine Ausnahmen gibt und ich an einer Stelle ins "leere" laufe.
    Nochmals vielen Dank und Euch ein schönes WE

    Tauchmann

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •  
Excel Ticker - News, Tipps und Tricks zu Microsoft Excel | SMS kostenlos versenden | Forenuser - Die Foren Findmaschine