SVERWEIS dynamisch mit zwei Kriterien als VBA

Sub Schaltfläche19_Klicken() Dim Fläche As Long Dim Geschoss As Long Dim Vetragspartner As Long Dim Etage As Long Dim i As Long Set dataRng = Sheets("BL").Range("$S$3:$AJ$328") Set dataRn = Sheets("BL").Range("$U$3: $AH$325") Set dataUsg = Sheets("BL").Range("$AD$3:$AD$325") Vertragspartner = ActiveCell.SpecialCells(xlLastCell).Row 'letzte Spalte ermitteln i = 7 Do While i "" Then 'ausführen Wenn Zelle einen Wert hat. Sheets("Report").Cells(i, 10).FormulaLocal = Application.VLookup(Cells(i, 2), _ Application.If((dataUsg) = (Cells(i, 9)), dataRn, """"), 14) 'Formel für Geschoss (=SVERWEIS(B7;WENN(BL!$AD$3:$AD$325=$I7;BL!U3:AH325;);14))) i = i + 1 'Zeile um 1 erhöhen um Endlosschleife zu vermeiden Else 'Wenn Bedingung nicht erfüllt ist, dann ... i = i + 1 'Zeile um 1 erhöhen End If Loop 'erneut durchlaufen / Ende End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Rudi, danke für deine Hilfe.
Habe diese Lösung für einen SVERWEIS mit zwei Kriterien online gefunden...als normale Formel funktioniert es einwandfrei. Aber wie gesagt, bekomme das Ding nicht als VBA.
Ziel ist es die Etage anhand der Hauptnutzung und des Jeweiligen Vertragspatners zu ermitteln.
Die Datenquelle befindet sich im Sheet "BL". Als Formel funktioniert
=SVERWEIS(B7;WENN(BL!$AD$3:$AD$325=$I7;BL!U3:AH325;);14)
super. Aber wie gesagt wenn ich das ganze als VBA umschreiben möchte (siehe oben) scheitere ich,
Bin gerne offen für Alternativen und Ideen.
Ich habe den File mal angehängt (nicht wundern über die Formatierung, musste Ihn auf die Schnelle etwas zensieren)
https://www.herber.de/bbs/user/115891.xlsm
Wäre Super wenn mir jemand helfen könnte!

Sub Schaltfläche19_Klicken() With Worksheets("Report") With .Range("J7:J" & .Cells(Rows.Count, 9).End(xlUp).Row) .FormulaArray = "=VLOOKUP(B7,IF(BL!$AD$3:$AD$325=$I7,BL!U3:AH325,""""),14,FALSE)" .Value = .Value End With End With End Sub

Sub Schaltfläche19_Klicken() Dim c As Range With Worksheets("Report") With .Range("J7:J" & .Cells(Rows.Count, 9).End(xlUp).Row) .ClearContents For Each c In .Cells c.FormulaArray = "=VLOOKUP(B" & c.Row & ",IF(BL!$AD$3:$AD$325=$I" _ & c.Row & ",BL!U$3:AH$325,""""),14,FALSE)" Next c .Value = .Value End With End With End Sub

With GanzerBereich .FormulaArray = "=VLOOKUP(RC[-8],IF(BL!R3C30:R325C30=RC9,BL!R[-4]C[11]:R[318]C[24],""""),14, _ FALSE)" .FormulaArray = "=VLOOKUP(B7,IF(BL!$AD$3:$AD$325=$I7,BL!U3:AH325,""""),14,FALSE)" .Formula = "=VLOOKUP(B7,IF(BL!$AD$3:$AD$325=$I7,BL!U3:AH325,""""),14,FALSE)" End with

Sub Schaltfläche19_Klicken() With Worksheets("Report") With .Range("J7:J" & .Cells(Rows.Count, 9).End(xlUp).Row) .FormulaArray = _ "=IF(BL!R3C30:R325C30=RC9,VLOOKUP(RC[-8],BL!R[-4]C[11]:R[318]C[24],14,0),"""")" '.Value = .Value End With End With End Sub

Sub Schaltfläche19_Klicken() With Worksheets("Report") With .Range("J7:J" & .Cells(Rows.Count, 9).End(xlUp).Row) .Formula = "=IF(BL!$AD$3:$AD$325=$I7,VLOOKUP(B7,BL!U3:AH325,14,0),"""")" .FormulaArray = .FormulaR1C1 '.Value = .Value End With End With End Sub

…niemals aber in VBA mit den entsprd WorksheetFunctions, Dom;
das ist ein Fehler, den Anfänger immer wieder machen! Auch als Xl-Profi sollte man sich schon mal Gedanken darüber gemacht haben, warum eine Fml überhpt fktioniert (zumal, wenn man pgmmieren will), denn sie ist ja eigentlich nur ein Text. Das =-Zeichen zu Beginn (neben +, - und @ vor FktsName) ist ja auch nur ein Hinweis an Xl, dass hier ein Text vorliegt, der interpretiert wdn muss. Und wenn ein ganzer Bereich gleich einem Skalar sein soll, also alle seine Zellen einzeln mit ihm vgln wdn sollen, wird der Xl-Fml-Interpreter das auch so handhaben, nicht aber VBA, denn damit wird die sichere Interpreter-Umgebung verlassen und man muss selbst an alles denken. Und damit kommt Rudis AW ins Spiel!
Außerdem hat dein Pgm noch etliche andere Macken. Hättest du nicht Application.If, sondern WorksheetFunction.If geschrieben, wäre dir wohl aufgefallen, dass der VBE-Intellisense das nicht im Bestand hat. Deshalb sollte man (vor allem als Anfänger!) erst dann nur Application.irgendeineXlStanddFkt schreiben, wenn man sicher sein kann, dass sie auch im WorksheetFunction-Container gelistet ist. Das ist bei Xl-Fktt, für die es weitgehend(st)e Entsprechungen in VBA gibt, idR nicht der Fall. Hier käme die vbFkt IIf infrage, falls nicht eine ihrer beiden AlternativZweige einen Fehler verursachen könnte. In diesem Fall würde nämlich der ganze Ausdruck nicht mehr fktionieren, denn die vbFkt ist nicht fehlertolerant, weil sie im Ggsatz zu WENN/IF immer alle Zweige berechnet und dann erst nach Argument1 auswählt!
Falls du dich auch in VBA unter die Fittiche des Xl-Interpreters begeben willst, musst du die vbFkt Evaluate mit US-Original-FmlText als Argument verwenden. Das dauert aber länger, da je nachdem welche Variante man benutzt, Worksheets("NN").Evaluate oder (Application.)Evaluate, dieser Ausdruck mindestens 2- oder 4-mal berechnet wird.
Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

SVERWEIS dynamisch mit zwei Kriterien als VBA

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

SVERWEIS dynamisch mit zwei Kriterien als VBA

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread