Zelle vor erneuter Eingabe sperren
19.05.2016 23:47:05
Oisse
ich habe folgenden Code (in etwa so) hier im Forum erhalten, wenn die verkauften Stückzahlen von den vorhandenen abweichen. Es soll dann die Zeile kopiert werden und darunter mit den neuen Werten eingefügt werden.
Klappt auch super.
'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
Dim Oben As String
Dim Unten As String
' Stop
If Target.Row > 2 And Target.Column = 22 Then
Ur = Cells(Target.Row, 5) 'Angebotene Stückzahl
Ver = Target.Value 'Tatsächlich verkaufte Stückzahl
If Ur Ver Then
Dif = Ur - Ver 'Ermitteln der neuen Stückzahl
If Dif Allerdings hätte ich gerne, dass es überhaupt nicht mehr möglich ist, in der ursprünglichen Zeile die verkaufte Stückzahl zu ändern. Es sollte sozusagen die Zelle vor einer weiteren Eingabe gesperrt sein.
Momentan ist es auch so, wenn in der ursprünglichen Zelle ein Wert drin steht und ich nehme ihn heraus, sodass die Zelle wieder leer ist, dann wird mir ebenfalls eine neue Zeile eingefügt, was ich aber überhaupt nicht brauchen kann.
Kann jemand helfen so, wie sonst auch?
Gruß
Oisse