ListBox-Spaltenbreite

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