Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige