mehrere Arbeitsblätter auswählen



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: mehrere Arbeitsblätter auswählen
von: Dirk
Geschrieben am: 16.05.2002 - 12:00:31

Hallo,
ich möchte über VBA mehrere aufeinander folgende Arbeitsblätter auswählen. Es handelt sich um den Bereich zwischen einem bestimmten und dem letzten Blatt (in Variabler hinterlegt) in der Mappe. Mein Versuch sieht so aus:

Sheets(Array("Konten", LetztesBlatt)).Select

Welches Listentrennzeichen muß hier genutzt werden?

Danke für Eure Hilfe
Dirk

nach oben   nach unten

Re: mehrere Arbeitsblätter auswählen
von: Rainer
Geschrieben am: 16.05.2002 - 15:43:18

Hallo Dirk!

versuche es mal mit dem nachfolgenden Code:


Sub TBBlätter_auswählen()

Dim anzahl As Integer
Dim start As Integer
Dim As Integer
    
    'Wählt alle Tabellenblätter vom 3. bis zum letzten aus
    start = 3
    anzahl = Sheets.Count
    For i = start To anzahl
        Sheets(i).Select False
    Next i
    

End Sub

Ich hoffe, dass es dir hilft.

Lieben Gruß
Rainer

nach oben   nach unten

Re: mehrere Arbeitsblätter auswählen- Ergänzung
von: Rainer
Geschrieben am: 16.05.2002 - 15:52:49

Lieber Dirk!

Wenn du das aktuelle Tabellenblatt nicht bei der Auswahl dabei haben willst, musst du vor der FOR-Schleife z.b.

Sheets(start).Select

einfügen. Achte dabei nur darauf, dass du ggf. wieder das 'alte' Tabellenblatt auswählst.

Lieben Gruß

Rainer


nach oben   nach unten

Re: mehrere Arbeitsblätter auswählen- Ergänzung
von: Dirk
Geschrieben am: 16.05.2002 - 17:19:54

Lieber Rainer,

herzlichen Dank, hat prima funktioniert. Das aktuelle Tabellenblatt ist hier kein Problem, da ich den Code beim anklicken eines Tabellenblatts als "Privat Sub Worksheet_Activate" ausführe. Es soll also mit integriert sein.

Gruß
Dirk


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "mehrere Arbeitsblätter auswählen"