VBA IF(ISERROR) .Formula
19.02.2015 12:01:45
Robert
ich habe auf folgende Weise meinen SVerweis in ein Tabellenblatt eingefügt
Sub vba_sverweis1()
[AA2:AA426] = WorksheetFunction.VLookup([A2:A426], Sheets("ZP1").[A2:y123], 2, False)
End Sub
anschließend wollte ich auf gleiche Weise die IF(ISERROR Funktion benutzen.
Sub vba_if()
[AB2:AB426] = WorksheetFunction.IF(IsError([AA2:AA426]), "", [L2:L426])
End Sub
Diese funktioniert leider nicht. Das Objekt unterstützt diese Methode nicht.
Anschließend habe ich es auf diesem Weg, nur für eine Zelle, versucht :
Public Sub test()
With Sheets("nicht ZP1").Range("AB3")
.Formula = _
"=IF(ISERROR(AA2);""""; L2)"
'.Value = .Value 'In Festwerte umwandeln
End With
End Sub
Wenn ich das "=" vor der IF- Formel weglasse trägt er mir den Inhalt in die Zellen ein. Wieso nicht die ganze Funktion?
Ich hoffe ihr könnt mir weiterhelfen und ich bedanke mich im Voraus.
MFG
Robert