Makro für ein Excel Sheet
Martin
Hi!
Ich hab folgendes Problem.
Ich habe ein Excel Sheet (ca. 400 Zeilen), wenn ich eine Zeile manuell markiere, wird per Click eines Buttons die Zeile kopiert und direkt unter der kopierten Zeile eingefügt! (siehe Makro unten)
Nun kommei ich leider nicht weiter, denn in der eingefügten sollen noch die Zellinhalte von Spalte D bis I gelöscht werden. Wichtig, nur die Inhalte der neu eingefügten Zeile! Da die Zeilen sich jedes mal ändern, ist es für mich sehr schwer in einem Makro umzusetzen. Was wäre eine gute Lösung?
Private Sub LineCopy_Click()
Selection.Copy
s = ActiveCell.Column
z = ActiveCell.Row
Range(Cells(z, s), Cells(z, s)).Select
Selection.Insert Shift:=xDown
End Sub
Martin