Frage von Biggy2016, 6

Excel VBA - rechtsbündig in der ComboBox?

Hallo liebe Leute,

ich habe das Problem, dass, trotz m.E. richtiger Vorgabe (Format @), Werte in der ComboBox nicht rechtsbündig gesetzt werden. Was mache ich falsch?

Vielen Dank für Eure Hilfe!!!

Private Sub Cmb_Vertrieb_Change()

Dim lngZeile As Long Dim lngZeileMax As Long Dim intz As Integer Dim d As Integer Dim m As Integer Dim y As Integer

d = Day(Date) m = Month(Date) - 1 y = Year(Date)

Me.lst_Vertrieb.Clear

With Worksheets("tbl_" & y & "_" & Format(m, "00")) lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row

     For lngZeile = 2 To lngZeileMax
   If .Cells(lngZeile, 2).Value = Me.Cmb_Vertrieb.Value Then
    Me.lst_Vertrieb.AddItem .Cells(lngZeile, 1).Value
    Me.lst_Vertrieb.Column(1, intz) = Format(Format(.Cells(lngZeile, 12).Value, "#,##0"), "@@@@@@@@@@")   
    Me.lst_Vertrieb.Column(2, intz) = Format(Format(.Cells(lngZeile, 13).Value, "#,0.0%"), "@@@@@@@")     
    Me.lst_Vertrieb.Column(3, intz) = Format(Format(.Cells(lngZeile, 14).Value, "0.0"), "@@@@@@")        
    Me.lst_Vertrieb.Column(4, intz) = Format(Format(.Cells(lngZeile, 17).Value, "0.0"), "@@@@@@")        
    
    intz = intz + 1
   End If
Next lngZeile
 

End With

End Sub

Expertenantwort
von Suboptimierer, Community-Experte für Excel, 5

Wenn du die Eigenschaft "TextAlign" auf "3 fmTextAlignRight" setzt, sind die Einträge in der Kombobox rechtsbündig.
Dadurch ersparst du dir die doppelte Formatierung.

Kommentar von Biggy2016 ,

Perfekt - vielen Dank! Schaut gut aus und ist genau das, was ich gesucht habe. Merci! :-)

Kommentar von Suboptimierer ,

Bitteschön!

Keine passende Antwort gefunden?

Fragen Sie die Community

Weitere Fragen mit Antworten