Herbers Excel-Forum - das Archiv

ComboBox

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
    Bild

    Betrifft: ComboBox
    von: Doreen
    Geschrieben am: 24.10.2003 16:11:49
    Hallo zusammen,

    habe in meiner Kalkulation folgenden Code eingegeben:

    Private Sub ComboBox_change()
    ComboBox1.AddItem ("Reise")
    ComboBox1.AddItem ("Fahrt")
    ComboBox1.AddItem (" ")
    ComboBox2.AddItem ("Auto")
    ComboBox2.AddItem ("Wohnung")
    ComboBox2.AddItem (" ")
    ComboBox3.AddItem ("Strom")
    ComboBox3.AddItem ("Gas")
    ComboBox3.AddItem (" ")
    End Sub
    


    Wenn Ich nun auf Makro abspielen gehe führt er dieses auch aus, aber wenn ich die Datei schließe und neu starte muß ich es immer wieder neu starten.

    Wie sage ich ihm das er die Eintäge immer beim öffnen der Datei anbieten soll?
    Gruß
    Doreen
    Bild

    Betrifft: AW: ComboBox
    von: Andi_H
    Geschrieben am: 24.10.2003 16:58:34
    Hi Doreen,

    steht dein Code in ner Combobox im sheet oder in ner userform??
    in sheet: in DieseArbeitsmappe
    Private Sub Workbook_Open()
    With Sheets("Tabelle1")
    .ComboBox1.AddItem ("Reise")
    .ComboBox1.AddItem ("Fahrt")
    .ComboBox1.AddItem (" ")
    .ComboBox2.AddItem ("Auto")
    .ComboBox2.AddItem ("Wohnung")
    .ComboBox2.AddItem (" ")
    .ComboBox3.AddItem ("Strom")
    .ComboBox3.AddItem ("Gas")
    .ComboBox3.AddItem (" ")
    End With
    End Sub
    


    in ner form: code in die userform

    Private Sub UserForm_Initialize()
    With UserForm1
    .ComboBox1.AddItem ("Reise")
    .ComboBox1.AddItem ("Fahrt")
    .ComboBox1.AddItem (" ")
    .ComboBox2.AddItem ("Auto")
    .ComboBox2.AddItem ("Wohnung")
    .ComboBox2.AddItem (" ")
    .ComboBox3.AddItem ("Strom")
    .ComboBox3.AddItem ("Gas")
    .ComboBox3.AddItem (" ")
    End With
    gruß
    andi
    End Sub
    

    Bild

    Betrifft: AW: ComboBox
    von: Doreen
    Geschrieben am: 27.10.2003 09:13:04
    Hallo Andi,

    vielen Dank es hat geklappt!

    Gruß

    Doreen
     Bild
    Excel-Beispiele zum Thema " ComboBox"
    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