Formel Umsetzen in VBA

[freddy]

Servus Miteinander,

Mein Anliegen wäre folgendes

Ist es Grundsätzlich  möglich diese Formel =WENN(ISTFEHLER(VERGLEICH($A2;$G$2:$G$19;0));"";VERGLEICH($A2;$G$2:$G$19;0))

in VBA nach zu Bauen  oder besteht Überhaupt keine Chance   ich selber hab überhaupt nicht den geringsten Ansatz dazu

[schauan]

Hallo Freddy,

erst mal kann man grundsätzlich viele Formeln mit Application.Evaluate nachstellen, also im Prinzip
a = Application.Evaluate("WENN(ISTFEHLER(VERGLEICH($A2;$G$2:$G$19;0));"";VERGLEICH($A2;$G$2:$G$19;0))")

Allerdings brauchst Du dafür die englische Schreibweise. Starte dazu die Makroaufzeichnung, gib die Formel ein, beende die Aufzeichnung und hol Dir die Syntax

a = Application.Evaluate("IF(ISERROR(MATCH(R[-7]C1,R2C7:R19C7,0)),"""",MATCH(R[-7]C1,R2C7:R19C7,0))")

Du wirst allerdings in dem Fall einen Fehler bekommen, da das hier nicht mit den relativen Bezügen funktioniert. Solltest also statt $A2 besser $A$2 nehmen usw.

[freddy]

Servus Andre,

Danke hast mir geholfen werde es Ausprobieren ich hatte ja wie schon gesagt Überhaupt keinen Draht dazu

Danke