Range in AddItem füllen

• Range in AddItem füllen von marina vom 02.10.2003 16:28:18
  • AW: Range in AddItem füllen - von Michael Scheffler am 02.10.2003 16:38:11
  • AW: Range in AddItem füllen - von GraFri am 02.10.2003 16:43:09
    • AW: Range in AddItem füllen - von marina am 02.10.2003 16:45:01
      • AW: Range in AddItem füllen - von Michael Scheffler am 02.10.2003 16:48:19
        • AW: Range in AddItem füllen - von GraFri am 02.10.2003 16:53:30

Betrifft: Range in AddItem füllen
von: marina
Geschrieben am: 02.10.2003 16:28:18
Hallo Leute,

ich brauche unbedingt mal eure Hilfe ..

Ich möchte Reihe 9F - 9H in eine Combobox füllen.

Allerdings komme ich mit:

Comb_Papierticketzuschlag.AddItem (Zahlungsbeleg_Datenblatt.Range("9F:9H"))

.. nicht weiter !

Vielen Dank schon im Voraus !!

lg, Marina

Betrifft: AW: Range in AddItem füllen
von: Michael Scheffler
Geschrieben am: 02.10.2003 16:38:11
Hi,

Du musst es zellenweise einfülllen:

Comb_Papierticketzuschlag.AddItem Cells(i, j)

Gruß

Micha

Betrifft: AW: Range in AddItem füllen
von: GraFri
Geschrieben am: 02.10.2003 16:43:09
Hallo

Der Datentyp Byte hat nur einen Bereich bis 255.
Besser wäre Datentyp Integer (+/- 32768) bzw. Datentyp Long (+/- 2147483648)

mfg, GraFri

Betrifft: AW: Range in AddItem füllen
von: marina
Geschrieben am: 02.10.2003 16:45:01
na kann ich denn das auch irgendwie mit ner range machen ?

Hat jemand ein codebeispiel für mich ?

Lieben Dank,Marina

Betrifft: AW: Range in AddItem füllen
von: Michael Scheffler
Geschrieben am: 02.10.2003 16:48:19
Hi,

vielleicht wenn Du ControlSource nimmst.

Gruß

Micha

Betrifft: AW: Range in AddItem füllen
von: GraFri
Geschrieben am: 02.10.2003 16:53:30
Hallo

Sub Comb_Papierticketzuschlag_füllen()
Dim n   As Byte

For n = 1 To 3
    Comb_Papierticketzuschlag.AddItem Sheets("Tabelle1").Cells(9, 6 + n)
Next n
End Sub

     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri