und hier ohne Schleife ...
03.03.2011 08:11:06
Matthias
Hallo
Dim StartSheet As String
StartSheet = Worksheets("NAVI").Cells(1, 1).Text
Worksheets(StartSheet).Activate
Komplett würde ich es so machen: mit Fehlerbehandlung
Private Sub Workbook_Open()
Dim StartSheet As String
StartSheet = Worksheets("NAVI").Cells(1, 1).Text
On Error GoTo MyErr 'Wenn Blatt nicht vorhanden, Fehler abfangen
Worksheets(StartSheet).Activate
Exit Sub
MyErr:
On Error GoTo 0 'Fehler zurücksetzen!
MsgBox "Registerblattname:[" & StartSheet & "] wurde nicht gefunden", vbInformation, "Hinweis _
an " & Application.UserName
End Sub
Gruß Matthias