ListBox-Spalten formatieren

Private Sub cmdRefresh_Click() Me.lstTabelle.ColumnCount = "16" usrInput.lstTabelle.List = Range("A1").CurrentRegion.Value Me.lstTabelle.ColumnHeads = True Me.lstTabelle.ColumnWidths = "150;35;60;60;80;65;55;40;35;43;25;50;60;60;52;50" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo eddmann,
bei gebundenen Listen kannst Du kein Format übernehmen.
Ich verwende immer folgenden Code bei gebundenen Listen.


Private Sub UserForm_Activate()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
' Die oberste Zeile enthaelt die Feldnamen.
' Diese brauchen wir nur dort um die Columnheader darzustellen,
' aber nicht fuer die Listboxeintraege.
' Also den Datenbereich um die Erste Zeile reduzieren.
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns. _
Count)
' Spaltenanzahl des Datenbereichs ermitteln.
intColums = rngSource.Columns.Count
With Me.ListBox1
.ListStyle = fmListStyleOption      ' Auswahlfeld zu Beginn der Zeile
' von Peter Haserodt
' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox
'.MultiSelect = fmMultiSelectSingle
' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo
.MultiSelect = fmMultiSelectMulti
'.MultiSelect = fmMultiSelectExtended
' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders.
' Dies bewirkt, dass mit Shift und Strg Tasten  eine Mehrfachauswahl getroffen
' werden kann
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address
End With
Set rngSource = Nothing
ListBox1.Tag = ""
End Sub

Private Sub cmdFiltern_Click() Dim sFilter As String Application.ScreenUpdating = False If optA.Value = True Then sFilter = "A" End If If optB.Value = True Then sFilter = "B" End If If optC.Value = True Then sFilter = "C" End If If optGewonnen.Value = True Then sFilter = "gewonnen" End If If optVerloren.Value = True Then sFilter = "verloren" End If If sFilter = "" Then Exit Sub Columns("B:B").AutoFilter Field:=1, Criteria1:=sFilter Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy Workbooks.Add Range("A1").PasteSpecial xlPasteValues Rows(1).Delete 'Ohne Range geht es hier nicht :( Me.lstTabelle.List = Range("A1").CurrentRegion.Value lstTabelle.ColumnCount = "16" lstTabelle.ColumnHeads = True Me.lstTabelle.ColumnWidths = "150;35;60;60;80;65;55;40;35;43;25;50;60;60;52;50" ActiveWorkbook.Close savechanges:=False lstTabelle.ListIndex = 0 Columns("B:B").AutoFilter End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ListBox-Spalten formatieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread