Herbers Excel-Forum - das Archiv

Unbekannte Anzahl an tabellen auswählen

Bild

Betrifft: Unbekannte Anzahl an tabellen auswählen
von: Christoph

Geschrieben am: 17.03.2005 11:07:01
Hi
wenn ich in einer Mappe mehrere Tabelle habe, und die Tabellennamen sind z.b.:
Blatt1, Blatt2, Text1, Text2,....
wie kann ich hier nur alle Tabellenblätter mit dem Namen Text auswählen und kopieren?
Gruß Chris
Bild

Betrifft: AW: Unbekannte Anzahl an tabellen auswählen
von: Matthias G

Geschrieben am: 17.03.2005 11:28:32
Hallo Chris,
Sub test()
Dim sh As Worksheet
Dim bl() As String
Dim i As Integer
i = 0
For Each sh In ActiveWorkbook.Sheets
If Left(sh.Name, 4) = "Text" Then
i = i + 1
ReDim Preserve bl(1 To i)
bl(i) = sh.Name
End If
Next sh
Sheets(bl).Copy
End Sub
Gruß Matthias
 Bild
Excel-Beispiele zum Thema "Unbekannte Anzahl an tabellen auswählen"
Seitenanzahl eintragen Funktion ANZAHL2 ohne ausgeblendete Spalten
Anzahl der über ParamArray festgelegten Parameter Anzahl eines bestimmten Wochentages im Monat
Anzahl der einzufügenden Zeilen abfragen Bestimmte Anzahl von Zeichen zulassen
Seitennummer und Seitenanzahl per VBA in Kopfzeile Nur AJM in TextBox akzeptieren und Anzahl zählen
Anzahl von CheckBoxes in einer UserForm ermitteln Anzahl der gelb hinterlegten Zellen ermitteln