Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ComboBox zur Tabellenauswahl

ComboBox zur Tabellenauswahl
19.09.2003 13:28:47
Alex
Hallo Forum,
hab ein Problem, bei dem ich eure Hilfe benötigen würde:
Ich habe mit VBA eine neue Symbolleiste erstellt in "DieseArbeitsmappe", welche bei Öffnen der Mappe aktiviert wird. Darin sind nun alle Tabellen geladen, die mit "data" beginnen. Bei Anwahl einer der Namen soll die entsprechende Tabelle geöffnet werden. Das Makro hierfür ist bei mir in einem Modul gespeichert (ist das richtig?), aber es gibt mir nur die Fehlermeldung Objekt erforderlich. Anscheinend stimmt mit meiner Definition bei Schaltflaeche2Befehl() was nicht. Könnt ihr mal einen Blick drauf werfen?
Vielen Dank
Alex


Private Sub Workbook_Open()Dim ws1 As Worksheet
Dim ws1 As Worksheet
Dim Symbolleiste As CommandBar
Dim Schaltflaeche2 As CommandBarComboBox
Call DeleteCmdBar
Set Symbolleiste = Application.CommandBars.Add(Name:="Navigation", _
temporary:=True)
With Symbolleiste
.Visible = True
.Top = 300
.Left = 300
End With
'Combobox 1 erstellen und laden
Set Schaltflaeche2 = Symbolleiste.Controls.Add(msoControlComboBox)
With Schaltflaeche2
.Caption = "Data Entry"
.Text = "Dateneingabe"
For Each ws1 In ActiveWorkbook.Worksheets
If Left(ws1.Name, 4) = "data" Then
.AddItem ws1.Name
End If
Next
.AddItem " "
.DropDownLines = 20
.DropDownWidth = 200
.OnAction = "Schaltflaeche2Befehl"
End With
End Sub


und in Modul 9........

Sub Schaltflaeche2Befehl()
Worksheets(Symbolleiste.Schaltflaeche2.Text).Activate
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
  • .
    19.09.2003 14:19:01
    .
Anzeige
.
19.09.2003 14:19:01
.
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige