in Userform liesst Werte nicht ein
30.05.2007 07:40:57
Christian
möchte aus einem Tabellenblatt Werte in eine Combobox einlesen lassen. Der Code läuft auch durch und ich sehe das bei der Schleife unter rngValue die richtigen Werte stehen jedoch nachdem das Marko durchgelaufen ist und ich das Userform starte werden mir keine Werte in der Combobox angezeigt.
Kann mir jemand verraten warum?
Private Sub RequestPerson()
TestReleases_Start.CB_RequestPerson.Clear
Dim rngRange As Range
Sheets("Intern").Select
Dim t As Long
t = Worksheets("Intern").UsedRange.Rows.Count
test = "i" & CStr(t)
For Each rngRange In Sheets("Intern").Range("i1", test)
TestReleases_Start.CB_RequestPerson.AddItem rngRange.Value
Next rngRange
End Sub
danke Gruß
Christian
Anzeige