Tabellenblätter verschieben
20.06.2013 08:35:45
Refa
zunächst möchte ich mich ganz herzlich für diese Seite bei dem Herrn Herber sowie bei allen freundlichen Teilnehmer bedanken.
Ich möchte heute im Grunde nur die erste auskommentierte Zeile mit Sheets(Array...
dynamisch erstellen können.
Bekomme aber das wegen der unten angegebenen Laufzeitfehler leider nicht hin.
Könntet Ihr mir bitte helfen?
Vielen Dank
Refa
Sub WorksheetLoop()
'Sheets(Array("Seite_0", "Seite_1", "Seite_2", "Seite_3", "Seite_4")).Move
Dim Current As Worksheet
Dim tblName As String
strWorkFile = "MyEinnStation.xlsx"
For Each Current In Worksheets
If Current.Name Like "Seite_*" Then
tblName = tblName & """,""" & Current.Name
End If
Next
tblName = Right(tblName, Len(tblName) - 3)
MsgBox tblName 'Ergebnis: "Seite_4","Seite_1","Seite_2"
Sheets(Array(tblName)).Move
'Fehlermeldung: Laufzeitfehler '9': Index außerhalb des gültigen Bereichs
End Sub