Anzeige
Archiv - Navigation
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
560to564
560to564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere Tabellenblätter per Makro anwählen

mehrere Tabellenblätter per Makro anwählen
06.02.2005 15:45:10
john
Hallo zusammen,
ich möchte per Makro alle Tabellenblätter anwählen lassen, die mit den Buchstaben "AAA" aufhören. Folgendermaßen hab ich's versucht:
For n = 1 To Sheets.Count
If Right(Sheets(n).Name, 3) = "AAA" Then
If ausw = "" Then ausw = n Else ausw = ausw & ", " & n
End If
Next
Sheets(Array(ausw)).Select
Gedacht war es so, daß der Variable "ausw" eine Liste der Indexnummer aller gewünschten Tabellenblätter zugeordnet wird (also z. B. "1, 3, 5").
Aber irgendwie haut das nicht hin, ich bekomme beim Versuch, den letzten Befehl auszuführen, immer die Fehlermeldung "Index außerhalb des gültigen Bereichs". Scheinbar kann Excel mit meinr n-Variable als Array nix anfangen. Kann da irgend jemand helfen?
Vielen Dank im Voraus!
Gruß,
john

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Tabellenblätter per Makro anwählen
K.Rola
Hallo,
Option Explicit
Sub select_AAA()
Dim n As Integer
For n = 1 To Sheets.Count
If Right(Sheets(n).Name, 3) = "AAA" Then Sheets(n).Select False
Next
End Sub

Gruß K.Rola
AW: mehrere Tabellenblätter per Makro anwählen
06.02.2005 15:57:28
john
Hallo K.Rola,
funzt einwandfrei, tausend Dank! :)
Gruß,
john
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige