Button Suchfunktion
16.08.2016 14:29:16
Ben
Hallo meine Suchfunktion für Aufträge meckert immer bei Me.ListBox1.Clear, weiß aber nicht warum.
Private Sub CommandButton25_Click()
Dim rngCell As Range
Dim strFirstAddress As String
With Worksheets("Aufträge").Range("A:A")
Me.ListBox1.Clear
Set rngCell = .Find(Me.TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 4
.AddItem
.List(.ListCount - 1, 0) = rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 3).Value
.ColumnWidths = "2cm;6cm;2cm;2cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
MsgBox "Auftrag nicht gefunden", 48
End If
End With
End Sub
Private Sub UserForm_Initialize()
Me.Calendar1 = Date
With ListBox1
.ColumnCount = 4
.ColumnWidths = "2cm;6cm;2cm;2cm"
.ColumnHeads = True
ListBox1.RowSource = "Aufträge!A2:D4"
End With
End Sub