Find-Funktion
17.02.2005 18:46:11
Rob
ich habe folgendes Problem: Ich vergleiche die Spalte A von zwei verschiedenen Worksheets miteinander. Dabei verwende ich die Find()-Funktion. Leider weiss ich nicht, wie ich die Option "Match entire cells contents" aktivieren kann. "MatchCase" ist leider nicht ausreichend. (Beide Funktionen koennen bei der Suche mit Ctrl+F individuell aktiviert werden).
Beispiel:
Do Until Key = ""
With Worksheets("prev_XXX").Range("A:A")
Set c = .Find(what:=Key, SearchOrder:=xlByColumns, MatchCase:=True)
If Not c Is Nothing Then
row = row + 1
Worksheets("XXX").Select
Key = Cells(row, 1).Value
Else ...
In Buechern oder unter der Help-Funktion habe ich leider nichts finden koennen.
Gruss,
Rob