ich versuche schon seit längerem den Befehl so hinzubekommen, dass wenn die Datei geöffnet wird, automatisch in die Tabelle mit dem Namen "x" springt. Allerdings habe ich jetzt zig Varianten getestet, und nichts funktioniert.
Wer kann mir helfen?
Mein Befehl:
Private Sub Workbook_Open()
'Sheets("Preisübersicht2009").Select
Select Case LCase(Environ("username")) 'Netzwerk-Name
Case "x", "x" 'nix tun
Case Else
If Not ActiveWorkbook.ReadOnly Then
ActiveWorkbook.ChangeFileAccess xlReadOnly
End If
'Sheets(x).Activate
End Select
' Worksheets(x).Activate
End Sub
Gruß
André