beim Start Arbeitsblatt auswählen

Dieses Thema beim Start Arbeitsblatt auswählen im Forum "Microsoft Office Suite" wurde erstellt von joergi78, 10. Nov. 2005.

Thema: beim Start Arbeitsblatt auswählen HALLO an ALLE , besteht die Möglichkeit bei Excel2003 eine Abfrage zu erstellen, dass man beim Start einer...

  1. 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. 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
     
  3. 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
     
  4. 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
     
  5. 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???
     
  6. :D
    konnte das Poblem beheben. Habe einfach alle Tabellenblätter in eine neue Datei kopiert.
    Jetzt läuft alles so wie es soll.
    Danke
     
Die Seite wird geladen...

beim Start Arbeitsblatt auswählen - Ähnliche Themen

Forum Datum
WLan funktioniert erst beim zweiten Start des Notebooks Windows 10 Forum 28. Aug. 2016
Beim Start von Win 7 kein Ton Windows 7 Forum 18. März 2016
Ahead Software bzgl. Nero startet automatisch beim Systemstart Software: Empfehlungen, Gesuche & Problemlösungen 30. Jan. 2015
PIN Eingabe beim Start durch Ziffernblock Windows 8 Forum 19. Okt. 2014
Cabinet Maker Scan beim Windows Start Windows 7 Forum 15. Sep. 2014