array of sheets select

Forumthread: array of sheets select

12.01.2006 15:18:11

Gerwas

hallo weite welt, mal wieder...
mein problem besteht heute darin, dass ich per code bestimmte blätter einer mappe selecten will um sie in eine andere arbeitsmappe zu verschieben.
mein macrorecorder zeichnet ganz prima auf:
Sheets(Array("taet1", "taet2", "taet3")).Select
aber wie bekomme ich das per code hin, alle blätter, deren name mit "taet" beginnt in mein array zu schreiben?
gerwas

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: array of sheets select

12.01.2006 15:26:31

ChrisL

AW: array of sheets select

12.01.2006 15:26:31

ChrisL


Sub t()
Dim sh As Object
Dim i As Integer
ReDim Arr(0)
i = -1
For Each sh In ActiveWorkbook.Sheets
If Left(sh.Name, 4) = "taet" Then
i = i + 1
ReDim Preserve Arr(i)
Arr(i) = sh.Name
End If
Next sh
Sheets(Arr).Select
End Sub

Gruss
Chris

Forumthread: array of sheets select

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread