Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
iRow
As
Long
Application.DisplayAlerts =
False
If
Target.Column = 12
Then
If
Target.CountLarge = 1
Then
If
Target <>
""
Then
If
UCase(Target) =
"X"
Then
If
MsgBox(
"Soll gelöscht werden?"
, vbYesNo,
"Löschbestätigung"
) = vbYes
Then
With
Worksheets(
"Archiv"
)
iRow = .Cells(Rows.Count, 1).
End
(xlUp).Row + 1
Rows(Target.Row).Copy .Rows(iRow)
Rows(Target.Row).Delete
End
With
End
If
End
If
End
If
End
If
End
If
Application.CutCopyMode =
False
End
Sub