Range in AddItem füllen

Bild

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

Bild


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


Bild


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


Bild


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


Bild


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


Bild


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


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Überlauf in Schleife"