find data i kolonne i sub

Denne søger i den kolonne du har den aktive celle i

Sub Makro1()
Dim I As Integer, Søg As Variant, Col As Integer, Rw As Long
Søg = InputBox(" hvad skal findes")
Col = ActiveCell.Column
Rw = Cells(65536, Col).End(xlUp).Row
For I = 1 To Rw
If Cells(I, Col) = Søg Then
MsgBox " Fundet " & Cells(I, Col).Address
Else

End If
Next
End Sub

Det fungerer jo perfekt. Svar point

et svar ;-))

tak for point