Unerscheidung von Groß-Kleinschreibung bei Suche
27.07.2004 12:36:52
Groß-Kleinschreibung
ich frage über eine Userform einen Begriff ab, nach dem der Anwender in der Arbeitsmappe suchen kann. Dazu kann er dann noch über eine Optionsbox auswählen, ob die Groß/Kleinschreibung beachtet werden soll. Wenn man nun einen Begriff eingibt, wird die Groß/Kleinschreibung nicht beachtet. Das funktioniert soweit. Nun möchte ich die Suche so abändern, dass Groß/Kleinschreibung beachtet wird. Ich weiß nur nicht wie ich das anstellen soll.
Würde mich freuen, wenn mir jemand weiter helfen kann.
Sub Suchen
'Wenn nicht zwischen Groß- und Kleinschreibung unterschieden werden soll...
If GroßKleinschreibungNichtBeachten = 1 Then
MsgBox ZuSuchenderBegriff
Gefunden = False
If objSuchKatalogblatt Is Nothing Then
'Alle Blätter durchlaufen
For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name <> "Übersicht" Then
With objBlatt.UsedRange
Set objZelle = .Find(What:=Trim(ZuSuchenderBegriff), LookIn:=xlValues)
If Not objZelle Is Nothing Then
Erste = objZelle.Address
Gefunden = True
strFundstelle = objBlatt.Name & "!" & objZelle.Address
Call Suchkatalogblattanlegen(ZuSuchenderBegriff, objBlatt, objZelle)
Exit Sub
End If
End With
End If
Next objBlatt
If Gefunden = False Then
MsgBox "Der Suchbegriff wurde nicht gefunden!", vbInformation, "Keine Fundstellen"
End If
End If
End If
End Sub