VBA - Vlookup Problem
14.04.2017 15:23:46
sebastian
Ich als absoluter VBA Neuling, wäre über Unterstützung bei meinem Vlookup Problem dankbar!
Für die Erleichterung unseres Projektmanagements besteht die Anforderung wenn bei einem Task ein Vorgänger eingegeben wird das ursprünglich manuell eingegeben Startdatum durch das Enddatum des ausgewählten Vorgängers überschrieben wird.
Hierfür habe ich mir eine Hilfstabelle (H2:I5) für den SVERWEIS gebaut auf die nun per VBA Code bei Bedarf zugegriffen werden soll.
Irgendwie klappt das aber nicht... und meine Kenntnisse reichen für die Lösung leider nicht aus.
Habe mir hierfür folgenden Code zusammengestellt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, LastRow
LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To LastRow
If Cells(i, "B").Value "" Then
Range("D" & i).Value = Application.VLookup(Cells(i, "B"), Range("H2:I500"), 2, False)
Exit Sub
End If
End Sub
Wäre über jede Hilfe Dankbar!
Beispieldatei mit VBA Code habe ich ebenfalls hochgeladen. https://www.herber.de/bbs/user/112882.xlsm
Vielen Dank, lg aus Salzburg
Seb