Find Range Union Problem
19.08.2014 13:35:56
BinärCode
ich bin relativ neu mit VBA unterwegs und bin leider auf folgendes Problem gestoßen.
Ich habe eine Suchfunktion aus bestehenden Code umgebaut, ich möchte gerne von diser Funktion ein Range Objekt mit allen Treffern erhalten (wenn das überhaupt möglich ist ?)
Nun hänge ich schon den heutigen Tag dran und erkenne einfach den Fehler nicht, vielleicht kann mir dabei jemand behilflich sein ?
Area = Tabelle1.Range("A:M")
Token = Suchwort bzw. Suchwörter
MatchCase = Selbsterklärend
Public Function RangeSearch(ByRef Area, ByRef Token, ByVal MatchCase As Integer) As Range
Dim Match As Range
Dim Matches As Range
Dim firstMatch As String
If MatchCase 0 Then
Set Match = Area.Find(Token, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
Else
Token = "*" & Token & "*"
Set Match = Area.Find(Token, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
End If
If Not Match Is Nothing Then
firstMatch = Match.Address
Do
Set Matches = Union(Matches, Match) ' firstMatch
End If
If Not Matches Is Nothing Then
RangeSearch = Matches
End If
End Function