Frage zur Find-Methode
19.10.2004 15:49:40
Matthias
ich möchte mit dem Makro Daten zu einem Datensatz (FDS) aus einer anderen Quelle auslesen.
Nun habe ich das Problem, daß wenn zum gewünschten Fds kein Datensatz vorliegt eine Fehlermeldung kommt. Wie kann ich erreichen, daß bei einem Fehler im Sheet "n/a" erscheint?
Sub Einlesen()
Set ziel = ActiveWorkbook
Workbooks.Open FileName:="F:\Reporting\MA\ma12a.xls"
Set quelle = ActiveWorkbook
ziel.Activate
col = Range("start").Column
lastCell = Cells(65000, col).End(xlUp).Row
For i = Range("start").Row To lastCell
If Cells(i, col) > 0 Then
fds = Cells(i, col).Value
quelle.Activate
qrow = Range("A:A").Find(fds, LookAt:=xlWhole).Row
N = Cells(qrow, 4): V = Cells(qrow, 6)
ziel.Activate
Cells(i, col + 1) = N
Cells(i, col + 2) = V
End If
Next
quelle.Close
End Sub
Vielen Dank
Matthias