Suchergebnisse (1 Treffer, 1 Begriff) 
Kategorien:
(Tipp 152)
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
Durch den Aufruf des Makros Fuellen wird das Kombinationsfeld gefüllt; nach der Auswahl eines Blattes erscheint dessen Name im Beispiel in A1.