Zeile kopieren und einfügen; dann einzelne Zellen
16.01.2006 16:54:34
Josch
habe ein Problem, bei dem ich einfach nicht weiterkomme:
Ich möchte die letzte Zeile einer Tabelle kopieren und in die nächste Zeile einfügen:
Sub Zeile_kopieren_einfügen()
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Copy
Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert
End Sub
Das funktioniert soweit. Nun sollen aber in der neuen Zeile (die Zeilennummer ändert sich also immer) die Zellinhalte (nicht deren Formatierung) der Spalten E bis G gelöscht werden, ebenso wie die Zellen in den Spalten K sowie M bis O.
Weiß jemand dafür eine Lösung?
Vielen Dank!
Josch