Zeile einfügen und kopieren
18.07.2003 19:11:26
Udo
möchte eine Zeile unterhalb der aktiven Zelle löschen und mit Daten aus Zelle 100 füllen!
Frage wie kann ich beim Range anstelle die feste Zelle "A9" eine variabel oder die aktuelle Zelle als Copy Zelle einsetzen?
Sub Ohne_Format_Verschieben()
z = ActiveCell.Row
s = ActiveCell.Column
Cells(z + 1, s).Value = Cells(z, s).Value
Selection.ClearContents
Rows("100:100").Select
Selection.Copy
Range("A9").Select
ActiveSheet.Paste
End Sub
Anzeige