Laufzeitfehler 9 bei Array Select
21.03.2018 11:45:17
Erwin
zum Gruppieren von Excel-Tabellenblättern habe ich folgenden Code geschrieben:
Sub Gruppierung_K()
Dim Liste As Variant
Dim ListeKompl As Variant
Dim ListeArr()
ListeArr = Array()
Dim TabName As String
Dim m As Integer
Dim Zaehler As Integer
For m = 1 To Worksheets.Count
TabName = Worksheets(m).Name
TabName = Right(TabName, 2)
If TabName Like " K" Then
Liste = Worksheets(m).Name
ListeKompl = ListeKompl & Chr(34) & Liste & Chr(34) & ", "
Zaehler = Zaehler + 1
End If
Next m
ListeKompl = Left(ListeKompl, Len(ListeKompl) - 2)
ListeArr = Array(ListeKompl)
Sheets(ListeArr).Select
End Sub
Die letzte Zeile Sheets(ListeArr).Select führt zum Laufzeitfehler 9.Wenn ich Select mit dem Inhalt der Variablen ListeKompl ausführe funzt es.
Wie komme ich weiter?