dropdown über vba vorbelegen und auswerten in Excel 2003

Michael Feske

unread,

Feb 8, 2010, 3:17:01 PM2/8/10

to

Hallo alle zusammen,
ich verwende ein Formular, das heißt Anwesenheit.
In diesem befinden sich zwei Dropdownfelder, welche ich vorbelegen möchte
über VBA und deren Inhalt später in je eine Zelle schreiben möchte. Leider
klappt es schon mit der Vorbelegung nicht :-(
--- schnipp
Private Sub ComboBox1_GotFocus()
Dim arr As Variant
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, "Übung 01", "Übung 02",
"Übung 03", "Übung 04", "Übung 05", "Übung 06", "Übung 07", "Übung 08",
"Übung 09", "Übung 10")
ComboBox1.List = arr
End Sub
--- schnapp

Eingefügt habe ich dieses bei rechtsklick auf das DropDownfeld und Code
zeigen.

Gruß
Micha

Claus Busch

unread,

Feb 8, 2010, 3:33:07 PM2/8/10

to

Hallo Michael,

Am Mon, 8 Feb 2010 12:17:01 -0800 schrieb Michael Feske:

> ich verwende ein Formular, das hei�t Anwesenheit.
> In diesem befinden sich zwei Dropdownfelder, welche ich vorbelegen m�chte
> �ber VBA und deren Inhalt sp�ter in je eine Zelle schreiben m�chte. Leider

> klappt es schon mit der Vorbelegung nicht :-(

probiers mal so:
Private Sub UserForm_Initialize()

Dim myArr As Variant
Dim i As Integer

myArr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, "�bung 01", "�bung 02", _
"�bung 03", "�bung 04", "�bung 05", "�bung 06", "�bung 07", "�bung 08", _
"�bung 09", "�bung 10")

For i = LBound(myArr) To UBound(myArr)
Me.ComboBox1.AddItem myArr(i)
Next

End Sub

Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Michael Feske

unread,

Feb 8, 2010, 4:16:01 PM2/8/10

to

Hallo Claus,
muss ich das einfach im Code vom entsprechenden Formular einfügen? Werde es
gleich mal ausprobieren. Vielen Dank schon mal für die Hilfe.
Gruß
Micha

Michael Feske

unread,

Feb 8, 2010, 4:22:01 PM2/8/10

to

Hat leider nicht funktioniert :-( Hate es auch in das click vom Button
welcher das Formular aufruft gelegt hat leider auch nicht funktioniert, oder
ich habe mich zu duselig angestellt.
Gruß
Micha

Claus Busch

unread,

Feb 8, 2010, 4:24:34 PM2/8/10

to

Hallo Michael,

Am Mon, 8 Feb 2010 13:16:01 -0800 schrieb Michael Feske:

> muss ich das einfach im Code vom entsprechenden Formular einf�gen?

korrekt. Rechtsklick auf deine UserForm und "Code anzeigen" w�hlen und dort
dann UserForm_Initialize einstellen und den Code einf�gen.

Michael Feske

unread,

Feb 8, 2010, 4:26:02 PM2/8/10

to

Prima Cluas hat doch noch funktioniert, jetzt habe ich nur das Problem, das
die Zahlen 1 bis 10 auch noch aufgeführt werden :-(
Habe ich da was verkehrt gemacht?

Gruß
Micha

Claus Busch

unread,

Feb 8, 2010, 4:30:56 PM2/8/10

to

Hallo Michael,

Am Mon, 8 Feb 2010 13:26:02 -0800 schrieb Michael Feske:

> Prima Cluas hat doch noch funktioniert, jetzt habe ich nur das Problem, das

> die Zahlen 1 bis 10 auch noch aufgef�hrt werden :-(

> Habe ich da was verkehrt gemacht?

ich dachte, das soll so sein, weil du beides in deinem Array aufgef�hrt
hast. Nimm dann die Zahlen einfach aus dem Array heraus. Wenn die UserForm
dann wieder neu initialisiert wird, hast du nur noch die �bungen drin.

Michael Feske

unread,

Feb 8, 2010, 4:54:01 PM2/8/10

to

Hallo Claus,
habe jetzt 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, weggelassen ;-) dachte es hätte
etwas mit dem array Aufruf zu tun.

Habe jetzt noch ein paar andere kleine Probleme.
1) Kann ich die Auswahl auf die hinterlegten Werte begrenzen, so das keine
anderen eingeben werden können?
2) Kann man den VBA editor nicht einstellen, das er den Code automatisch
formatiert?

3) Über ein such makro finde ich die zeile in die ich schreiben möchte,
anhängig von combobox1 und combobox2 möchte ich die werte aus diesen boxen
bzw das datum in die entsprechende spalte schreiben. zum beispiel wenn
übung_01 ausgesucht ist soll in spalte e der inhalt aus combobox2 geschrieben
werden. Hast Du dazu noch Ideen die mir weiterhelfen?

Gruß
Micha