ComboBox zur Tabellenauswahl
19.09.2003 13:28:47
Alex
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