Target Row
22.02.2005 18:10:18
Ernst
Habe wieder mal ein Problem!
Mit dem untenstehenden Code funktioniert was nicht.
Eingabe erlaubt ab Zeile 5 bis 10 in der Spalte 3.
Bei Eingabe eines Wertes in Spalte 3 der Tabelle 2 soll der zugehörige Wert aus der Tabelle "Daten" in Spalte 4 und 5 geschrieben werden.
Bitte um Hilfe.
mfg
Ernst Dunkel
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row < 5 Then Exit Sub
If Target.Row > 10 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
Application.EnableEvents = False
On Error GoTo Fehler
Cells(Target.Row, 4) = WorksheetFunction.VLookup(Target, Worksheets("Datenbank").Range("B2:D20"), 2, 0)
Cells(Target.Row, 5) = WorksheetFunction.VLookup(Target, Worksheets("Datenbank").Range("B2:D20"), 3, 0)
Application.EnableEvents = True
Exit Sub
Fehler:
MsgBox "Wert nicht vorhanden"
Cells(Target.Row, 3) = " "
Application.EnableEvents = True
End Sub