Zeile einfügen funktioniert nicht (mehr)
07.05.2016 11:58:10
Oisse
Hallo Zusammen,
ich habe folgenden Code, der auch schon funktioniert hat aber jetzt nicht mehr funktioniert.
Ich möchte gerne, wenn sich die Stückzahl ändert, die komplette Zeile kopieren, darunter eine neue Zeile einfügen mit der neuen Stückzahl.
Es kommt die Fehlermeldung:
"Das wird nicht funktionieren, weil dadurch Zellen in einer Tabelle in ihrem Arbeitsblatt verschoben würden."
'Wenn sie die Stückzahlen ändern, also nicht die gesamte Stückzahl verkauft werden konnte,
'dann wird die komplette Zeile kopiert, eine neue Zeile darunter eingefügt mit den kopierten _
Daten
'und anschließend in Spalte 5 der neue Stückzahlenwert eingetragen.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dif As Long
Dim Ur As Long
Dim Ver As Long
Ur = Cells(Target.Row, 5) 'Angebotene Stückzahl
Ver = Cells(Target.Row, 22) 'Tatsächlich verkaufte Stückzahl
If Target.Row > 2 And Target.Column = 22 Then
If Cells(Target.Row, 22) <> Cells(Target.Row, 5) Then
Dif = Ur - Ver 'Ermitteln der neuen Stückzahl
Application.EnableEvents = False
Target.EntireRow.Copy
Target.Offset(1, 0).EntireRow.Insert shift:=xlDown 'hier kommt die _
Fehlermeldung
Target.Offset(1, -17) = Dif
Target.Offset(1, 0) = ""
Target.Offset(1, 1) = ""
Application.EnableEvents = True
Application.CutCopyMode = False
End If
End If
End Sub
Was bitte muss ich ändern?