Wert in externer Datei suchen
20.06.2008 11:08:24
Stephan
Hallo zusammen,
ich habe mal wieder folgendes Problem:
Mit folgendem Makro soll in der Datei "Auswertung" im entspr. TabBlatt ein Wert in Spalte D gesucht werden. Kommt dieser Wert schon vor, dann soll halt die MsgBox erscheinen. Er wirft mir aber die Fehlermeldung "Fehler beim kompilieren-Anweisungsende erwartet" aus. Woran kann das liegen?
Vielen Dank im Voraus! Gruß, Stephan
Dim Linie As String
Linie = ActiveWorkbook.Sheets("Störungen").Range("A4").Value
Dim a1 As Range, rngSearch As Range
Set rngSearch = "H:\Bon\Auswertung.xls " & Linie & ".Range("d:d") "
Set a1 = ActiveWorkbook.Sheets("Eingabe").Range("C7")
If Not rngSearch.Find(a1, lookat:=xlWhole) Is Nothing Then
MsgBox rngSearch.Find(a1, lookat:=xlWhole).Address(0, 0), , "Treffer in:"
Else
MsgBox a1 & " nicht gefunden", , "Fehlanzeige"
End If