Sheets selektieren

15/03/2009 - 11:39 von Henrik | Report spam
Hallo,
ich brauche eine dynamischere Methode mehrere Sheets als Gruppe zu
selektieren. Es funktioniert aber nicht. Sub testen funktioniert. Sub testen2
funktioniert abernicht. Warum?

Sub testen()
Sheets(Array("TP1", "TP2")).Select
Sheets(varT).Select
End Sub

Sub testen2()
Dim varT As Variant
Dim strT() As Variant
ReDim Preserve strT(2)
strT(1) = "TP1"
strT(2) = "TP2"
varT = strT()
Sheets(varT).Select
End Sub

Im voraus vielen dank für die Hilfe.
Viele Grüße
Henrik Schmidt
 

Lesen sie die antworten

#1 Wolfgang Habernoll
15/03/2009 - 12:02 | Warnen spam
Hallo

"Henrik" schrieb im Newsbeitrag
news:
Hallo,
ich brauche eine dynamischere Methode mehrere Sheets als Gruppe zu
selektieren. Es funktioniert aber nicht. Sub testen funktioniert. Sub testen2

funktioniert abernicht. Warum?

Sub testen()
Sheets(Array("TP1", "TP2")).Select
Sheets(varT).Select
End Sub

Sub testen2()
Dim varT As Variant
Dim strT() As Variant
ReDim Preserve strT(2)
strT(1) = "TP1"
strT(2) = "TP2"
varT = strT()
Sheets(varT).Select
End Sub




weil du im Array strT(0) kein Tabellenblatt zum selectieren hast. Verwende Option
Base 1 somit fàllt strT(0) weg


Option Explicit
Option Base 1 '' <<< eintragen

Sub testen2()
Dim varT As Variant
Dim strT() As Variant
ReDim Preserve strT(2)
strT(1) = "TP1"
strT(2) = "TP2"
varT = strT()
Sheets(varT).Select
End Sub


mfG
Wolfgang Habernoll

[ Win XP Home SP-2 , XL2002 ]

Ähnliche fragen