inhalt kopierter Zelle per Makro löschen
Micha
folgendes möchte ich per Makro realisieren:
In einer Tabelle soll eine willkürliche Zeile angeklickt werden. Per Makro soll jetzt eine Zeile eingefügt werden. Ist ja per Rekorder noch einfach. Jetzt möchte ich aber, dass die Formeln die in p,r,x,z...(keine math. Folge ableitbar) stehen, entsprechend kopiert werden.
Mein Gedanke war eine Kombination der beiden Makros:
Sub Zeilenrein()
Dim lngR As Long
ActiveSheet.Unprotect Password:="xxx"
lngR = ActiveCell.Row
Rows(34).Copy
Rows(lngR).Insert
Hier würde ich den u. s. Teil des zweiten Makro einfügen
ActiveSheet.Protect Password:="xxx", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True, AllowFiltering _
:=True
End Sub
Selection.ClearContents
Range("B34").Select
Selection.ClearContents
Range("C34").Select
Selection.ClearContents
.
.
.
Problem: Es soll der Inhalt der neuen Zeile und nicht von Zeile 34 gelöscht werden!
Wer kann mir bei der entsprechenden Änderung weiterhelfen?
Vorab vielen Dank Micha
Anzeige