Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Msg Box
#1
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ß
Antwortento top
#2
Hallöchen,

wenn Du andere Schaltflächenbezeichnungen willst, könntest Du ein Userform nehmen.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#3
okay ..:)?

und wie geht das ?
Antwortento top
#4
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.
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#5
okay danke!! das hat schonmal geklappt

aber wie ich kann ich das jetzt mit den Reitern verknüpfen?
Antwortento top
#6
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.
Gruß Atilla
Antwortento top
#7
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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste