Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Row <> 3 Or Target.Column < 2 And Target.Column > 13 Then Exit Sub
With Worksheets("Anbauplanung")
var = Application.Match(Target.Value, .Columns(28), 0)
If Not IsError(var) Then
Target.Offset(0, 1).Value = .Cells(var, 32).Value
End If
End With
'2 Teil
If Target.Column <> 27 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Offset(0, 1).Value = "" Then
Cells(Target.Row, 28).Value = Cells(Target.Row, 29).Value
End If
End Sub
Hat jemand eine Idee und kann helfen?
Vielen Dank im Voraus.
Grüße