Msg Box

[Gargus]

hey Leute,

ich möchte gerne folgendes machen:

Wenn Excel gestartet wird soll eine Msg Box erscheinen die die Frage enthält "Welchen Reiter möchten Sie sich angucken?"

Und dann zur auswahlmöglichkeit als Schaltfläche "Reiter x" und "Reiter y", wenn man drauf klickt soll Excel direkt zu diesem Reiter springen.

bekomme den code dafür leider nicht hin :/
weiß nicht wie ich anstelle dem "ja" und "nein" etwas eigenes schreiben kann



MsgBox "Hallo, welchen Reiter wollen Sie sehen?", vbYesNoCancel, "Auswahl"

If yes Then ActiveWorkbook.Sheets(2).Activate _
Else
End IF


End Sub



hoffe ihr könnt mir helfen

danke und gruß

[schauan]

Hallöchen,

wenn Du andere Schaltflächenbezeichnungen willst, könntest Du ein Userform nehmen.

[Gargus]

okay ..:)?

und wie geht das ?

[schauan]

Hallo,

Du fügst ein Userform ein. Darauf platzierst Du 2 Schaltflächen. Links im Projektexplorer siehst Du, wenn Du eine Schaltfläche angeklickt hast, deren Eigenschaften und kannst ihr eine passende Beschriftung geben. Wenn Du auf die Schaltfläche mit der rechten Maustaste klickst, kannst Du Dir den Code anzeigen lassen und bekommst erst mal das Gerüst. Dort kannst Du den code zum Aktivieren einfügen.

In Deinem Makro beim Öffnen brauchst Du dann nur das userform aufzurufen, z.B. Userform1.Show.

[Gargus]

okay danke!! das hat schonmal geklappt

aber wie ich kann ich das jetzt mit den Reitern verknüpfen?

[atilla]

Hallo,

Du hast im Modul Diesearbeitsmappe folgenden Code stehen:

Code:

Option Explicit

Private Sub Workbook_Open()
   UserForm1.Show
End Sub

Dann hinter der Userform den Code für die Schaltflächen nac diesem Muster:

Code:

Private Sub CommandButton1_Click()
   Worksheets("Tabelle1").Select
End Sub

Private Sub CommandButton2_Click()
   Worksheets("Tabelle2").Select
End Sub

Wenn es viele Reiter sind, dann käme vielleicht eine Listbox oder Combobox eher in Frage.

[Kuwer]

Hallo Gargus,

das geht auch ohne UserForm:

Code:

Private Sub Workbook_Open()
  With Application.CommandBars("Workbook Tabs").Controls(16)
    If Right(.Caption, 3) = "..." Then
      .Execute
    Else
      .Parent.ShowPopup
    End If
  End With
End Sub

Gruß Uwe