Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1776to1780
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
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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
Anzeige
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
Gerne u. Danke für die Rückmeldung. o.w.T.
30.08.2020 10:53:57
Werner

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige