gruß danke
Sub test()
Dim wo As Long
wo = WorksheetFunction.Match("test", [A:A], 0)
MsgBox wo
End Sub
Option Explicit
Public Sub test()
Dim wo As Long
Dim spalte As Integer
Dim arr(256)
On Error Resume Next
For spalte = 1 To 256
If IsNumeric(WorksheetFunction.Match("test", Columns(spalte), 0)) Then
arr(spalte) = WorksheetFunction.Match("test", Columns(spalte), 0)
Else:
arr(spalte) = 0
End If
Next
wo = WorksheetFunction.Max(arr)
MsgBox wo
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen