ich arbeite mit dem Macro
If Target.Count = Columns.Count Then
Sheet2.Unprotect Password:="XXX"
Application.EnableEvents = False
Range("A" & Target.Row - 1).Copy Range("A" & Target.Row)
Range("E" & Target.Row - 1).Copy Range("E" & Target.Row)
Range("H" & Target.Row - 1).Copy Range("H" & Target.Row)
Range("V" & Target.Row - 1).Copy Range("V" & Target.Row)
Range("AB" & Target.Row - 1).Copy Range("AB" & Target.Row)
Range("AC" & Target.Row - 1).Copy Range("AC" & Target.Row)
Range("AH" & Target.Row - 1).Copy Range("AH" & Target.Row)
Range("AQ" & Target.Row - 1).Copy Range("AQ" & Target.Row)
Range("BI" & Target.Row - 1).Copy Range("BI" & Target.Row)
Range("BJ" & Target.Row - 1).Copy Range("BJ" & Target.Row)
Range("BK" & Target.Row - 1).Copy Range("BK" & Target.Row)
Range("BL" & Target.Row - 1).Copy Range("BL" & Target.Row)
Range("BM" & Target.Row - 1).Copy Range("BM" & Target.Row)
Range("BN" & Target.Row - 1).Copy Range("BN" & Target.Row)
Application.EnableEvents = True
Sheet2.Protect Password:="XXX", AllowInsertingRows:=True, AllowFiltering:=True, AllowFormattingColumns:=True
End If
funktioniert auch super solange ich nur eine Zeile einzeln hinzufüge per Rechtsklick. Kann man das aber auch irgendwie verbessern, dass es funktioniert wenn ich mehrere Zeilen gleichzeitig hinzufüge per Rechtsklick?
Viele Grüße
MD