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

Beiträge aus den Excel-Beispielen zum Thema "Unbekannte Anzahl an tabellen auswählen"