Office: (Office 2013) Index Match Formel in VBA

JCW · 19. Oktober 2015

Hallo liebes Forum,

ich habe eine Index Match Formel die lautet:
=INDEX('Raw Data'!$A$7:$A$1500,MATCH(Sheet3!D12,'Raw Data'!$E$7:$E$1500,0))

Ich habe versucht die Formel in ein Makro einzubauen:

PHP:

IM = Application.WorksheetFunction.Index(Sheets("Raw Data").Range("A7:A1500"), Application.WorksheetFunction.Match(1, Sheets("Raw Data").Range("E7:E1500"), 0), 1)

:)

aloys78 · 21. Oktober 2015

Hallo JCW,

ich würde die Anweisung auftrennen:
Code:

Dim IM
Dim erg
erg = Application.Match(1, Sheets("Raw Data").Range("E7:E1500"), 0)
If IsNumeric(erg) Then
IM = Application.WorksheetFunction.Index(Sheets("Raw Data").Range("A7:A1500"), erg, 1)
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Beverly · 21. Oktober 2015

Hi,

der Fehler kommt, wenn der Begriff mittels Match nicht gefunden wird. Benutze statt Application.WorksheetFunction nur Application - also nach diesem Prinzip:

Code:

Dim IM
If Not IsError(Application.Match(1, Sheets("Raw Data").Range("E7:E1500"), 0)) Then
IM = Application.Index(Sheets("Raw Data").Range("A7:A1400"), Application.Match(1, Sheets("Raw Data").Range("E7:E1500"), 0), 1)
Else
MsgBox "not found"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JCW · 21. Oktober 2015

Vielen Dank fuer eure schnellen Antworten.
Es funktioniert. Mein Problem war hauptsaechlich das ich zu Beginn der Formel kein Bereich angegeben hatte. Hatte ich in meiner Frage aber auch nicht richtig angegeben. Ohne "WorksheetFunction":

PHP:

Sheets("Sheet1").Range("B3:B1500").Formula = Application.Index(Sheets("Sheet2").Range("B3:B1500"), Application.Match(Sheets("Sheet1").Range("D3:D1500"), Sheets("Sheet2").Range("E3:E1500"), 0), 1)

xlph · 21. Oktober 2015

Du scheinst wohl beratungsresistent zu sein. Genau aus den oben genannten
Gründen taucht der Fehler auf.

Code:

Sub Button2_Click()
Dim r As Long
Dim LOL As Long
Dim Index As Variant

With Worksheets("Sheet1")
LOL = .Cells(.Rows.Count, 3).End(xlUp).Row
For r = 3 To LOL
Index = Application.Match(.Range("D" & r), Worksheets("Sheet2").Range("E:E"), 0)
If IsNumeric(Index) Then
.Range("B" & r).Value = Worksheets("Sheet2").Range("B" & CLng(Index)).Value
Else
.Range("B" & r).Value = "?"
End If
Next r
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

...geht auch schneller ohne Schleife:
Code:

Sub Button3_Click()
Dim LOL As Long

With Worksheets("Sheet1")
LOL = .Cells(.Rows.Count, 3).End(xlUp).Row

With .Range("B3:B" & LOL)
.FormulaR1C1 = "=IFERROR(INDEX(Sheet2!C2,MATCH(Sheet1!RC4,Sheet2!C5,0)),""?"")"
.Formula = .Value
End With

End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beverly · 21. Oktober 2015

Hi,

du musst den Code schon richtig umsetzen und die Hinweise beachten:

Code:

Sub Button2_Click()
Dim Cell As Long
Dim r As Long
Dim LOL As Long
LOL = Sheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row
For r = 3 To LOL
If Not IsError(Application.Match(Sheets("Sheet2").Range("E3:E1500"), Sheets("Sheet1").Range("D" & r), 0)) Then
Sheets("Sheet1").Range("B" & r) = Application.Index(Sheets("Sheet2").Range("B3:B1500"), _
Application.Match(Sheets("Sheet1").Range("D" & r), Sheets("Sheet2").Range("E3:E1500"), 0), 1)
End If
Next r
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JCW · 22. Oktober 2015

Die jetzt vorgeschlagenen Loesungen laufen einwandfrei.
Vielen Dank an euch, Problem geloest.

- Hatte auch davor alle Loesungvorschlaege mehrfach durchgespielt und sehr ernst genommen. Leider doch weiterhin Fehlermeldungen bekommen, daher war ich froh als das Makro endlich halbwegs das machte was ich wollte.

Office: (Office 2013) Index Match Formel in VBA

Index Match Formel in VBA

Index Match Formel in VBA

Index Match Formel in VBA

Index Match Formel in VBA - Similar Threads - Index Match Formel

Mehrere Begriffe in Register/Index unter einem Begriff?

Daten per Index-Funktion übertragen

Formel mit INDEX, MATCH und MAX gibt Fehler #NAME!

Word 365 Index ohne Fußnoten

SUMMEWENN mit verschiedenen Kriterien

Index, Sverweis, Zählenwenn eine Zeile tiefer

Index / Match mit 3 Kriterien