Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Select Case Sheet

Select Case Sheet
18.02.2005 14:04:33
Mikaelito
Hallo Leute,
habe eine Aufgabe, die bestimmt auch anders ging (Holzweg) aber so in etwa fände ich's recht elegant (vor allem wegen der hier nicht erwähnten vor- und nachfolgenden Aktionen):
Ich will über die Variable var (bei mir über 20 Einträge) mit dem vorher definierten Feld Sht(var) in das entsprechend zugewiesene Sheet springen...
Wie lautet die richtige Select Case Verzweigung?

Sub sht_case()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Dim Sht(3) As Worksheet
Dim var As Integer
Set s1 = Sheets(1): Set Sht(1) = s1
Set s2 = Sheets(2): Set Sht(2) = s2
Set s3 = Sheets(3): Set Sht(3) = s3
For var = 1 To 3
Select Case Sht(var)
Case s1: s2.Select
Case s2: s3.Select
Case s3: s1.Select
End Select
Next i
End Sub

Vielen Dank für eure Hilfe!
Gruß,
Mikaelito

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Select Case Sheet
Reinhold
Hallo Mikaelito,
so z.B.
For var = 1 To 3
Select var
Case 1: s2.Select
Case 2: s3.Select
Case 3: s1.Select
End Select
Grüße Reinhold
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige