Ein Problem habe ich noch!
In meinem Code werden auf dem Comparison Tabellenblatt eine ermittelte Zeile gelöscht. Nun soll er aber nicht die komplette Zeile löschen!
Es sollen die Spalten O, P, AB, AC, AO, AP nicht angerührt werden.
Wie sage ich ihm das er diese Spalten beim löschen außen vor lässt?
Wenn mir dabei noch mal jemand helfen könnte....
Vielen Dank schon mal!
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:=""
Dim iRow As Integer
Application.DisplayAlerts = False
If Target.Column 17 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If UCase(Target.Value) >= 1 Then
With Worksheets("Order-History")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows(Target.Row).Copy
.Rows(iRow).PasteSpecial Paste:=xlValues
ActiveWorkbook.Sheets("Comparison").Select
ActiveSheet.Unprotect Password:=""
ActiveSheet.Rows(Target.Row + 4).ClearContents
End With
End If
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub