Breite der Listboxspalten
08.08.2005 16:51:34
Basti
ich habe jetzt folgenden Code:
Private Sub UserForm_initialize()
UserForm6.Caption = UserForm4.MultiPage1.SelectedItem.Caption
Dim Beschreibung As String
Beschreibung = UserForm4.MultiPage1.SelectedItem.Caption
Dim zeiger As Range
Set zeiger = Range("a:a").Find(Beschreibung)
Dim anfang, ende As Variant
anfang = zeiger.Offset(1, 0).Row
ende = zeiger.End(xlDown).Row
Range(Cells(anfang, 1), Cells(ende, 4)).Select
With ListBox1
.ColumnCount = 4
.RowSource = Selection.Address
End With
End Sub
dann werden die Daten schön wie ich es will in vier Spalten eingeteilt.
Ich würde aber gerne die ersten drei Spalten schmaler machen da hier keine großartigen Daten drinstehen. Wie kann ich das den bewerkstelligen
Gruß Basti