Office: WENN auf andere Zelle bezogen, geht das?

Hallo,

ich würde es gerne haben, dass mir die Zelle G19 überprüft ob in M19 was drin steht, wenn was drin steht soll es ein SVERWEIS machen und das Ergebnis in D17 schreiben. Ansonsten soll es nichts in D17 schreiben. In D17 darf keine Formel stehen, deshalb habe ich das versucht:

=WENN($M$19="";$D$17="";$D$17=SVERWEIS($I$25;Datenpflege!$K$2:$L$29458;2;FALSCH))

aber Excel gibt mir in der Zelle G19 Wahr oder Falsch aus. In D17 passiert nichts. Wie kann ich as lösen

Vielen Dank und Grüsse
hai

 

Hallo,

das geht so nur per Makro.
Aber wieso darf in D17 keine Formel sein?

 

WENN

Ich darf in D17 keine Formel schreiben, weil ich vorher eine auswahl "Ja" oder "Nein" in D15 treffe. Bei Ja soll es wie gesagt diesen SVERWEIS ausführen bei "Nein" muss man manuell was in D17 eintragen. wenn da ne Formel drin steht, wird Sie ja dann einfach überschrieben...

Makro kenn ich mich leider nicht so gut aus...

 

Hallo,

vielleicht nicht die eleganteste, aber dafür die einfachste Lösung dafür wäre es, mit einer Hilfsspalte, in der Du bei "Nein" den Wert eingibst. In D17 könntest Du dann mit einer Formel arbeiten.

 

Leider kann ich das so nicht machen

aus verschiedenen Gründen kann ich das so leider nicht machen.

aber wüsstest du wie ich das:

Sub Sverweis()
ActiveCell.FormulaR1C1 = _
"=IF(R19C13="""","""",VLOOKUP(R25C9,Datenpflege!R1C11:R29458C12,2,FALSE))"
End Sub


in das einbringen kann:


Private Sub ComboBox2_Change()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Worksheets("Datenpflege").Activate
Range("AK:AL").ClearContents
Range("AF:AG").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("AI1:AI2"), CopyToRange:=Range("AK1"), Unique:=False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Sheets("Eingabemaske").Activate
End Sub

Vielen Dank und Grüsse
hai