Hallo Zusammen!!!
Eine kurze Frage: In einer UF befindet sich ein Listenfeld, welches mehrere Spalten enthält. Die 3. Spalte möchte ich rechtsbündig formatiert haben. Wie muss ich das anstellen, wenn es denn überhaupt möglich ist?
Der Code zum befüllen der ListBox:
Dim lng As Long
Dim i As Integer
Application.ScreenUpdating = False
With frmabgesagte_Spiele
.ListBox1.Clear
Sheets("3. Liga").Activate
i = 0
For lng = 4 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 107).Value = .TextBox1.Value Then
.ListBox1.AddItem Cells(lng, 53).Text
.ListBox1.Column(1, i) = Cells(lng, 108).Text
.ListBox1.Column(2, i) = Cells(lng, 57).Text
.ListBox1.Column(3, i) = Cells(lng, 58).Text
.ListBox1.Column(4, i) = Cells(lng, 59).Text
.ListBox1.Column(5, i) = Cells(lng, 109).Text
.ListBox1.Column(6, i) = Cells(lng, 110).Text
.ListBox1.Column(7, i) = Cells(lng, 111).Text
.ListBox1.Column(8, i) = Cells(lng, 112).Text
i = i + 1
Else
End If
Next lng
End With
Ich danke euch!!!
Gruß Frank H.!!!