Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

In Listbox nicht alle Tabellenblätter anzeigen

In Listbox nicht alle Tabellenblätter anzeigen
26.01.2004 18:19:47
Alexander P
Hallo ich möchte meine Steuerelement Listbox mit vorhanden Tabellenblätter füllen die beim Anklicken sofort aufgerufen werden - mein Problem ist das ich nicht alle Tabellenblätter in der Listbox angezeigt haben möchte.
Kann mir jemand helfen? - Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Listbox nicht alle Tabellenblätter anzeigen
26.01.2004 18:35:42
Josef Ehrensberger
Hallo Alexander!
Dazu müsste man schon wissen, wie Deine
Blätter benannt sind und welche davon in
der Listbox aufscheinen sollen?
Gruß Sepp
AW: In Listbox nicht alle Tabellenblätter anzeigen
26.01.2004 18:55:04
GraFri
Hallo
Ich würde es mit eigener Symbolleiste lösen.
Vorteil: Diese DropDown-Element ist in allen Tabellenblättern sichtbar.

Alles in ein Modul, speichern, schließen und neu starten.


Option Explicit
Dim objList         As CommandBarControl
Dim ComBar
Const ComBarName    As String = "Tabellenname"

Private Sub Auto_Open()
Dim n               As Integer
'Falls Symbollsite schon existiert, löschen und erzeugen
    On Error Resume Next
    CommandBars(ComBarName).Delete
'Symbolleiste oben anzeigen, Button einfügen
    Set ComBar = Application.CommandBars.Add(Name:=ComBarName, Position:=msoBarTop)
        ComBar.Visible = True
    Set objList = CommandBars(ComBarName).Controls.Add(Type:=msoControlDropdown)
        
    With objList
        .Width = 120                'Breite des TropDown
        .OnAction = "Blatt_auswählen"
'Einträge im TropDown der Menüleiste
    For n = 1 To Sheets.Count
        
        If Sheets(n).Name = "Tabelle3" Then GoTo Sprungmarke 'Tabelle ausschließen
        .AddItem Sheets(n).Name
Sprungmarke:
    Next n
        .ListIndex = 1
    End With
End Sub
Sub Blatt_auswählen()
    
    Set objList = CommandBars.ActionControl
    Worksheets(objList.Text).Activate
End Sub
Private Sub Auto_Close()
    On Error Resume Next
    For Each ComBar In Application.CommandBars
        If ComBar.Name = ComBarName Then ComBar.Delete
    Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Mit freundlichen Grüßen, GraFri
Anzeige

221 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige