Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Anzeige
Inhaltsverzeichnis

ComboBox

ComboBox
24.10.2003 16:11:49
Doreen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox
24.10.2003 16:58:34
Andi_H
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

Anzeige
AW: ComboBox
27.10.2003 09:13:04
Doreen
Hallo Andi,

vielen Dank es hat geklappt!

Gruß

Doreen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige