bei Verwendung der Range-Methode Find in folgendem Code spuckt Excel 97 mir folgende Fehlermeldung aus:
"Laufzeitfehler '1004': Die Find-Eigenschaft des Range-Objektes kann nicht zugeordnet werden.
Sub soundso(ByVal reftab As Excel.Worksheet)
Dim c As Range
...
Set c = reftab.Columns(1).Find("text", LookAt:=xlWhole, MatchCase:=True)
...
End Sub
Unter Excel 2000 läuft dies problemlos, dafür taucht der Fehler aber unter einer ähnlichen Situation auf.
Sub sowieso()
Dim wb As Workbook
Dim sh As Worksheet
Dim c As Range
Set wb = Workbooks.Open("datei.xls", IgnoreReadOnlyRecommended:=True)
Set sh = wb.Worksheets(1)
' bis hierhin klappt alles
Set c = sh.Columns(3).Find("text", LookAt:=xlWhole, MatchCase:=True)
...
End Sub
Einziger Unterschied ist hier, wie das Worksheet-Objekt zugewiesen wird.
Was ist der Fehler, oder ist dies ein bekannter Bug?
Achso, ich bin auf die Find-Methode angewiesen, da ich nicht weiss, wieviele Zeilen die zu durchsuchende Spalte hat. Bei For Each wird ja leider alles durchsucht, auch wenn der Arbeitsbereich schon überschritten ist.
Gruß,
Hagen