Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vereinfachte Navigation durch die Arbeitsmappe

Forumthread: Vereinfachte Navigation durch die Arbeitsmappe

Vereinfachte Navigation durch die Arbeitsmappe
27.02.2004 13:37:25
Christian
Hallo,
ich suche nach einer Möglichkeit zur vereinfachten Navigation durch Excelmappen:
Ich würde gerne eine Art Naviagtionsleiste im Vordergund eingeblenden, sobald die Excelmappe aktiv ist. Auf dieser sollten die Namen der der einzelnen Arbeitsblätter stehen, welche dann durch einen einfachen 'Klick' aufgerufen werden können. Zudem sollte die Leiste frei beweglich sein.
Ich würde mich sehr freuen, wenn mir jemand bei meinem Problem weiterhelfen könnte...
Grüße
C.
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vereinfachte Navigation durch die Arbeitsmappe
27.02.2004 14:06:27
xXx
Hallo,
das kannst du mit einer Symbolleiste erledigen.
Hier eine Rohfassung. Anpassungen sollten bei deinem Level ein Leichtes sein.

Sub Menü_einfügen()
Dim NeuesMenue As CommandBar, Pop1 As CommandBarButton, sh As Worksheet
On Error Resume Next
Application.CommandBars("MeineLeiste").Delete
On Error GoTo 0
Set NeuesMenue = CommandBars.Add(Name:="MeineLeiste", temporary:=True)
With NeuesMenue
.Position = msoBarFloating
.Visible = True
End With
For Each sh In ActiveWorkbook.Sheets
Set Pop1 = NeuesMenue.Controls.Add(Type:=msoControlButton)
With Pop1
.Style = msoButtonCaption
.Caption = sh.Name
.OnAction = "Start"
.BeginGroup = True
End With
Next sh
End Sub



Sub Start()
Sheets(Application.CommandBars.ActionControl.Caption).Activate
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de
Anzeige
AW: Vereinfachte Navigation durch die Arbeitsmappe
27.02.2004 14:20:26
Christian
Vielen Dank, klappt gut. Geht das auch mit einer Ansicht, in der die Blätter untereinander stehen?
Ich finde es lästig, mit mit der Maus jedesmal nach unten gehen zu müssen, auch wenn mit der rechten Maustaste die Liste der Arbeitsblätter aufgerufen werden kann.
Grüße aus dem Norden
C.
Anzeige
AW: Vereinfachte Navigation durch die Arbeitsmappe
27.02.2004 14:33:59
xXx
Hallo,
setze die Breite der Menüleiste am Ende auf 1.
neuesmenue.width=1
End Sub
Gruß aus'm Pott
Udo
P.S.
27.02.2004 14:11:06
xXx
Hallo,
eigentlich ist das ja überflüssig, da du bei Rechtsklick auf die Navigationspfeile (links unten) eine Liste aller Tabellenblätter bekommst.
Gruß
Udo
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige