letzte leere Zeile
09.09.2014 11:31:11
FAFR
ich brauch dringend eure Hilfe.
Ich habe ein Tabellenblatt "Input" in dem mehrere Nummern und zugehörige Daten aufgelistet sind. Wenn nun was geändert wird will ich die aktuelle Zeile in das Tabellenblatt "Archive" in die letzte leere Zeile kopieren.
Beim ersten mal kopieren, erkennt er die Überschriften im Tabellenblatt "Archiv" nicht und überschreibt die ersten zwei Zeilen immer mit der kopierten Zeile. Wenn aber in Zeile 3 schon etwas geschrieben steht, schreibt er die kopierte Zeile so wie er es soll in Zeile 4. Welchen Befehl benötige ich, dass er erst ab Zeile 3 anfängt die kopierten Zeilen einzufügen?
Mein Code sieht so aus:
Sub MakroArchiv()
aktiveZeile = ActiveCell.Row
Sheets("Input").Range("A" & aktiveZeile, "M" & aktiveZeile).Copy
Sheets("Archive") _
.Cells(Sheets("Archive").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1) _
.PasteSpecial
End Sub
Vielen Dank
Gruß
Franzi