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
Anzeige