AW: Werte einfügen
13.10.2010 12:29:18
Hajo_Zi
Hallo maik,
bei mir macht er es nicht, ich habe mich genau an Deine anleitung gehalten.
Ich habe denm Code noch ein wenig erweitert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
Application.EnableEvents = False
If Target.Column = 5 And Target "" Then
Cells(Target.Row, 8) = Application.VLookup(Worksheets("Blanko Jahr").Cells(Target. _
Row, 7), Worksheets("Bezeichnungen").Range("C:D"), 2, 0)
ElseIf Target.Column = 7 Then
Cells(Target.Row, 8) = ""
End If
Application.EnableEvents = True
End If
Gruß Hajo