Liste Hochzählen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox


Excel-Version: 9.0 / 2000
nach unten

Betrifft: Liste Hochzählen
von: Dirk Mommsen
Geschrieben am: 07.05.2002 - 14:42:16

Hallo liebe "Mit-Zellen" ;),

ich habe folgendes Problem:

Ich habe in einem Tabellenblatt eine Zelle z.B. "E10" mit einem variierendem Wert z.B. 12. Diesen möchte ich in einer Userform so in die Liste einer Combobox füllen, daß von der 1. Zeile bis zu letzten Zeile von 0 bis zum Wert von "E10" hochgezählt wird (0,1,2,3,...,11,12).

Ich weiß nur leider nicht wie ich das umsetzen soll.
Kann mir jemand weiterhelfen ?
Viele Dank im Voraus

nach oben   nach unten

Re: Liste Hochzählen
von: Hajo
Geschrieben am: 07.05.2002 - 14:47:36

Hallo Dirk

ich habe jetzt keine Fehlerprüfung eingebaut.


    Dim As Integer
    For I = 1 To CInt(Range("E10"))
        ListBox1.AddItem I
    Next I

Gruß Hajo


nach oben   nach unten

Re: Liste Hochzählen
von: Andreas
Geschrieben am: 07.05.2002 - 14:49:59

Hallo Dirk,

das zum Code Deiner UserForm einfügen:

Private Sub UserForm_Initialize()
Dim i%, intWert%

intWert = Range("E10").Value
With ComboBox1
    For i = 0 To intWert
        .AddItem i
    Next i
End With
End Sub


Viel Spaß,
Andreas
nach oben   nach unten

Re: Liste Hochzählen
von: dirk
Geschrieben am: 07.05.2002 - 15:01:38

hallo Hajo,
klappt prima

vielen dank


nach oben   nach unten

Re: Liste Hochzählen
von: Dirk
Geschrieben am: 07.05.2002 - 15:04:55

Hallo Andreas,

habs gerade ausprobiert, klappt prima

schönen dank


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Laufzeitfehler 1004"