ListBox-Spaltenbreite
15.11.2005 00:55:25
JustineMaria
Ich habe ein kleines Problem im Bezug auf Spaltenbreite in meiner ListBox.
Folgendes SuchMakro verursacht ua., daß alle Spalten (bis auf die letzte, die in der Listbox nicht sichtbar ist) gleiche Breite haben:
Private Sub cmdSearch_Click()
Dim rng As Range
Dim wks As Worksheet
Dim sFirst As String, sFind As String, strWidth As String
Dim iCnt As Integer, n As Integer, lastCol As Integer
Set wks = Sheets("Tabelle1")
lastCol = wks.Range("IV3").End(xlToLeft).Column
With ListBox1
.Clear
.ColumnCount = lastCol + 1
For iCnt = 1 To .ColumnCount - 1
strWidth = strWidth & "80;"
Next
strWidth = strWidth & "0"
.ColumnWidths = strWidth
sFind = txtSearch
Set rng = wks.Range("A1:IV65536").Find(What:=sFind, LookIn:=xlValues, _
LookAt:=xlPart, after:=wks.Range("IV65536"))
If Not rng Is Nothing Then
sFirst = rng.Address
Do
.AddItem wks.Cells(rng.Row, 1)
For iCnt = 2 To lastCol + 1
.List(n, iCnt - 1) = wks.Cells(rng.Row, iCnt)
Next
.List(n, .ColumnCount - 1) = rng.Row
n = n + 1
Set rng = wks.Range("A1:IV65536").FindNext(rng)
Loop While rng.Address <> sFirst
Else
ListBox1.AddItem "--- NICHTS GEFUNDEN! ---"
End If
End With
End Sub
__________
Wie kann man erreichen, daß die angezeigten Spalten unterschiedliche (vorgegebene) Spaltenbreiten haben? Per ListBox-Eigenschaften geht es nämlich nicht.
Oder noch besser - ist es überhaupt möglich, daß die Spalten >>optimale breite Danke für EURE Hilfe!
JustineMaria