Herbers Excel/VBA-Archiv

User Form mit Werten füllen!

• User Form mit Werten füllen! von Andreas vom 21.10.2014 08:25:02
• AW: User Form mit Werten füllen! - von Sven Söllner am 21.10.2014 08:30:39
  • AW: User Form mit Werten füllen! - von Andreas am 21.10.2014 08:59:12
    • AW: User Form mit Werten füllen! - von Sven Söllner am 21.10.2014 09:18:57
      • AW: User Form mit Werten füllen! - von Andreas am 21.10.2014 11:05:24
        • AW: User Form mit Werten füllen! - von Sven Söllner am 21.10.2014 14:31:59

Betrifft: User Form mit Werten füllen! von: Andreas
Geschrieben am: 21.10.2014 08:25:02

Hallo zusammen,

wie kann ich eine ComboBox mit Werten füllen ohne diese alle einzugeben?

Beispiel:

ComboBox3.List = Array("", "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12")

Kann mann nicht einfach "01 To 12" einfügen?

Gruß Andreas

Betrifft: AW: User Form mit Werten füllen! von: Sven Söllner
Geschrieben am: 21.10.2014 08:30:39


Hi Andreas,

versuche es mal so:

for i = 1 to 12

ComboBox3.AddItem Format(i, "00")
next

Gruß
Sven

Betrifft: AW: User Form mit Werten füllen! von: Andreas
Geschrieben am: 21.10.2014 08:59:12

Hallo Sven,

Super Funktioniert!!!

Ich will noch in einer anderen ComboBox "Monate" einfügen.

Hierfür habe ich da Makro angepasst, leider bekomme ich in der Auswahl die ausgeschriebenen Monate und die Zahlen 1-12 angezeigt. Was muss ich noch ändern?

For i = 1 To 12
ComboBox3.AddItem i
ComboBox3.AddItem Format(DateSerial(1900, i, 1), "MMMM")
Next

Gruß Andreas

Betrifft: AW: User Form mit Werten füllen! von: Sven Söllner
Geschrieben am: 21.10.2014 09:18:57

For i = 1 To 12
 ComboBox3.AddItem i         '<---- hier fügst Du die "reinen" Zahlen hinzu, einfach diese  _
Zeile   
                             '      entfernen

 ComboBox3.AddItem Format(DateSerial(1900, i, 1), "MMMM")
Next

Betrifft: AW: User Form mit Werten füllen! von: Andreas
Geschrieben am: 21.10.2014 11:05:24

Habe auch "ich" endlich verstanden ;-)

Wie bekomme ich denn die Zahlen auch zweistellig?
01, 02 ...... 11, 12 .........

ComboBox3.AddItem Format "DD" ????

Betrifft: AW: User Form mit Werten füllen! von: Sven Söllner
Geschrieben am: 21.10.2014 14:31:59

Hi,

2-stellig

Format(i, "00")

3-stellig

Format(i, "000")

4-stellig

Format(i, "0000")

usw... :-)

Grüße
Sven

Beiträge aus den Excel-Beispielen zum Thema "User Form mit Werten füllen!"