Kopieren bringt einen fehler...
18.03.2005 12:36:48
Christoph
ich will mit folgendem Code alle Tabellenblätter (text01, text02, text03...) in eine neue Mappe kopieren:
Sub Test()
Dim i%, j%
Dim shNamen() As String
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 4) = "text" Then
j = j + 1
ReDim Preserve shNamen(j)
shNamen(j) = Sheets(i).Name
End If
Next i
Sheets(shNamen()).Select
Sheets(shNamen()).copy
End Sub
Excel liefert mir aber nur einen Laufzeitfehler 9: Index ausserhlab eds gültigen bereichs.
Weis einer von euch Rat?
Gruß Chris
Anzeige