if-Funktion in vlookup - VBA | HERBERS Excel Forum

Hallo Forum,
ich stoße bei der Integration von Formeln in VBA immer wieder an meine Grenzen. Folgende Formel möchte ich gern in meinem Makro darstellen:

=WENN(SVERWEIS($B$16;amob;WENN($B$11="Da";2;WENN($B$11="Fa";3;4));1)*$B$16/1000>=mp_amob; SVERWEIS($B$16;amob;WENN($B$11="Da";2;WENN($B$11="Fa";3;4));1)*$B$16/1000;mp_amob)

Als normale Formel eingegeben funktioniert sie einwandfrei. Bei der Umsetzung im Makro scheitere ich allerdings an der if-Funktiom im sverweis und weis nicht wie ich es darstellen soll.
Mit worksheetfunction.vlookup(cells(16,2), amob, if... geht es offensichtlich nicht.
Habe mir bis jetzt mit FormulaLocal beholfen, finde ich allerdings nicht so "schön".
Vielleicht hat ja jemand eine Lösung für mich.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub xxx() Dim lngSp As Long, dblSVw As Double, dblErg As Double Select Case Cells(11, 2) Case "Da": lngSp = 2 Case "Fa": lngSp = 3 Case Else: lngSp = 4 End Select dblSVw = Application.VLookup(Cells(16, 2), Range("amob"), lngSp, 1) dblSVw = dblSVw * Cells(16, 2) / 1000 dblErg = Application.Max(dblSVw, Range("mp_amob")) End Sub

Hallo Peter,
wenn du den Formel-Ausdruck unbedingt in eine VBA-Prozedur umsetzen willst, dann solltest du die Logik etwas anders aufbauen und Variablen für Zwischenergebnisse einsetzen. Außerdem muss du die Bereichsnamen in der Formel für die VBA-Prozedur in entsprechende Range-Objekte umsetzen.
Ansonsten kannst dein Glück noch mit der Evaluate-Methode versuchen, um einen Formel-Ausdruck zu berechnen. Oder auch Iif statt WENN verwenden, wenn du denn den Formel-Lindwurm in einer VBA-Zeile unterbringen willst.
Gruß
Franz

Sub bbtest()
Dim wks As Worksheet, lSpalte As Long, dWert As Double, dErgebnis As Double
Set wks = ActiveSheet
With wks
Select Case .Cells(11, 2).Value
Case "Da"
lSpalte = 2
Case "Fa"
lSpalte = 3
Case Else
lSpalte = 4
End Select
dWert = Application.WorksheetFunction.VLookup(.Cells(16, 2), Application.Range("amob"), _
lSpalte, 1) * .Cells(16, 2) / 1000
If dWert >= Application.Range("mp_amob") Then
dErgebnis = dWert
Else
dErgebnis = Application.Range("mp_amob")
End If
.Cells(16, 3) = dErgebnis
End With
End Sub

Beliebteste Forumthreads (12 Monate)

if-Funktion in vlookup - VBA

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

	A
4	12,3
5	12,3
6	12,3

if-Funktion in vlookup - VBA

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread