Microsoft Excel

Herbers Excel/VBA-Archiv

Range in AddItem füllen

    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