Sarakkeen rivinumerot joilla tietty merkki esiintyy

Moi!

Onko ko. sarakkeissa pelkkä X-merkki vai onko se mukana muun sisällön seassa?

moduuliin...

Function Etsi(Hakuehto As Variant) As Range
Dim solu As Range
Dim EkaOsoite As String
Worksheets("Sheet1").Activate
With Range("D2:D22")
Set solu = .Find( _
What:=Hakuehto, _
LookIn:=xlValues, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not solu Is Nothing Then
Set Etsi = solu
EkaOsoite = solu.Address
Do
Set Etsi = Union(Etsi, solu)
Set solu = .FindNext(solu)
Loop While Not solu Is Nothing And solu.Address EkaOsoite
End If
End With

End Function

Sub Testi()
Dim Löydetty As Range
Dim Haku As Variant

On Error GoTo virhe
Haku = "x"
Set Löydetty = Etsi(Haku)
MsgBox Union(Löydetty, Löydetty).Address
Exit Sub
virhe:
MsgBox "hakuehdoilla ei löytynyt tietoja!", vbInformation
End Sub