Das Archiv des Excel-Forums
ComboBox zur Tabellenauswahl
Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Betrifft: ComboBox zur Tabellenauswahl
von: Alex
Geschrieben am: 19.09.2003 13:28:47
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
Betrifft: .
von: .
Geschrieben am: 19.09.2003 14:19:01
.
Excel-Beispiele zum Thema " ComboBox zur Tabellenauswahl"