Ich habe einen Code, der nach "! UKINADMISSIBLE" in Spalte "M" des Blattes sucht. dann zeigt es alle ausgewählten Zeilen mit "! UKINADMISSIBLE" in einem Listenfeld (listbox1) an. es funktioniert gut, aber wenn ich alle "! UKINADMISSIBLE" aus dem Blatt lösche, gibt es mir diesen Fehler (konnte die Listeneigenschaft, Ungültiger Eigenschaftswert) nicht auf diese Codezeile setzen --->Me.ListBox1.List = arrLstBox () ---> Fehler Kann mir bitte jemand helfen, es zu reparieren.konnte die Listeneigenschaft nicht festlegen. Ungültiger Eigenschaftswertfehler
Private Sub btnIUK_Click()
Dim arrLstBox()
Dim rng, FoundCell, tmpCell As Range
Dim i, j, numRows, lastColumn, lastRow As Long
Dim FirstAddress, searchFor, colWidth As String
Set rng = ActiveSheet.UsedRange
numRow = 0
With rng
lastRow = .Rows.Count
lastColumn = .Columns.Count
End With
Me.ListBox1.ColumnCount = lastColumn
Me.ListBox1.ColumnWidths = "60;70;190;40;90;90;70;80;50;60;90;120;5"
Set FoundCell = rng.Find(what:="!UKINADMISSIBLE", LookIn:=xlValues, lookat:=xlWhole)
If Not FoundCell Is Nothing Then _
FirstAddress = FoundCell.Address
Do Until FoundCell Is Nothing
Set FoundCell = rng.FindNext(after:=FoundCell)
If FoundCell.Address = FirstAddress Then
numRow = numRow + 1
Exit Do
ElseIf FoundCell.Row <> rng.FindNext(after:=FoundCell).Row Then
numRow = numRow + 1
End If
ReDim arrLstBox(1 To numRow + 1, 1 To lastColumn + 1)
Loop
Do Until FoundCell Is Nothing
For i = 1 To numRow
For j = 1 To lastColumn
If Not IsEmpty(Cells(FoundCell.Row, j).Value) Then
arrLstBox(i, j) = Cells(FoundCell.Row, j).Value
End If
Next j
Set FoundCell = rng.FindNext(after:=FoundCell)
If FoundCell.Address = FirstAddress Then _
Exit For
Next i
If FoundCell.Address = FirstAddress Then _
Exit Do
Loop
Me.ListBox1.List = arrLstBox()----->ERROR
lastRow = ListBox1.ListCount
MsgBox "Records Found = " & lastRow, vb, "Inadmissibles On UK Sectors"
End Subode here
danken Lasten, es wirklich zu schätzen. Danke nochmal :) –
danke dir Ambie, wirklich cool –