Suche mit Find, nur am Zellenanfang
21.06.2008 09:51:00
Werner
Hallo liebe Forumsmitglieder!
Mit der Funktion "Find" kann man bekanntlich Zeichenketten (Strings) in einem Range finden. Nun möchte
ich, dass diese Funktion mir einige Zeichen am Anfang einer Zelle innerhalb eines Range sucht, auch wenn in der gleichen Zelle noch weitere Zeichen folgen. Bisher musste ich mir immer mit folgendem
behelfen:
Sub Suchen ()
Dim rng As Range
Dim Gesucht As String
Set rng = Range("A1:A100).Find(what:=Gesucht, lookat:=xlPart, MatchCase:=True)
End Sub
Der gesuchte Teilstring wird so zwar gefunden, jedoch leider nicht nur am Zellenanfang, sondern auch
innerhalb der Zelle. Ich möchte aber so suchen lassen, dass nur Teilstrings am Zellenanfang gefunden werden. (Wenn ich beispielsweise den String "Schul" suche, werden Zellen mit "Schulanfang", "Schule"
"Schulrat" usw. gefunden, aber auch Zellen mit "Grundschule", "Mittelschule", "Hauptschule" usw. Die letzteren drei sollen aber ausgeschlossen bleiben)
Weiß jemand Rat? Herzl. Dank im voraus!
Werner R.