Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox

Forumthread: Combobox

Combobox
26.08.2020 21: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
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox
26.08.2020 21: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 21:35:14
Mullit
AW: Combobox
26.08.2020 21: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
Anzeige
AW: ...also ihn doch nicht..;-)...owT
26.08.2020 21:48:47
Mullit
AW: Combobox
30.08.2020 10: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 05: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
Anzeige
AW: Combobox
27.08.2020 08: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 10: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
Anzeige
Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2020 10:53:57
Werner
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige