SVERWEIS dynamisch mit zwei Kriterien als VBA
30.08.2017 13:36:09
Dom
leider scheitere ich aktuell an folgendem Problem:
Ich habe folgende Formel und möchte diese in VBA umsetzen
=SVERWEIS(B7;WENN(BL!$AD$3:$AD$325=$I7;BL!U3:AH325;);14)
Ziel ist es das ganze dynamisch zu gestalten - sprich die Suche soll so lange ausgeführt warden bis spalte B keinen Wert enthält (was mit anderen Formeln soweit auch klappt. Nun Kommt leider für die oben beschriebene Formel ein Laufzeitfehler (13)...Finden jmd. den Fehler oder hat eine Idee?
VIELEN DANK!!!!!!!!!!!!
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
Anzeige