PDA

Vollständige Version anzeigen : Sverweis in Vba


Foxen
06.07.2015, 08:36
Hallo Leute, folgenden Code möchte ich als Sverweis in Vba haben.

=INDEX(B:B;VERGLEICH(MAX(A:A);A:A;0))

Mein jetziger VBA Code Sieht so aus:

[G3] = WorksheetFunction.VLookup([B:B],VERGLEICH[MAX[A:A],[A:A],0])

Leider funktioniert die Syntax nicht

EarlFred
06.07.2015, 08:55
Hallo?,

such Dir was aus:
Option Explicit

Sub IndexVergleichoderSverweis()
'=INDEX(B:B;VERGLEICH(MAX(A:A);A:A;0))
'[G3] = WorksheetFunction.VLookup([B:B],VERGLEICH[MAX[A:A],[A:A],0])

Range("G3").Value = Evaluate("=INDEX(B:B,MATCH(MAX(A:A),A:A,0))")
Range("H3").Value = Evaluate("=VLOOKUP(MAX(A:A),A:B,2,0)")
With Application
Range("I3").Value = .VLookup(.Max(Range("A:A")), Range("A:B"), 2, 0)
End With
With Application
Range("J3").Value = .Index(Range("B:B"), .Match(.Max(Range("A:A")), Range("A:A"), 0))
End With
End Sub

Grüße
EarlFred

Foxen
06.07.2015, 13:21
Riesen Dank! Funktioniert Super