Formel in VBA Code umwandeln

[Basti567]

Hallo,

ich brauche -wie immer- Hilfe.

Kann mir helfen, die folgende Formel in eine VBA Code für einen Command Button umzuwandeln/umzuschreiben.

=WENN(C3>Pfändungstabelle!C291;(SVERWEIS(C3;Pfändungstabelle!A7:H241;WENN(C4>4;8;C4+3)))+C3-Pfändungstabelle!C291;SVERWEIS(C3;Pfändungstabelle!A7:H241;WENN(C4>4;8;C4+3)))


LG

Basti

[chris-ka]

HI,

Zeichne ein Makro auf...

[mumpel]

Hallo!

Macrorecorder finde ich nicht gut. Der zeichnet nur dieses dümmliche FormulaR1C1 auf anstatt das viel bessere Formula.

Gruß, René

[Basti567]

Hallo,

ich brauch hier wirklich ein VBA Code.

[Glausius]

Hallo,

chris-ka hat dir doch gesagt, wie du zu deinem VBA-Code kommst!

[maninweb]

Hallo,

alternative, angenommen die Formel steht in Zelle A1 in einem Blatt, was aktiv ist.
Im Direktfenster (Strg+G) im VBA-Editor eingeben + Enter ...

?Range("A1").Formula

Gruß

[Basti567]

funktioniert leider nicht

[Steffl]

Hallo,

welcher Vorschlag funktioniert nicht?

[00202]

Hallo, :19:

entweder du schreibst die Formel in eine Zelle, ODER du evaluierst sie (getestet und läuft): :21:

Code:

Option Explicit
Public Sub Main_1()
    Range("A2").Formula = "=IF(C3>Pfändungstabelle!C291,(VLOOKUP(C3,Pfändungstabelle!A7:H241,IF(C4>4,8,C4+3)))+C3-Pfändungstabelle!C291,VLOOKUP(C3,Pfändungstabelle!A7:H241,IF(C4>4,8,C4+3)))"
End Sub
Public Sub Main_2()
    MsgBox ActiveSheet.Evaluate("=IF(C3>Pfändungstabelle!C291,(VLOOKUP(C3,Pfändungstabelle!A7:H241,IF(C4>4,8,C4+3)))+C3-Pfändungstabelle!C291,VLOOKUP(C3,Pfändungstabelle!A7:H241,IF(C4>4,8,C4+3)))")
End Sub

Statt der MsgBox kannst du das Ergebnis auch einer Variablen zuordnen - oder was auch immer du machen möchtest.

[Basti567]

Funktioniert - vielen Dank !!!!!  :18: