Office: Letze Zeile finden, kopieren, eine Zeile tiefer einfügen

SOS

Ich schon wieder...

habe ein kleines problemchen.

ich suche in einer datei die erste freie Zeile unter der letzten zeile in der was steht, will diese kopieren und eine zeile tiefer einfügen.

Hintergrund, die hinterlegten Formate sollen einfach automatisch mit geführt werden.
D.h. über CommandButton einfach neue Zeile einfügen mit den hinterlegten formaten.

ich bin bisher soweit gekommen:


Range("A1002:T1002").End(xlUp).Offset(1, 0).Select
Selection.Insert Shift:=xlDown
Selection.Copy
ActiveSheet.Paste

er fügt mir aber trotzdem immer nur in der spalte an eine neue zelle ein und keine zeile...+grummel+

wer kann mir helfen???

DANKE im voraus!!

viele grüße
ela

 

Hallo!

Excel ist auch in der Lage lediglich die Formate zu kopieren ohne die Zellinhalte. Daher könnte doch dies für dich passen:

Code:

Dim Ende As Integer
Ende = UsedRange.Rows.Count
Rows(Ende).Copy
Cells(Ende + 1, 1).PasteSpecial Paste:=xlPasteFormats

 

hallo schatzi,

danke für deine antwort!!!!

es funktioniert leider noch nicht :-(
so sieht es jetzt aus:

Sub Makro1()
Dim Ende As Integer

Ende = UsedRange.Rows.Count
Rows(Ende).Copy
Cells(Ende + 1, 1).PasteSpecial Paste:=xlPasteFormats

End Sub

er markiert mir immer Ende = usedRange.Rows.Count

ich glaube er braucht noch irgendeinen bezug.

hatte versucht mir Worksheet ("Analyse") (so heißt das Datenblatt)
aber dann sagt er immer Sub oder function nicht definiert...ätchz...
*verzweifelung*

lieben gruß
ela

 

PROBLEM GELÖST!!!!!!!!!!!!!!!!!!

ich habe es allein herausgefunden!!!!!!

was für ein Gefühl!!!!!!!!!!!!!!!!

Danke noch mal an SCHATZI!!!

ohne ich hätte ich das nicht geschafft!!!!!!!!!!!!!!!!!


lieben gruß
ela