(Tipp 152)
![Nachricht zum Beitrag an Autor Nachricht zum Beitrag an Autor](sitegrafik/icon_direktnachricht.jpg)
![Nach oben Nach oben](sitegrafik/icon_oben.jpg)
Wie kann ich auf einem Blatt ein Kombinationsfeld erstellen, in dem die Namen der Blätter enthalten sind? Durch Klick in das Kombinationsfeld soll der angeklickte Name in A1 erscheinen.
- Menüband Entwicklertools einblenden (Rechtsklick in leere Stelle des Menübands und Menüband anpassen)
- Einfügen ▸ ActiveX-Steuerelemente ▸ Kombinationsfeld
- Kombinationsfeld zeichnen
- Doppelklick auf das Feld, dadurch wird der VBA-Editor geöffnet
- folgenden Code eingeben (Zelle anpassen):
Private Sub ComboBox1_Change() Range("A1") = ComboBox1.Text End Sub[/vbacode]
- Menü Einfügen - Modul
- folgendes Makro eingeben (dient zum Füllen des Kombinationsfeldes):
Sub Fuellen() Dim intI As Integer Sheets("Tabelle1").ComboBox1.Clear For intI = 1 To Sheets.Count Sheets("Tabelle1").ComboBox1.AddItem (Sheets(intI).Name) Next End Sub
![](sitegrafik/entwicklertools.png)
Durch den Aufruf des Makros Fuellen wird das Kombinationsfeld gefüllt; nach der Auswahl eines Blattes erscheint dessen Name im Beispiel in A1.