Thema: Spalten links- und rechtsbündig darstellen

Home

Die Spalten A und C werden in der ListBox linksbündig, Spalte B wird rechtsbündig dargestellt. Bei der Lösung handelt es sich um eine Simulation der Ausrichtung.

Spalten links- und rechtsbündig darstellen

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Spalten links- und rechtsbündig darstellen
Ablaufbeschreibung:
- Variablendeklaration
- Schleife über die Zeilen starten
- Schleife über die Spalten starten
- Wenn Spalte B die aktuelle ist...
- Datenfeld den Inhalt der aktuellen Zelle mit vorangestellten Leerzeichen zuweisen
- Sonst...
- Datenfeld den Inhalt der aktuellen Zelle zuweisen
- Array in ListBox einlesen

Code:


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