Microsoft Excel

Herbers Excel/VBA-Archiv

User Form mit Werten füllen!

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!"