Combobox

Forumthread: Combobox
9 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Combobox

Combobox

26.08.2020 23:25:02

Guesa

Hallo Forum
Habe diesen Code zum befüllen einer Combobox mit Jahreszahlen gefunden
Das voreingestellte Jahr sollte das aktuelle Jahr sein. Wie setze ich hier den Listindex ?
Dim eJahr As Integer
With ComboBox2
For eJahr = 2020 To 2050
.AddItem eJahr
Next eJahr
End With
Schon mal ein Danke schön für Eure Hilfe
Gruß, Guesa

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Combobox

26.08.2020 23:33:48

Mullit
AW: ...Gruß, Mullit..;-)..owT

26.08.2020 23:35:14

Mullit
AW: Combobox

26.08.2020 23:39:48

Werner
AW: ...also ihn doch nicht..;-)...owT

26.08.2020 23:48:47

Mullit
AW: Combobox

30.08.2020 12:36:23

Guesa
Alternative

27.08.2020 07:56:06

RPP63
AW: Combobox

27.08.2020 10:14:29

Daniel
AW: Combobox

30.08.2020 12:37:25

Guesa
Gerne u. Danke für die Rückmeldung. o.w.T.

30.08.2020 12:53:57

Werner

AW: Combobox

26.08.2020 23:33:48

Mullit

Hallo,
meinst Du ihn hier...?..:

Dim eJahr As Integer
With ComboBox2
For eJahr = Year(Now)To Year(Now) + 30
.AddItem eJahr
Next eJahr
End With

AW: ...Gruß, Mullit..;-)..owT

26.08.2020 23:35:14

Mullit

AW: Combobox

26.08.2020 23:39:48

Werner

Hallo,
so:

Private Sub UserForm_Initialize()
Dim eJahr As Integer
With ComboBox2
For eJahr = 2020 To 2050
.AddItem eJahr
Next eJahr
.ListIndex = Year(Date) - 2020
End With
End Sub

Gruß Werner

AW: ...also ihn doch nicht..;-)...owT

26.08.2020 23:48:47

Mullit

AW: Combobox

30.08.2020 12:36:23

Guesa

Hallo Werner und andere Helfende
Sorry das ich mich erst jetzt melde, war einige Tage außer Gefecht gesetzt. Die beste Krankheit taugt halt nichts.
Habe den Code von Werner genommen
Gruß, Guesa

Alternative

27.08.2020 07:56:06

RPP63

Moin!
Die .AddItem-Methode würde ich nur anwenden, wenn keine Gesetzmäßigkeiten vorliegen.
Die Methode ist durchaus als langsam zu bezeichnen.
Folgendes füllt die CB mit 31 Jahren, beginnend mit dem aktuellen und wählt den ersten Eintrag:

With ComboBox1
.List = Evaluate("ROW(" & Year(Date) & ":" & Year(Date) + 30 & ")")
.ListIndex = 0
End With

Gruß Ralf

AW: Combobox

27.08.2020 10:14:29

Daniel

Hi
Am einfachsten so:
Combobox2.Value = Year(Now)
Wenn man einer Combobox einen Wert zuweist, der in der Auflistung vorhanden ist, dann wird der ListIndex automatisch angepasst, so dass es egal ist, ob man den Wert oder den Listindex setzt.
Gruß Daniel

AW: Combobox

30.08.2020 12:37:25

Guesa

Hallo Werner und andere Helfende
Sorry das ich mich erst jetzt melde, war einige Tage außer Gefecht gesetzt. Die beste Krankheit taugt halt nichts.
Habe den Code von Werner genommen
Gruß, Guesa

Gerne u. Danke für die Rückmeldung. o.w.T.

30.08.2020 12:53:57

Werner