Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1196to1200
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
Inhaltsverzeichnis

ComboBox einträge mit Modul verknüpfen

ComboBox einträge mit Modul verknüpfen
Chris
HY Leute...
ich habe ein UserForm inkl. ComboBox entworfen.
Per Klick auf ein Button öffnet er mir das Userform.
In der Liste stehen 12 Werte (Oktober - September)
Wenn ich Oktober anwähle und den Button "Importieren" klicke, soll er mein Modul Einlesen.Oktober ausführen und so weiter....
Momentan sieht mein Makro so aus:

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
End Sub
Private Sub UserForm_Initialize()
Dim MyArray(1 To 13) As String
MyArray(1) = ""
MyArray(2) = "Oktober"
MyArray(3) = "November"
MyArray(4) = "Dezember"
MyArray(5) = "Januar"
MyArray(6) = "Februar"
MyArray(7) = "März"
MyArray(8) = "April"
MyArray(9) = "Mai"
MyArray(10) = "Juni"
MyArray(11) = "Juli"
MyArray(12) = "August"
MyArray(13) = "September"
cboMonate.List = MyArray
cboMonate.ListIndex = 0
End Sub

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

Betreff
Benutzer
Anzeige
AW: ComboBox einträge mit Modul verknüpfen
19.01.2011 14:01:03
Eugen
Hi Chris
private sub combobox1_Change()
select case combobox1.Value
case "Oktober"
call einlesen_oktober
usw
end select
Gruss Eugen
AW: ComboBox einträge mit Modul verknüpfen
19.01.2011 14:10:05
Chris
Hab es hinbekomme...
Hab es etwas abgeändert, aber dein Anstoss hat mir sehr geholen.
es sieht jetzt so aus:

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()     'Meine Schaltfläche "Importieren"
Select Case cboMonate.Value     'Name meiner ComboBox
Case "Oktober"     'Name des ComboBox Eintrages
Call Einlesen.Oktober     'Name meines Makros
'usw
End Select
End Sub
Private Sub UserForm_Initialize()
Dim MyArray(1 To 13) As String
MyArray(1) = ""
MyArray(2) = "Oktober"
MyArray(3) = "November"
MyArray(4) = "Dezember"
MyArray(5) = "Januar"
MyArray(6) = "Februar"
MyArray(7) = "März"
MyArray(8) = "April"
MyArray(9) = "Mai"
MyArray(10) = "Juni"
MyArray(11) = "Juli"
MyArray(12) = "August"
MyArray(13) = "September"
cboMonate.List = MyArray
cboMonate.ListIndex = 0
End Sub

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige