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
HI,
Zeichne ein Makro auf...
Hallo!
Macrorecorder finde ich nicht gut. Der zeichnet nur dieses dümmliche
FormulaR1C1 auf anstatt das viel bessere
Formula.
Gruß, René
Hallo,
ich brauch hier wirklich ein VBA Code.
Hallo,
chris-ka hat dir doch gesagt, wie du zu deinem VBA-Code kommst!
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ß
funktioniert leider nicht
Hallo,
welcher Vorschlag funktioniert nicht?
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.
Funktioniert - vielen Dank !!!!! :18: