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