habe zwei Ereigniscode in eine Worksheet_Change zusammengefasst, leider
funktioniert der zweite Teil nicht mehr:
'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
Wie definiere ich Target damit beide Teile funktionieren?
Hier der ganze Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Row 3 Or 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