Zellinhalt löschen
22.04.2021 17:01:20
Holger
bräuchte etwas hilfe, wenn möglich.
Kopiere über Makro die Zelle nach unten, dabei soll aber der Inhlat von der kopierten Zelle B, C und D leer bleiben.
Bekomme das leider nicht hin, freue mich auf Antworten.
Vielen Dank im Vorrauß für die Mühe.
Holger
https://www.herber.de/bbs/user/145729.xlsm
Sub NZeilen()
AbfraGE = MsgBox("Zeile einfügen ?", vbOKCancel + vbExclamation, "Sicherheitsabfrage")
If AbfraGE = vbOK Then
ActiveSheet.Unprotect "test"
ActiveCell.Offset(1, 0).EntireRow.Insert
ActiveCell.EntireRow.Copy ActiveCell.Offset(1, 0).EntireRow
Application.SendKeys ("{enter}")
Application.ScreenUpdating = True
Else
End If
With ActiveSheet
.EnableSelection = xlUnlockedCells
.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFormattingRows:=True, AllowInsertingRows _
:=True, AllowDeletingRows:=True
End With
End
End Sub
Anzeige
