VBA-Excel: Wie kann ich mit SVERWEIS und WENN in VBA?

Wie kann ich dies in VBA?

IF(VLOOKUP(E3;Tabel5;2;0)>=F26;VLOOKUP(E3;Tabel5;4;0)*F26;)

Vielen Dank!

  • bitte beschreiben Sie, was Sie versuchen zu tun (statt nur zu geben die alternative-excel-Funktion)
InformationsquelleAutor user3133588 | 2014-01-05
  1. 2

    versuchen, um diesen code zu verwenden:

    Erste Möglichkeit (die Sie verwenden können, eine benutzerdefinierte Funktion):

    Function getSomeData(E3 As Range, Table5 As Range, F26 As Range)      
   getSomeData = ""

   If WorksheetFunction.VLookup(E3, Table5, 2, 0) >= F26 Then
      getSomeData= WorksheetFunction.VLookup(E3, Table5, 4, 0) * F26
   End If
End Function

    Als Sie können es nennen, in jeder Zelle nur die Eingabe =getSomeData(E3;Tabel5;F26) in es. Vorteile dieses Ansatzes ist, dass beim ändern von Daten in verknüpften Zellen (E3, F26 oder Table5), Funktion berechnen den Wert in der Zelle.

    Zweite Möglichkeit:

    Sub getSomeDataSub()    
   Dim E3 As Range, F26 As Range, Table5 As Range

   Range("F27") = ""
   Set E3 = Range("E3")
   Set Table5 = Range("Table5")
   Set F26 = Range("F26")
   If WorksheetFunction.VLookup(E3, Table5, 2, 0) >= F26 Then
      Range("F27")= WorksheetFunction.VLookup(E3, Table5, 4, 0) * F26
   End If
End Sub

    rufen Sie die Makros, die in der Multifunktionsleiste und es werden einige Daten in F27 Zelle. In diesem Ansatz sollten Sie rufen Sie das makro jedes mal, wenn Sie ändern von Werten in verknüpften Zellen zu berechnen, die es in F27.

    • ,Wie Kann ich machen, dass VBA-code ausführen in Zelle F27 ? Danke für die schnelle respons 🙂
    • Ich habe meine Antwort aktualisiert
    • Die erste funktioniert Super - aber es aktualisiert nicht automatisch, ich muss manuell aktualisieren Sie die Zelle F27. Ist es möglich, dass Zelle F27 automatisch funktioniert, sobald die Zelle F26 verpasst? 🙂
    • Sehen Sie updates von meiner Antwort
    • Danke für die Hilfe, es funktioniert perfekt. Nur eine Frage, ist es möglich, fügen Sie zwei zusätzliche Funktionen in den code: Diese in Zelle F26: = SUMME (Tabel4 [Total]) und diese in Zelle F28: = F27 + F26 Danke nochmal 🙂
    • Sorry habe ich nicht bekommen, akzeptiert Sie sofort eine Antwort - ich bin neu hier. Wie kann ich die beiden Funktionen in den code? Danke 🙂
    • Wenn ich Sie richtig verstehe, als zu versuchen diese Funktionen: Function addValues(F27 As Range, F26 As Range) addValues = F27 + F26 End Function für F26 Zelle und Function TableSum(Table4 As Range) TableSum = WorksheetFunction.Sum(Table4) End Function für F28 Zelle
    • Sie haben mich verstanden, richtig, aber wie führe ich es in dem ersten code? 🙂
    • Sie sollten die Verwendung von 3 separaten Benutzer-begrenzten Funktionen: getSomeData , addValues, TableSum. Wenn Sie wollen, dass es in einem Funktionen - es ist besser, in den zweiten Ansatz durch hinzufügen von zwei Zeilen: in der sehr beggining Funktion : Range("F26")=WorksheetFunction.Sum(Range("Table4")) und am Ende der Funktion : Range("F28")=Range("F27")+Range("F26")

    InformationsquelleAutor Dmitry Pavliv
Schreibe einen Kommentar