beim Start Arbeitsblatt auswählen

joergi78 · 10.11.2005

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

Billy · 10.11.2005

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?

mfg billy

Matjes · 10.11.2005

Hi Joergi,

hast Du den Artikel schon mal gelesen.

http://www.wintotal.de/Artikel/tabellenblaetter/tabellenblaetter.php

Gruß Matjes

joergi78 · 11.11.2005

Hallo Matjes,

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

Matjes · 11.11.2005

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 ? &amp; vbLf &amp; _
              Bitte geben sie die Nummer ein (zwischen 1 und  &amp; _
              ActiveWorkbook.Worksheets.Count &amp; ), _
              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 &lt;> 0 Then
      Err.Clear: On Error GoTo 0
      MsgBox (Eingabe unzulässig. Bitte korrigieren.)
      GoTo NOCHMAL
    End If
    If 0 &lt; l_str And l_str &lt; ActiveWorkbook.Worksheets.Count Then Exit Do
    MsgBox (Eingabe ausserhalb Bereich 1 bis  &amp; ActiveWorkbook.Worksheets.Count)
  Loop
BLATT_AKTIVIEREN:
  ActiveWorkbook.Worksheets(l_str).Activate
End Sub

joergi78 · 11.11.2005

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???

joergi78 · 11.11.2005

konnte das Poblem beheben. Habe einfach alle Tabellenblätter in eine neue Datei kopiert.
Jetzt läuft alles so wie es soll.
Danke

beim Start Arbeitsblatt auswählen

joergi78

Billy

Matjes

joergi78

Matjes

joergi78

joergi78

beim Start Arbeitsblatt auswählen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums