ListBox, TextBox, Suchen, 24 Spalten
09.06.2016 10:05:23
Lou_2016
ich muss eine Such-Funktion mit VBA schreiben.
1. Auftragsnr wird in TextBox1 eingetragen und
2. mit CommandButton1_Click() wird in der Wordsheets "Auftragsnr", "Spalte B" gesucht
3. und die Ergebnisse werdenn in den ListBox1 angezeigt.
4. Mit dem DbClick auf einer ausgwählten Zeile wird die Gesamte Zeile (z.Bsp. Zeile 3) in den Textbox2 bis 25 eingetragen.
Aber ich kann nur 10 Splaten mit Listbox sehen.
Wie Kann ich meine Code so ändern, damit ich alle 24 Splaten sehen kann?
Vielen Dank im Voaus.
LG LOU
Private Sub CommandButton1_Click()
Dim rngCell As Range
Dim strFirstAddress As String
If TextBox1 "" Then
Application.ScreenUpdating = False
With Worksheets("Auftragsnr").Range("B:B")
Me.ListBox1.Clear
Set rngCell = .Find(Me.TextBox1.Value, LookAt:=xlPart)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 10
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 0) = rngCell.Offset(0, -1).Value ' erste spalte
.List(.ListCount - 1, 1) = rngCell.Offset(0, 0).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 6) = rngCell.Offset(0, 5).Value
.List(.ListCount - 1, 7) = rngCell.Offset(0, 6).Value
.List(.ListCount - 1, 8) = rngCell.Offset(0, 7).Value
.List(.ListCount - 1, 9) = rngCell.Offset(0, 8).Value
' .List(.ListCount - 1, 10) = rngCell.Offset(0, 9).Value
' .List(.ListCount - 1, 11) = rngCell.Offset(0, 10).Value
' .List(.ListCount - 1, 12) = rngCell.Offset(0, 11).Value
' .List(.ListCount - 1, 13) = rngCell.Offset(0, 12).Value
' .List(.ListCount - 1, 14) = rngCell.Offset(0, 13).Value
.ColumnWidths = "3cm;3cm;3cm;3cm;3,5cm;2cm;2cm;2cm;2cm;2cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Auftragsnr nicht gefunden", 48
End If
End With
End If
End Sub
Anzeige