Gruppe
Funktion
Problem
Die Werte aus Spalte A werden in Spalte C in der Reihenfolge gem. Spalte B dargestellt.
ClassModule: frmAlign
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim arr(1 To 10, 1 To 3)
Dim iRow As Integer, iCol As Integer
For iRow = 1 To 10
For iCol = 1 To 3
If iCol = 2 Then
arr(iRow, iCol) = String(8 - _
Len(Cells(iRow, iCol).Text), " ") & _
Cells(iRow, iCol).Text
Else
arr(iRow, iCol) = Cells(iRow, iCol)
End If
Next iCol
Next iRow
lstAlign.List = arr
End Sub
StandardModule: Modul1
Sub CallForm()
frmAlign.Show
End Sub