mit diesem Code verschiebe ich bei JA anklicken die Zeile.
Sub zurucklager()
Dim naechste As Long
Dim wks2 As Worksheet
Set wks2 = Worksheets("protokoll")
If ActiveCell.Column = 2 Then
If MsgBox("verfügbar?", vbQuestion + vbYesNo, "Nachfrage") _
= vbYes Then
With Worksheets("Lager")
naechste = .Cells(Rows.Count, 13).End(xlUp).Row + 1
.Cells(naechste, 14) = ActiveCell
.Cells(naechste, 15) = ActiveCell.Offset(, 1)
.Cells(naechste, 16) = Application.InputBox("Wollen Sie eine Information hinterlegen?", _
"Grund")
.Cells(naechste, 17) = Date
.Cells(naechste, 13) = Environ("Username")
wks2.Unprotect "2510"
.Cells(naechste, 13).Resize(1, 5).Copy wks2.Cells(wks2.Cells(Rows.Count, 1).End( _
xlUp) _
.Row + 1, 1)
wks2.Protect "2510"
End With
End If
Rows(ActiveCell.Row).Delete
End If
End Sub
Bei Nein sollte er abbrechen, macht er aber nicht.
Kann mir jemand helfen?
Danke Tim