Thema: Prozentwerte einlesen

Home

In die ComboBox werden Prozentwerte aus einem Arbeitsblatt eingelesen.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Prozentwerte einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Zeilenzähler initialisieren
- Schleife bis zur ersten leern Zelle
- Text des Zellinhaltes (im Gegensatz zum üblichen Wert des Zellinhaltes) in ComboBox einlesen
- Rahmen um ComboBox-Objekt bilden
- Wenn die ComboBox mindestens einen Wert enthält, dann...
- 1. Wert der ComboBox auswählen

Code:


Private Sub UserForm_Initialize()
   Dim iRow As Integer
   iRow = 1
   Do Until IsEmpty(Cells(iRow, 1))
      cboPercent.AddItem Cells(iRow, 1).Text
      iRow = iRow + 1
   Loop
   With cboPercent
      If .ListCount > 0 Then
         .ListIndex = 0
      End If
   End With
End Sub