ComboBox zur Tabellenauswahl

• ComboBox zur Tabellenauswahl von Alex vom 19.09.2003 13:28:47
  • . - von . am 19.09.2003 14:19:01

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"

ComboBox als Symbol		Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen		ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen		Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken		Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen		Neues Element in ComboBox
Werteübernahme gem. Auswahl in ComboBox - ohne VBA		Blätter in ComboBox-Feld einlesen und auswählen
Wert in einer CommandBarComboBox verändern		ComboBox-Felder in UserForm aufklappen
UserForm-ComboBox-Feld nach Tasteneingabe aufklappen		Wert aus 2. UserForm-ComboBox-Spalte berechnen
In einer ComboBox selektiertes Arbeitsblatt auswählen		ComboBox in Abhängigkeit von einer CheckBox anzeigen
Adressfeld aus UserForm-ComboBox füllen		Tages-ComboBox einer UserForm an den ausgewählten Monat anpassen
UserForm mit ComboBoxes durch VBA-Code erstellen		ComboBoxes per VBA-Code in Tabellenblatt erzeugen
ComboBox für Monatsblattauswahl in Menüleiste einfügen		Wert aus ComboBox in Tabelle eintragen
TextBox in Abhängigkeit einer ComboBox-Auswahl füllen		Symbolleiste mit ComboBox erstellen
Werte in UserForm-ComboBox einlesen und ausgeben		Ein- und ausblenden von Blättern gem. UserForm-ComboBoxes
Nach Tabellenblatt-ComboBox den vorher selektierte Bereich wählen		Werte aus UserForm-ComboBox suchen und Fundstelle kopieren
Bei einer mehrspaltigen ComboBox Wert aus Spalte 2 als Startwert		UserForm-ComboBoxes als Collection-Objekte ansprechen
Eintrag eines UserForm-ComboBox-Wertes in aktive Zelle		Zweidimensionales Array an UserForm-ComboBox übergeben
In Abhängigkeit einer ComboBox-Auswahl eine ListBox füllen		Wert aus ComboBox in TextBox, dann in Tabelle suchen
Summe aller Werte gem. ComboBox-Eintrag		Geöffete Arbeitsmappen in Menü-ComboBox listen
Tabelle nach ComboBox-Auswahl durchsuchen		Blattauswahl über eine UserForm-ComboBox
Dateinamen in UserForm-ComboBox einlesen und Datei öffnen		Doppelt vorkommende Werte in einer UserForm-Combobox listen
Selektieren von über ComboBox-Felder ausgewählten Werten		Nach Artikelauswahl in ComboBox Preis ermitteln
Wert in ComboBox einlesen, suchen, editieren, ausgeben		Liste ohne Doppelte Werte in ComboBox einlesen
ComboBox-Breiten während der Laufzeit festlegen		Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen
Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen		Beim Öffnen der Arbeitsmappe Menü-ComboBoxes anlegen