Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Diskutiere beim Start Arbeitsblatt auswählen im Microsoft Office Suite Forum im Bereich Office-Produkte; HALLO an ALLE ,
besteht die Möglichkeit bei Excel2003 eine Abfrage zu erstellen, dass man beim Start einer Arbeitsmappe ein bestimmtes...
#1
J
joergi78
Bekanntes Mitglied
Themenersteller
Dabei seit
17.08.2005
Beiträge
249
Reaktionspunkte
0
HALLO an ALLE ,
besteht die Möglichkeit bei Excel2003 eine Abfrage zu erstellen, dass man beim Start einer Arbeitsmappe ein bestimmtes Arbeitsblatt auswählen kann? Es ist bei fast jedem Start eine anderes Arbeitsblatt. Und da die Arbeitsmappe 38 Blätter enthält, ist es ziemlich nervig, wenn man immer erst zu dem Arbeitsblatt gehen muss.
Danke,
mfg
Joergi78
#2
B
Billy
Guest
hi
wenn ich fragen darf, wie hast du dir das vorgstellt mit dem Auswählen?
also wenn man das File öffnet kommt dann so eine Frage Welches Tabellenblatt möchten Sie öffnen und der User gibt dann ein filenamen ein oder wie?
leider brachte mich der Code nicht weiter. Ich brauche eine Abfrage, die mich nur nach einer Zahl zwischen 1-38 fragt, und dann direkt zu dem angegebenen Blatt bringt.
gruß joergi78
#5
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
Nun denn:
dieser Code muß in der Code-Seite der Arbeitsmappe zu liegen kommen (DieseArbeitsmappe).
Gruß Matjes
Code:
Private Sub Workbook_Open()
Dim s_str As String, l_str As Long
->Default
l_str = 1
Do
NOCHMAL:
s_str = InputBox( _
Welches Arbeitsblatt soll aktiviert werden ? & vbLf & _
Bitte geben sie die Nummer ein (zwischen 1 und & _
ActiveWorkbook.Worksheets.Count & ), _
Auswahl des zu aktivierenden Arbeitsblattes, _
s_str)
If s_str = Then l_str = 1: Exit Do
On Error Resume Next
l_str = s_str
If Err.Number <> 0 Then
Err.Clear: On Error GoTo 0
MsgBox (Eingabe unzulässig. Bitte korrigieren.)
GoTo NOCHMAL
End If
If 0 < l_str And l_str < ActiveWorkbook.Worksheets.Count Then Exit Do
MsgBox (Eingabe ausserhalb Bereich 1 bis & ActiveWorkbook.Worksheets.Count)
Loop
BLATT_AKTIVIEREN:
ActiveWorkbook.Worksheets(l_str).Activate
End Sub
#6
J
joergi78
Bekanntes Mitglied
Themenersteller
Dabei seit
17.08.2005
Beiträge
249
Reaktionspunkte
0
wunderbar, in der einen Mappe klappt es, nur in der anderen Mappe komme ich nicht in das Projekt rein. :'(
Da bekomme ich die Fehlermeldung:
Projekt gesperrt
Projekt kann nicht angezeigt werden
waum???
#7
J
joergi78
Bekanntes Mitglied
Themenersteller
Dabei seit
17.08.2005
Beiträge
249
Reaktionspunkte
0
konnte das Poblem beheben. Habe einfach alle Tabellenblätter in eine neue Datei kopiert.
Jetzt läuft alles so wie es soll.
Danke