30.03.2015, 11:14
Hallo liebe Excelgemeinde,
bräuchte mal wieder eure Hilfe! :)
Mif folgendem Code (Auszug) wird per vlookup in der ersten Spalte gesucht ob die aktuelle Artikelnummer vorhanden, wenn ja werden dann entsprechend die Zellen rechts daneben ausgegeben!
Nun das funktioniert perfekt! Nur dass wenn ich mehrere Artikelnummer gleichzeitig in der Spalte 1 einfüge, dann wird nur der erste Wert gesucht und entsprechend die Werte dazu ergänzt, die anderen nicht! Wie muss ich den Code ändern, damit alle Werte die ich einfüge gesucht werden und etnsprechend die Zeilen ergänzt werden? Ist das überhaupt möglich mit vlookup?
Vielen Dank im Voraus
Viele Grüße
Alexandra
bräuchte mal wieder eure Hilfe! :)
Mif folgendem Code (Auszug) wird per vlookup in der ersten Spalte gesucht ob die aktuelle Artikelnummer vorhanden, wenn ja werden dann entsprechend die Zellen rechts daneben ausgegeben!
Code:
Dim rngA As Range
Dim rngB As Range
If Target.Column = 1 Then
Set rngA = Cells(Target.Row, 1)
Set rngB = Range("A:O")
If IsError(Application.VLookup(rngA, rngB, 5, False)) Then
Cells(Target.Row, 2).Value = ""
Cells(Target.Row, 3).Value = ""
Cells(Target.Row, 4).Value = ""
Cells(Target.Row, 5).Value = ""
Cells(Target.Row, 6).Value = ""
Cells(Target.Row, 7).Value = ""
Cells(Target.Row, 8).Value = ""
Cells(Target.Row, 9).Value = ""
Cells(Target.Row, 10).Value = ""
Cells(Target.Row, 11).Value = ""
Cells(Target.Row, 12).Value = ""
Cells(Target.Row, 13).Value = ""
Cells(Target.Row, 14).Value = ""
Cells(Target.Row, 15).Value = ""
Else
Cells(Target.Row, 5).Value = Application.VLookup(rngA, rngB, 5, False)
Cells(Target.Row, 6).Value = Application.VLookup(rngA, rngB, 6, False)
Cells(Target.Row, 7).Value = Application.VLookup(rngA, rngB, 7, False)
Cells(Target.Row, 8).Value = Application.VLookup(rngA, rngB, 8, False)
Cells(Target.Row, 9).Value = Application.VLookup(rngA, rngB, 9, False)
Cells(Target.Row, 10).Value = Application.VLookup(rngA, rngB, 10, False)
Cells(Target.Row, 11).Value = Application.VLookup(rngA, rngB, 11, False)
Cells(Target.Row, 12).Value = Application.VLookup(rngA, rngB, 12, False)
Cells(Target.Row, 13).Value = Application.VLookup(rngA, rngB, 13, False)
Cells(Target.Row, 14).Value = Application.VLookup(rngA, rngB, 14, False)
Cells(Target.Row, 15).Value = Application.VLookup(rngA, rngB, 15, False)
End If
Application.EnableEvents = True
End If
ActiveSheet.Protect Password:="999"
End Sub
Vielen Dank im Voraus
Viele Grüße
Alexandra