Ist es möglich diesen Code jeweils nur einmal auszuführen ?
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Dim zu As Variant If Target.Column > 3 Then Exit Sub zu = MsgBox(" Eingabe richtig ?", vbYesNo + vbCritical) If zu = vbNo Then 'Wenn nein dann die Anwendung verlassen. Exit Sub ElseIf zu = vbYes Then End If ActiveSheet.Unprotect Password:="7887" Rows(Target.Row).Copy Rows(Target.Row + 2).Cells.Insert Rows(Target.Row + 2).ClearContents ' Kopiert die Formel 2 Zeilen runter Range("H4").Copy Range("H" & Target.Row + 2).Insert ActiveSheet.Unprotect Password:="7887" Application.CutCopyMode = False End Sub
Ich hoffe es gibt eine Möglickeit, denn einige Kollegen haben einen
unruhigen Finger.
mfg Erich