Intersect mit VLookup in VBA
16.02.2018 14:51:09
Jeff
Hallo,
ich bin neu hier im Forum und habe ein Problem mit meinem Makro.
Naja, ich bräuchte eher eine Lösung, da es keine Probleme gibt. :)
Ich habe eigentlich gute Kenntnisse was EXCEL betrifft.
Werde auch von einigen als FREAK bezeichnet. Steht aber hier nicht zur Debatte.
Bei der Makroerstellung bin ich noch relativ ein Anfänger, wobei ich mir schon durch die Suchmaschinen immer helfen konnte.
Leider bin ich trotz Recherche an meine Grenzen gekommen.
Folgender Hintergrund....
Ich wollte nachdem eine Zelle (Beispiel:D2) geändert wurde, dass automatisch der Sverweis bzw. VLookup auf den Suchbegriff D2 zugreift und dann in E2 den Inhalt einpflegt.
Ich habe folgenden Makro eingesetzt...
Private Sub Worksheet_Change(ByVal Target As Range)
spalte = ActiveSheet.UsedRange.Rows.Count
If Not Application.Intersect(Target, Range("D2:D" & spalte)) Is Nothing Then
Call test
End If
End Sub
Sub test()
Dim s As Integer
Dim z As Integer
z = ActiveCell.Row
s = ActiveCell.Column
On Error GoTo L:
Cells(z, s + 1) = WorksheetFunction.VLookup(Cells(z, s).Value, Sheets("Tabelle2").Range("a1: _
_
_
b10"), 2, False)
L:
End Sub
Resultat ist bei diesem Makro, dass eine Aktualisierung erst gestartet wird, wenn man auf die Zelle geht. Ich möchte aber, dass es nachdem man Enter gedrückt hat gleich daneben erscheint.
Ich weiß, dass durch den Start bzw. Verweis auf den anderen Makro der wiederrum den Zellenbezug vom ersten Makro nicht übernimmt.
Ich habe auch schon den Sverweis in Private Sub ausprobiert.
Gescheitert!
Danke im Voraus für Eure Feedbacks.
Gruß
JC