Match-Eigenschaft der Worksheetfunktion-Objekt kann nicht zugeordnet werden
07.04.2020 21:31:16
sabinemeier
Könnte mir jemand erklären warum die Match-Eigenschaft der Worksheetfunktion-Objekt nicht zugeordnet werden kann? Was habe ich falsch gemacht?
Nach der Ausführung des ersten Subs und die darauffolgende Ausführung des zweiten Subs, bekomme _ ich diesen Fehler angezeigt.
Private Sub CommandButton4_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Sheet")
Dim Last_Row As Long
Last_Row = Application.WorksheetFunction.CountA(sh.Range("A:A"))
Dim w As Long
For w = 2 To Last_Row
If sh.Cells(w, 2).Value = Me.TextBox1.Value Then
'set value to be searched
Me.TextBox4.Value = sh.Cells(w, 1).Value
Me.TextBox8.Value = w
Exit Sub
End If
Next w
End Sub