AW: Formate in mehrspaltiger ListBox
14.05.2005 15:53:04
Hajo_Zi
Hallo Rainer,
folgender Code stand mal im Forum, sorichtig überzeugt hat mich das aber nicht. Aber Du hast mal schon einen Ansatz.
Option Explicit
' <a href="http://www.xlfaq.herber.de/texte/145901h.htm">http://www.xlfaq.herber.de/texte/145901h.htm</a>
' Die Spalten A und C sollen in einer UserForm-ListBox linksbündig,
' Spalte B rechtsbündig dargestellt werden
' so ganz ist das noch nicht rund in Spalte B 1 ;12 ;123 keine Ausrichtung rechts
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim arr(1 To 10, 1 To 3)
Dim iRow As Integer, iCol As Integer
' Ergänzung
lstAlign.ColumnCount = 3
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
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.
"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.